X-Git-Url: https://git.danieliu.xyz/?p=ekitaihs.git;a=blobdiff_plain;f=Ekitai.hs;h=028373a2631cf410e89c18a54874d3a2d086c5ba;hp=6b9806ff0c00ce4764bf69a35458de0bd2fbdbb5;hb=HEAD;hpb=112ba19bd1df10cdb24e99dd3853dd99576c1610

diff --git a/Ekitai.hs b/Ekitai.hs
index 6b9806f..028373a 100644
--- a/Ekitai.hs
+++ b/Ekitai.hs
@@ -2,37 +2,19 @@ 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 <- hGetLines handle
     hClose handle
-    -- putStrLn $ show $ stringToSim contents
-    initialState <- buildInitialState $ stringToSim contents
-    endState <- B.defaultMain ekitaiApp initialState
-    print endState
+    -- start brick
+    ekitaiMain (stringToSim contents) (optTimeStep opts)
     return 0
 
--- main :: IO ()
--- main = do
-    -- return 0
-