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
contents <- hGetLines handle
hClose handle
-- start brick
- ekitaiMain $ stringToSim contents
+ ekitaiMain (stringToSim contents) (optTimeStep opts)
return 0