improve synopsis
This commit is contained in:
parent
7c7486a45f
commit
53fd1564b1
4 changed files with 4 additions and 4 deletions
|
@ -16,7 +16,7 @@ usageMessage s = "Usage: " ++ s
|
|||
usage :: String -> [Command] -> String
|
||||
usage header cmds = unlines $ usageMessage header : commandList cmds
|
||||
|
||||
{- Commands listed by section, with breif usage and description. -}
|
||||
{- Commands listed by section, with brief usage and description. -}
|
||||
commandList :: [Command] -> [String]
|
||||
commandList cmds = concatMap go [minBound..]
|
||||
where
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue