@@ -39,7 +39,7 @@ simple :: String -> P.Doc -> Args args -> Flags flags -> (args -> flags -> IO ()
39simple details example args_ flags_ callback =
39simple details example args_ flags_ callback =
40 do argStrings <- Env.getArgs
40 do argStrings <- Env.getArgs
41 case argStrings of
41 case argStrings of
42− "<autocomplete>" : number : chunks ->
42+ "autocomplete" : number : chunks ->
43 attemptAutoComplete number $ \index ->
43 attemptAutoComplete number $ \index ->
44 fst $ Chomp.chomp (Just index) chunks args_ flags_
44 fst $ Chomp.chomp (Just index) chunks args_ flags_
@@ -74,7 +74,7 @@ complex intro outro interfaces =
74 do hPutStrLn stdout (Pkg.versionToString Compiler.version)
74 do hPutStrLn stdout (Pkg.versionToString Compiler.version)
75 Exit.exitSuccess
75 Exit.exitSuccess
77− "<autocomplete>" : number : chunks ->
77+ "autocomplete" : number : chunks ->
78 attemptAutoComplete number $ \index ->
78 attemptAutoComplete number $ \index ->
79 complexSuggest index chunks interfaces
79 complexSuggest index chunks interfaces