X-Git-Url: https://git.danieliu.xyz/?a=blobdiff_plain;f=Ekitai.hs;h=6c1609ec7047d4b64d4fcaa68d086203eec33502;hb=259904bfc4ca2f8b90381dfdb887750b9bdaf368;hp=8793052c9377c3cc92af41d88ffb220050691806;hpb=bdbd06560f50a45aa12c15d4fefa0e3c303fbd7a;p=ekitaihs.git

diff --git a/Ekitai.hs b/Ekitai.hs
index 8793052..6c1609e 100644
--- a/Ekitai.hs
+++ b/Ekitai.hs
@@ -1,13 +1,28 @@
 import System.Environment
+import System.IO
 
 import qualified Data.Vector as V
+import qualified Brick as B
 
 import Parse
 import Sim
+import Render
+
+-- ui :: B.Widget ()
+-- ui = B.str "hello" <+> B.str "World"
 
 main = do
     argv <- getArgs
     (opts, fname) <- ekitaiOpts argv
-    putStrLn fname
-    return 0
+    handle <- openFile fname ReadMode
+    contents <- hGetContents handle
+    putStr contents
+    hClose handle
+    initialState <- buildInitialState $ stringToSim 10 10 contents
+    endState <- B.defaultMain ekitaiApp initialState
+    print endState
+
+-- main :: IO ()
+-- main = do
+    -- return 0