git.iko.soy/elk
on master help sign in
Finish removing autocompletion stuff
50a5c31Evan Czaplicki
ui/terminal/src/Terminal/Args.hs+5−8
compare with master
unifiedsplit
@@ -48,15 +48,12 @@ simple details example args_ flags_ callback =
48 Error.exitWithHelp Nothing details example args_ flags_
48 Error.exitWithHelp Nothing details example args_ flags_
49
49
50 else
50 else
51− do maybeAutoComplete chunks $ \index cs ->
52− fst $ Chomp.chomp (Just index) cs args_ flags_
51+ case snd $ Chomp.chomp Nothing chunks args_ flags_ of
52+ Right (argsValue, flagValue) ->
53+ callback argsValue flagValue
53
54
54− case snd $ Chomp.chomp Nothing chunks args_ flags_ of
55− Right (argsValue, flagValue) ->
56− callback argsValue flagValue
57−
58− Left err ->
55+ Left err ->
59− Error.exitWithError err
56+ Error.exitWithError err
60
57
61
58
62complex :: P.Doc -> P.Doc -> [Interface] -> IO ()
59complex :: P.Doc -> P.Doc -> [Interface] -> IO ()