Ekitai.hs

   1 import System.Environment
   2
   3 import qualified Data.Vector as V
   4 import qualified Brick as B
   5
   6 import Parse
   7 import Sim
   8 import Render
   9
  10 -- ui :: B.Widget ()
  11 -- ui = B.str "hello" <+> B.str "World"
  12
  13 -- main :: IO ()
  14 main = do
  15     initialState <- buildInitialState
  16     endState <- B.defaultMain ekitaiApp initialState
  17     print endState
  18     -- argv <- getArgs
  19     -- (opts, fname) <- ekitaiOpts argv
  20     -- return 0
  21