Commits

Bryan O'Sullivan committed d7b5a48

Fix nasty thinko exposed on a MacBook

  • Participants
  • Parent commits 3057550

Comments (0)

Files changed (1)

File Data/Text/Fusion.hs

     | otherwise = Text arr off' len'
   where
     len0' = max len0 4
-    (arr, (off', len')) = A.run2 (A.unsafeNew len0 >>= loop s (len0'-1) len0')
+    (arr, (off', len')) = A.run2 (A.unsafeNew len0' >>= loop s (len0'-1) len0')
     loop !s0 !i !len marr =
         case next s0 of
           Done -> return (marr, (j, len-j))