1 import System.Environment
4 import qualified Data.Vector as V
5 import qualified Brick as B
12 -- ui = B.str "hello" <+> B.str "World"
14 hGetLines :: Handle -> IO [String]
18 if isEof then return [line]
25 (opts, fname) <- ekitaiOpts argv
26 handle <- openFile fname ReadMode
27 contents <- hGetLines handle
29 -- putStrLn $ show $ stringToSim contents
30 initialState <- buildInitialState $ stringToSim contents
31 endState <- B.defaultMain ekitaiApp initialState