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

diff --git a/Ekitai.hs b/Ekitai.hs
index 8793052..af47e02 100644
--- a/Ekitai.hs
+++ b/Ekitai.hs
@@ -1,13 +1,29 @@
 import System.Environment
+import System.IO
 
 import qualified Data.Vector as V
 
 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
     (opts, fname) <- ekitaiOpts argv
-    putStrLn fname
+    handle <- openFile fname ReadMode
+    contents <- hGetLines handle
+    hClose handle
+    -- start brick
+    ekitaiMain $ stringToSim contents
     return 0