We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 0af4c5a commit a19121eCopy full SHA for a19121e
Data/Text/Internal/Fusion/Common.hs
@@ -400,7 +400,7 @@ intersperse c (Stream next0 s0 len) = Stream next (I1 s0) (len + unknownSize)
400
caseConvert :: (forall s. Char -> s -> Step (CC s) Char)
401
-> Stream Char -> Stream Char
402
caseConvert remap (Stream next0 s0 len) =
403
- Stream next (CC s0 '\0' '\0') (len `unionSize` 3*len)
+ Stream next (CC s0 '\0' '\0') (len `unionSize` (3*len))
404
where
405
next (CC s '\0' _) =
406
case next0 s of
0 commit comments