[project @ 1999-01-14 18:17:32 by sof]

[ghc-hetmet.git] / ghc / lib / misc / Readline.lhs

diff --git a/ghc/lib/misc/Readline.lhs b/ghc/lib/misc/Readline.lhs
index 7258726..0ddb80d 100644 (file)
--- a/ghc/lib/misc/Readline.lhs
+++ b/ghc/lib/misc/Readline.lhs
@@ -53,8 +53,8 @@ type RlCallbackFunction =
 %***************************************************************************
 \begin{code}
 
-readline :: String ->                  -- Prompt String
-           IO String                   -- Returned line
+readline :: String                     -- Prompt String
+        -> IO String                   -- Returned line
 readline prompt =  do
 --ToDo: Get the "Live register in _casm_GC_ " bug fixed
 --      this stops us passing the prompt string to readline directly :-(