aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authortomsmeding <tom.smeding@gmail.com>2017-05-25 17:37:48 +0200
committertomsmeding <tom.smeding@gmail.com>2017-05-25 17:37:48 +0200
commit03b3893fc87c35edabc33a2c533e479e69da76fe (patch)
treed37f6da9203a5ae1e1ba053b1401ead1115218b2
parented813ac55310dfb1fbc391bcfbce7d5e44c64114 (diff)
Flush stdout on getchar
-rw-r--r--rip.hs1
1 files changed, 1 insertions, 0 deletions
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)