diff options
| author | Ian Lynagh <igloo@earth.li> | 2009-01-04 21:18:10 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2009-01-04 21:18:10 +0000 |
| commit | 70f981b9dc28d94748ce91469df5bc12f0c6c60c (patch) | |
| tree | db8cd2e525eac48d81a27e4896ef5b5fc5242bc0 /compiler/ghci | |
| parent | 2204a484bd6899cf57e3d13c3ee471558ae43b93 (diff) | |
| download | haskell-70f981b9dc28d94748ce91469df5bc12f0c6c60c.tar.gz | |
Fix build
Diffstat (limited to 'compiler/ghci')
| -rw-r--r-- | compiler/ghci/InteractiveUI.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/compiler/ghci/InteractiveUI.hs b/compiler/ghci/InteractiveUI.hs index c1062e7138..d62b3709d9 100644 --- a/compiler/ghci/InteractiveUI.hs +++ b/compiler/ghci/InteractiveUI.hs @@ -1674,8 +1674,8 @@ completeNone :: String -> IO [String] completeNone _w = return [] completeMacro, completeIdentifier, completeModule, - completeHomeModule, completeSetOptions, completeFilename, - completeHomeModuleOrFile + completeHomeModule, completeSetOptions, completeShowOptions, + completeFilename, completeHomeModuleOrFile :: String -> IO [String] #ifdef USE_EDITLINE @@ -1754,9 +1754,9 @@ completeSetOptions w = do completeShowOptions w = do return (filter (w `isPrefixOf`) options) - where options = - ["args", "prog", "prompt", "editor", "stop", "modules", "bindings", - "linker", "breaks", "context", "packages", "languages"] + where options = ["args", "prog", "prompt", "editor", "stop", + "modules", "bindings", "linker", "breaks", + "context", "packages", "languages"] completeFilename w = do ws <- Readline.filenameCompletionFunction w |