24 lines
614 B
Haskell
24 lines
614 B
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
module Main where
|
|
|
|
import Brick
|
|
import Control.Monad
|
|
import qualified Data.Text.IO as T
|
|
import Options.Applicative
|
|
|
|
import Profold.App
|
|
import Profold.Options
|
|
import Profold.ParseProfFile
|
|
|
|
data UiName = UiViewport
|
|
deriving (Show, Eq, Ord)
|
|
|
|
main :: IO ()
|
|
main = do
|
|
opts <- execParser options
|
|
let filename = optFileName opts
|
|
text <- T.readFile filename
|
|
case parseProfFile filename text of
|
|
Left e -> putStrLn e
|
|
Right f -> void $ defaultMain myApp $ newUiState (profInfoLines f) (profNode f)
|