Commits

Felipe Lessa  committed 577ed5d

Avoid creating big thunks for the More data type inside addS.

  • Participants
  • Parent commits 5078d38

Comments (0)

Files changed (1)

File Data/Attoparsec/Internal.hs

 addS i0 a0 m0 _i1 a1 m1 f =
     let !i = I (unI i0 +++ unA a1)
         a  = A (unA a0 +++ unA a1)
-        m  = m0 <> m1
+        !m = m0 <> m1
     in f i a m
   where
     Complete <> _ = Complete