From: Ian Lynagh <igloo@earth.li>
Date: Sun, 24 Feb 2008 14:32:56 +0000 (+0000)
Subject: FIX #2073: Don't add empty lines to GHCI's history
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=fe16e5d64edfa6f7200ab3ebf6c8d14571574302

FIX #2073: Don't add empty lines to GHCI's history
---

diff --git a/compiler/ghci/InteractiveUI.hs b/compiler/ghci/InteractiveUI.hs
index 2594d13..8ff83f9 100644
--- a/compiler/ghci/InteractiveUI.hs
+++ b/compiler/ghci/InteractiveUI.hs
@@ -599,6 +599,7 @@ readlineLoop = do
    splatSavedSession
    case l of
         Nothing -> return Nothing
+        Just "" -> return (Just "") -- Don't put empty lines in the history
         Just l  -> do
                    io (addHistory l)
                    str <- io $ consoleInputToUnicode True l