diff options
Diffstat (limited to 'ghc/InteractiveUI.hs')
| -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 |