X-Git-Url: https://git.danieliu.xyz/?p=ekitaihs.git;a=blobdiff_plain;f=Ekitai.hs;fp=Ekitai.hs;h=6fe1195234d822b5dd13faeeef1c7d767e9f7e79;hp=8793052c9377c3cc92af41d88ffb220050691806;hb=c68579ccc2b03996eec6ac5c1526d6e5d20c3c78;hpb=b01133aa41dd617c27be81eabe33f90b69cbf618

diff --git a/Ekitai.hs b/Ekitai.hs
index 8793052..6fe1195 100644
--- a/Ekitai.hs
+++ b/Ekitai.hs
@@ -1,13 +1,21 @@
 import System.Environment
 
 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 :: IO ()
 main = do
-    argv <- getArgs
-    (opts, fname) <- ekitaiOpts argv
-    putStrLn fname
-    return 0
+    initialState <- buildInitialState
+    endState <- B.defaultMain ekitaiApp initialState
+    print endState
+    -- argv <- getArgs
+    -- (opts, fname) <- ekitaiOpts argv
+    -- return 0