Flush stdout on getchar

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)