@@ -43,16 +43,6 @@ simple details example args_ flags_ callback =
4343 do hPutStrLn stdout (Pkg.versionToString Compiler.version)
4444 Exit.exitSuccess
4545
46− "autocomplete" : n : chunks ->
47− case Read.readMaybe n of
48− Nothing ->
49− Exit.exitFailure
50−
51− Just index ->
52− do suggestions <- fst $ Chomp.chomp (Just index) chunks args_ flags_
53− hPutStr stdout (unlines suggestions)
54− Exit.exitFailure
55−
5646 chunks ->
5747 if elem "--help" chunks then
5848 Error.exitWithHelp Nothing details example args_ flags_
@@ -83,19 +73,8 @@ complex intro outro interfaces =
8373 do hPutStrLn stdout (Pkg.versionToString Compiler.version)
8474 Exit.exitSuccess
8575
86− "autocomplete" : n : chunks ->
87− case Read.readMaybe n of
88− Nothing ->
89− Exit.exitFailure
90−
91− Just index ->
92− do suggestions <- complexSuggest interfaces index chunks
93− hPutStr stdout (unlines suggestions)
94− Exit.exitFailure
95−
9676 command : chunks ->
97− do maybeAutoComplete argStrings (complexSuggest interfaces)
98− case List.find (\iface -> toName iface == command) interfaces of
77+ do case List.find (\iface -> toName iface == command) interfaces of
9978 Nothing ->
10079 Error.exitWithUnknown command (map toName interfaces)
10180
@@ -116,8 +95,8 @@ complex intro outro interfaces =
11695-- AUTO-COMPLETE
11796
11897
119−maybeAutoComplete :: [String] -> (Int -> [String] -> IO [String]) -> IO ()
120−maybeAutoComplete argStrings getSuggestions =
98+_maybeAutoComplete :: [String] -> (Int -> [String] -> IO [String]) -> IO ()
99+_maybeAutoComplete argStrings getSuggestions =
121100 if length argStrings /= 3 then
122101 return ()
123102 else