cli: fix --help

This commit is contained in:
Simon Michael 2016-04-18 15:26:29 -07:00
parent 6a3a5c60c5
commit 8839136f02

View File

@ -233,7 +233,7 @@ showModeUsage = (showText defaultWrap :: [Text] -> String) .
-- | Get a mode's long help, ready for console output -- | Get a mode's long help, ready for console output
-- (currently, the hledger man page formatted for 80 columns). -- (currently, the hledger man page formatted for 80 columns).
showModeHelp :: Mode a -> String showModeHelp :: Mode a -> String
showModeHelp _ = lookupDocTxt "hledger" showModeHelp _ = lookupDocTxt "cli"
-- | Add command aliases to the command's help string. -- | Add command aliases to the command's help string.
withAliases :: String -> [String] -> String withAliases :: String -> [String] -> String