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

diff --git a/Ekitai.hs b/Ekitai.hs
index e413b67..028373a 100644
--- a/Ekitai.hs
+++ b/Ekitai.hs
@@ -1,10 +1,20 @@
 import System.Environment
+import System.IO
+
+import qualified Data.Vector as V
 
 import Parse
+import Sim
+import Render
 
 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) (optTimeStep opts)
     return 0