Make sure the --help flag is always suggested
commit3f76477e8072dfa868b0b3f62caf0745d8e7800e
authorEvan Czaplicki <evancz@users.noreply.github.com>
dateMon 9 Apr 2018, 22:00 (9 years ago)
parent2ec15df
ui/terminal/src/Terminal/Args/Chomp.hs+1−1
@@ -454,7 +454,7 @@ getFlagNames :: Flags a -> [String] -> [String]
454454getFlagNames flags names =
455455 case flags of
456456 FDone _ ->
457− names
457+ "--help" : names
458458
459459 FMore subFlags flag ->
460460 getFlagNames subFlags (getFlagName flag : names)