aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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)