git.iko.soy/elk
on master help sign in
Make sure the --help flag is always suggested
3f76477Evan Czaplicki
ui/terminal/src/Terminal/Args/Chomp.hs+1−1
compare with master
unifiedsplit
@@ -454,7 +454,7 @@ getFlagNames :: Flags a -> [String] -> [String]
454getFlagNames flags names =
454getFlagNames flags names =
455 case flags of
455 case flags of
456 FDone _ ->
456 FDone _ ->
457− names
457+ "--help" : names
458
458
459 FMore subFlags flag ->
459 FMore subFlags flag ->
460 getFlagNames subFlags (getFlagName flag : names)
460 getFlagNames subFlags (getFlagName flag : names)