@@ -48,15 +48,12 @@ simple details example args_ flags_ callback =
4848 Error.exitWithHelp Nothing details example args_ flags_
4949
5050 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
5354
54− case snd $ Chomp.chomp Nothing chunks args_ flags_ of
55− Right (argsValue, flagValue) ->
56− callback argsValue flagValue
57−
58− Left err ->
59− Error.exitWithError err
55+ Left err ->
56+ Error.exitWithError err
6057
6158
6259complex :: P.Doc -> P.Doc -> [Interface] -> IO ()