From 03b3893fc87c35edabc33a2c533e479e69da76fe Mon Sep 17 00:00:00 2001
From: tomsmeding <tom.smeding@gmail.com>
Date: Thu, 25 May 2017 17:37:48 +0200
Subject: Flush stdout on getchar

---
 rip.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/rip.hs b/rip.hs
index 553d881..0ad0ed0 100644
--- a/rip.hs
+++ b/rip.hs
@@ -270,6 +270,7 @@ rip' code@(x:xs) fns conns st = do
             rip' xs fns conns (tail st)
 
         'g' -> do
+            hFlush stdout
             n <- liftM (maybe (-1) ord) safeGetChar
             rip' xs fns conns (fromIntegral n : st)
 
-- 
cgit v1.2.3-70-g09d2