Ekitai.hs

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