diff options
-rw-r--r-- | rip.hs | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -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) |