pinosaur
/
ekitaihs.git
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
cleaner update chunks
[ekitaihs.git]
/
Ekitai.hs
diff --git
a/Ekitai.hs
b/Ekitai.hs
index
6d0c867
..
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