pinosaur
/
ekitaihs.git
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
deb pkg
[ekitaihs.git]
/
Ekitai.hs
diff --git
a/Ekitai.hs
b/Ekitai.hs
index
af47e02
..
028373a
100644
(file)
--- a/
Ekitai.hs
+++ b/
Ekitai.hs
@@
-7,15
+7,6
@@
import Parse
import Sim
import Render
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
main = do
-- handle file stuff
argv <- getArgs
@@
-24,6
+15,6
@@
main = do
contents <- hGetLines handle
hClose handle
-- start brick
contents <- hGetLines handle
hClose handle
-- start brick
- ekitaiMain
$ stringToSim contents
+ ekitaiMain
(stringToSim contents) (optTimeStep opts)
return 0
return 0