projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
2204a48
)
Fix build
author
Ian Lynagh
<igloo@earth.li>
Sun, 4 Jan 2009 21:18:10 +0000
(21:18 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Sun, 4 Jan 2009 21:18:10 +0000
(21:18 +0000)
compiler/ghci/InteractiveUI.hs
patch
|
blob
|
history
diff --git
a/compiler/ghci/InteractiveUI.hs
b/compiler/ghci/InteractiveUI.hs
index
c1062e7
..
d62b370
100644
(file)
--- a/
compiler/ghci/InteractiveUI.hs
+++ b/
compiler/ghci/InteractiveUI.hs
@@
-1674,8
+1674,8
@@
completeNone :: String -> IO [String]
completeNone _w = return []
completeMacro, completeIdentifier, completeModule,
completeNone _w = return []
completeMacro, completeIdentifier, completeModule,
- completeHomeModule, completeSetOptions, completeFilename,
- completeHomeModuleOrFile
+ completeHomeModule, completeSetOptions, completeShowOptions,
+ completeFilename, completeHomeModuleOrFile
:: String -> IO [String]
#ifdef USE_EDITLINE
:: String -> IO [String]
#ifdef USE_EDITLINE
@@
-1754,9
+1754,9
@@
completeSetOptions w = do
completeShowOptions w = do
return (filter (w `isPrefixOf`) options)
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
completeFilename w = do
ws <- Readline.filenameCompletionFunction w