diff options
| author | Akshay Nair <phenax5@gmail.com> | 2025-10-03 21:57:20 +0530 |
|---|---|---|
| committer | Akshay Nair <phenax5@gmail.com> | 2025-10-03 21:57:20 +0530 |
| commit | b05be850349dbb813d2af6f3ee7a2fc3bf98b8ef (patch) | |
| tree | dcfb1264b3305ef143f3cb642529b1bb81907197 /exe/Main.hs | |
| parent | 931cf30e66238432fbf653adda7bd08f05a18e87 (diff) | |
| download | daffm-b05be850349dbb813d2af6f3ee7a2fc3bf98b8ef.tar.gz daffm-b05be850349dbb813d2af6f3ee7a2fc3bf98b8ef.zip | |
Refactor to Text
Diffstat (limited to '')
| -rw-r--r-- | exe/Main.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/exe/Main.hs b/exe/Main.hs index 6d14a28..79a49f9 100644 --- a/exe/Main.hs +++ b/exe/Main.hs @@ -3,12 +3,13 @@ module Main where import qualified Brick.Main as M import Control.Monad (void) import qualified Daffm +import qualified Data.Text as Text import System.Directory (getCurrentDirectory) import System.FilePath (takeDirectory) main :: IO () main = do cwd <- getCurrentDirectory - let parentDir = takeDirectory cwd - initialState <- Daffm.loadDirToState cwd parentDir Daffm.mkEmptyAppState + let parentDir = Text.pack $ takeDirectory cwd + initialState <- Daffm.loadDirToState (Text.pack cwd) parentDir Daffm.mkEmptyAppState void $ M.defaultMain Daffm.app initialState |