Fix associativity of size in caseConvert
authorBen Gamari <ben@smart-cactus.org>
Wed, 22 Aug 2018 20:31:59 +0000 (16:31 -0400)
committerBen Gamari <ben@smart-cactus.org>
Wed, 22 Aug 2018 20:31:59 +0000 (16:31 -0400)
Fixes #221.

Data/Text/Internal/Fusion/Common.hs

index f00569b..260dd3f 100644 (file)
@@ -400,7 +400,7 @@ intersperse c (Stream next0 s0 len) = Stream next (I1 s0) (len + unknownSize)
 caseConvert :: (forall s. Char -> s -> Step (CC s) Char)
             -> Stream Char -> Stream Char
 caseConvert remap (Stream next0 s0 len) =
-    Stream next (CC s0 '\0' '\0') (len `unionSize` 3*len)
+    Stream next (CC s0 '\0' '\0') (len `unionSize` (3*len))
   where
     next (CC s '\0' _) =
         case next0 s of