pinosaur
/
ekitaihs.git
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
docs
[ekitaihs.git]
/
Parse.hs
diff --git
a/Parse.hs
b/Parse.hs
index
9b9de57
..
2375c4f
100644
(file)
--- a/
Parse.hs
+++ b/
Parse.hs
@@
-8,26
+8,16
@@
import Data.Maybe
import Data.Either
data Options = Options
import Data.Either
data Options = Options
- { optHelp :: Bool
- , optColor :: Bool
- , optTimeStep :: Int
+ { optTimeStep :: Int
}
defaultOptions = Options
}
defaultOptions = Options
- { optHelp = False
- , optColor = False
- , optTimeStep = 50000
+ { optTimeStep = 50000
}
options :: [OptDescr (Options -> Options)]
options =
}
options :: [OptDescr (Options -> Options)]
options =
- [ Option ['h'] ["help"]
- (NoArg (\opts -> opts { optHelp = True }))
- "display's this message"
- , Option ['c'] ["color", "colour"]
- (NoArg (\opts -> opts { optColor = True }))
- "enables color"
- , Option ['t'] ["timestep"]
+ [ Option ['t'] ["timestep"]
(ReqArg (\t opts -> opts { optTimeStep = read t :: Int }) "timestep")
"sets the simulation time step"
]
(ReqArg (\t opts -> opts { optTimeStep = read t :: Int }) "timestep")
"sets the simulation time step"
]