diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-01-03 13:22:23 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-01-03 15:01:00 +0000 |
| commit | aa1114ed0a938c35f0a5c229ccb0a63bed7d7c09 (patch) | |
| tree | 6b915b0afc90aabb31ef435162cec2d81c936530 /ghc | |
| parent | 7d7809de3c6e264ae4af92c37da499502fc2fb20 (diff) | |
| download | haskell-aa1114ed0a938c35f0a5c229ccb0a63bed7d7c09.tar.gz | |
Fix minor bug introduced in e7e771d14ac671904a69abecf9e133d4647026c1
Diffstat (limited to 'ghc')
| -rw-r--r-- | ghc/InteractiveUI.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/InteractiveUI.hs b/ghc/InteractiveUI.hs index de65b1d48d..1d243beace 100644 --- a/ghc/InteractiveUI.hs +++ b/ghc/InteractiveUI.hs @@ -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 |