Commits

Bryan O'Sullivan committed 8a5e7e7

Make streaming cons strict in its first argument

Comments (0)

Files changed (1)

Data/Text/Fusion/Common.hs

 
 -- | /O(n)/ Adds a character to the front of a Stream Char.
 cons :: Char -> Stream Char -> Stream Char
-cons w (Stream next0 s0 len) = Stream next (C1 s0) (len+1)
+cons !w (Stream next0 s0 len) = Stream next (C1 s0) (len+1)
     where
       next (C1 s) = Yield w (C0 s)
       next (C0 s) = case next0 s of