Skip to content

Commit a19121e

Browse files
committed
Fix associativity of size in caseConvert
Fixes #221.
1 parent 0af4c5a commit a19121e

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

Data/Text/Internal/Fusion/Common.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -400,7 +400,7 @@ intersperse c (Stream next0 s0 len) = Stream next (I1 s0) (len + unknownSize)
400400
caseConvert :: (forall s. Char -> s -> Step (CC s) Char)
401401
-> Stream Char -> Stream Char
402402
caseConvert remap (Stream next0 s0 len) =
403-
Stream next (CC s0 '\0' '\0') (len `unionSize` 3*len)
403+
Stream next (CC s0 '\0' '\0') (len `unionSize` (3*len))
404404
where
405405
next (CC s '\0' _) =
406406
case next0 s of

0 commit comments

Comments
 (0)