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

diff --git a/Ekitai.hs b/Ekitai.hs
index 6c1609e..6d0c867 100644
--- a/Ekitai.hs
+++ b/Ekitai.hs
@@ -2,27 +2,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"
+hGetLines :: Handle -> IO [String]
+hGetLines h = do
+    line <- hGetLine h
+    isEof <- hIsEOF h
+    if isEof then return [line]
+    else do
+        lines <- hGetLines h
+        return (line:lines)
 
 main = do
+    -- handle file stuff
     argv <- getArgs
     (opts, fname) <- ekitaiOpts argv
     handle <- openFile fname ReadMode
-    contents <- hGetContents handle
-    putStr contents
+    contents <- hGetLines handle
     hClose handle
-    initialState <- buildInitialState $ stringToSim 10 10 contents
-    endState <- B.defaultMain ekitaiApp initialState
-    print endState
-
--- main :: IO ()
--- main = do
-    -- return 0
+    -- start brick
+    ekitaiMain (stringToSim contents) (optTimeStep opts)
+    return 0