@@ -100,7 +100,7 @@ copy src dest = (do
100100 (_,max) <- getBounds src
101101 copy_loop 0 max)
102102 where
103− copy_loop !i !max
103+ copy_loop i max
104104 | i > max = return ()
105105 | otherwise = do v <- unsafeRead src i
106106 unsafeWrite dest i v
@@ -475,7 +475,7 @@ length :: Stream Char -> Int
475475length (Stream next s0 len) = loop_length 0# s0
476476 where
477477
478− loop_length z# !s = case next s of
478+ loop_length z# s = case next s of
479479 Done -> (I# z#)
480480 Skip s' -> loop_length z# s'
481481 Yield _ s' -> loop_length (z# +# 1#) s'