drain and pump

[ekitaihs.git] / Ekitai.hs

diff --git a/Ekitai.hs b/Ekitai.hs
index af47e02..6d0c867 100644 (file)
--- a/Ekitai.hs
+++ b/Ekitai.hs
@@ -24,6 +24,6 @@ main = do
     contents <- hGetLines handle
     hClose handle
     -- start brick
-    ekitaiMain $ stringToSim contents
+    ekitaiMain (stringToSim contents) (optTimeStep opts)
     return 0