From: Ian Lynagh <igloo@earth.li>
Date: Sun, 4 Jan 2009 21:18:10 +0000 (+0000)
Subject: Fix build
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=70f981b9dc28d94748ce91469df5bc12f0c6c60c

Fix build
---

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