Fix a rewrite rule's name.
--HG--
extra : convert_revision : 9470dcc3a049eeab9ba2e4c2ce43daa5e8f515ff
commitef0bf0e4b8a0b3d1aaaa5aa2d444695c7425faad
authorBryan O'Sullivan <bos@serpentine.com>
dateSun 16 Aug 2009, 06:33 (17 years ago)
parent4c25b63
Data/Text/Lazy.hs+2−2
@@ -394,9 +394,9 @@ justifyLeft k c t
394394{-# INLINE [1] justifyLeft #-}
395395
396396{-# RULES
397−"TEXT justifyLeft -> fused" [~1] forall k c t.
397+"LAZY TEXT justifyLeft -> fused" [~1] forall k c t.
398398 justifyLeft k c t = unstream (S.justifyLeftI k c (stream t))
399−"TEXT justifyLeft -> unfused" [1] forall k c t.
399+"LAZY TEXT justifyLeft -> unfused" [1] forall k c t.
400400 unstream (S.justifyLeftI k c (stream t)) = justifyLeft k c t
401401 #-}
402402