X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fghci%2FInteractiveUI.hs;fp=compiler%2Fghci%2FInteractiveUI.hs;h=d62b3709d96b680b7e0164f55933bae5722e8705;hp=c1062e7138560b522b516d2c1d5514b40cac6294;hb=70f981b9dc28d94748ce91469df5bc12f0c6c60c;hpb=2204a484bd6899cf57e3d13c3ee471558ae43b93

diff --git a/compiler/ghci/InteractiveUI.hs b/compiler/ghci/InteractiveUI.hs
index c1062e7..d62b370 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