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
|
flags <- listFlags opt
|
||||||
pre <- concat <$> mapM (browseModule opt) preBrowsedModules
|
pre <- concat <$> mapM (browseModule opt) preBrowsedModules
|
||||||
return $ mods ++ langs ++ flags ++ pre
|
return $ mods ++ langs ++ flags ++ pre
|
||||||
|
"help" -> return $ usageInfo usage argspec
|
||||||
cmd -> throw (NoSuchCommand cmd)
|
cmd -> throw (NoSuchCommand cmd)
|
||||||
putStr res
|
putStr res
|
||||||
where
|
where
|
||||||
|
Loading…
Reference in New Issue
Block a user