diff options
| author | Akshay Nair <phenax5@gmail.com> | 2025-10-05 11:51:37 +0530 |
|---|---|---|
| committer | Akshay Nair <phenax5@gmail.com> | 2025-10-05 11:51:37 +0530 |
| commit | 556f890c3bb799dd6bc1e83c5dcff12f25ed5c24 (patch) | |
| tree | b80400bfbaf70cc40abca895ffee9f4de90adec9 /exe | |
| parent | c999d5703d22a7b73394b50029ceede4ef06f09c (diff) | |
| download | daffm-556f890c3bb799dd6bc1e83c5dcff12f25ed5c24.tar.gz daffm-556f890c3bb799dd6bc1e83c5dcff12f25ed5c24.zip | |
Add ~ substitution for cd paths
Diffstat (limited to 'exe')
| -rw-r--r-- | exe/Main.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/exe/Main.hs b/exe/Main.hs index d165653..3ac3375 100644 --- a/exe/Main.hs +++ b/exe/Main.hs @@ -6,12 +6,10 @@ import qualified Daffm import Daffm.Configuration (loadConfigFile) import qualified Data.Text as Text import System.Directory (getCurrentDirectory) -import System.FilePath (takeDirectory) main :: IO () main = do cwd <- getCurrentDirectory - let parentDir = Text.pack $ takeDirectory cwd config <- loadConfigFile - initialState <- Daffm.loadDirToState (Text.pack cwd) parentDir $ Daffm.mkEmptyAppState config + initialState <- Daffm.loadDirToState (Text.pack cwd) $ Daffm.mkEmptyAppState config void $ M.defaultMain Daffm.app initialState |