Implement help command as advertised in usage
This commit is contained in:
parent
35f40b3ce9
commit
7fd7b36363
@ -111,6 +111,7 @@ main = flip catches handlers $ do
|
||||
flags <- listFlags opt
|
||||
pre <- concat <$> mapM (browseModule opt) preBrowsedModules
|
||||
return $ mods ++ langs ++ flags ++ pre
|
||||
"help" -> return $ usageInfo usage argspec
|
||||
cmd -> throw (NoSuchCommand cmd)
|
||||
putStr res
|
||||
where
|
||||
|
Loading…
Reference in New Issue
Block a user