1 files changed, 2 insertions, 0 deletions
diff --git a/src/Main.hs b/src/Main.hs
index 88a7259..9987b29 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -6,6 +6,7 @@ import Data.Text (Text)
 import qualified Data.Text as T
 import System.Environment (getArgs)
 import System.Exit (die)
+import System.IO (hFlush, stdout)
 
 import Ghci
 import IRC
@@ -29,6 +30,7 @@ mainIRC = do
     (\t -> T.take 2 t == T.pack "% ")
     (\recvmsg -> do
       putStrLn $ "Responding to " ++ T.unpack recvmsg
+      hFlush stdout
       ghci <- takeMVar ghcivar
       (ghci', msgs) <- runInGhci ghci (T.drop 2 recvmsg)
       putMVar ghcivar ghci'