unisonweb/unison
1
0
Fork 0
mirror of https://github.com/unisonweb/unison.git synced 2024-10-04 21:57:25 +03:00
Code Issues Projects Releases Wiki Activity

Show aliases in per command help

Browse Source
This commit is contained in:
Jonas De Vuyst 2019-10-13 14:39:31 +08:00
parent 383f8d2570
commit 6e37d28e80
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
parser-typechecker/src/Unison/CommandLine/InputPatterns.hs
View File

@ -766,7 +766,7 @@ help = InputPattern
[isHelp -> Just msg] -> Left msg
[cmd] -> case Map.lookup cmd commandsByName of
Nothing -> Left . warn $ "I don't know of that command. Try `help`."
Just pat -> Left $ I.help pat
Just pat -> Left $ showPatternHelp pat
_ -> Left $ warn "Use `help <cmd>` or `help`.")
where
commandsByName = Map.fromList [