X-Git-Url: https://git.danieliu.xyz/?p=ekitaihs.git;a=blobdiff_plain;f=Ekitai.hs;h=028373a2631cf410e89c18a54874d3a2d086c5ba;hp=af47e0237ed135e3f8efd4de8eccda3faab7a2e6;hb=6720ac28a940ee4cf8ecb556e2e428f63a7ae3fa;hpb=76d05eb2de39a69e93c2c342073cde2627c9f50c

diff --git a/Ekitai.hs b/Ekitai.hs
index af47e02..028373a 100644
--- a/Ekitai.hs
+++ b/Ekitai.hs
@@ -7,15 +7,6 @@ import Parse
 import Sim
 import Render
 
-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
@@ -24,6 +15,6 @@ main = do
     contents <- hGetLines handle
     hClose handle
     -- start brick
-    ekitaiMain $ stringToSim contents
+    ekitaiMain (stringToSim contents) (optTimeStep opts)
     return 0