Implement help command as advertised in usage

This commit is contained in:
Niklas Hambüchen 2013-08-23 11:30:25 +09:00
parent 35f40b3ce9
commit 7fd7b36363
1 changed files with 1 additions and 0 deletions

View File

@ -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