Refactor to Text

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