blob: 3ac3375c5d51b0d17939bca1e0f8d5b1ed89ec89 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
module Main where
import qualified Brick.Main as M
import Control.Monad (void)
import qualified Daffm
import Daffm.Configuration (loadConfigFile)
import qualified Data.Text as Text
import System.Directory (getCurrentDirectory)
main :: IO ()
main = do
cwd <- getCurrentDirectory
config <- loadConfigFile
initialState <- Daffm.loadDirToState (Text.pack cwd) $ Daffm.mkEmptyAppState config
void $ M.defaultMain Daffm.app initialState
|
