blob: 6d14a2895f86a8ffec0fd050565cf563edc23fe6 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
module Main where
import qualified Brick.Main as M
import Control.Monad (void)
import qualified Daffm
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
void $ M.defaultMain Daffm.app initialState
|
