Fix minor bug introduced in e7e771d14ac671904a69abecf9e133d4647026c1
authorSimon Marlow <marlowsd@gmail.com>
Tue, 3 Jan 2012 13:22:23 +0000 (13:22 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Tue, 3 Jan 2012 15:01:00 +0000 (15:01 +0000)
ghc/InteractiveUI.hs

index de65b1d..1d243be 100644 (file)
@@ -641,7 +641,7 @@ runOneCommand eh gCmd = do
                             (\c -> case removeSpaces c of
                                      ""   -> noSpace q
                                      ":{" -> multiLineCmd q
-                                     _    -> return (Just c) )
+                                     c'   -> return (Just c') )
     multiLineCmd q = do
       st <- lift getGHCiState
       let p = prompt st