+-- ++ usageInfo header options
+-- where header = "Usage: ekitai [OPTIONS...] simfile"
+
+ -- (o, _, []) -> do
+ -- opts <- (foldl (flip id) defaultOptions o)
+ -- if optHelp then userError $ concat usageInfo "Usage: ekitai [OPTIONS...] simfile" options
+ -- else ioError $ userError $ "missing input file"