on master help sign in
Fix a rewrite rule's name.
ef0bf0eBryan O'Sullivan
Data/Text/Lazy.hs+2−2
@@ -394,9 +394,9 @@ justifyLeft k c t
394{-# INLINE [1] justifyLeft #-}
394{-# INLINE [1] justifyLeft #-}
395
395
396{-# RULES
396{-# RULES
397−"TEXT justifyLeft -> fused" [~1] forall k c t.
397+"LAZY TEXT justifyLeft -> fused" [~1] forall k c t.
398 justifyLeft k c t = unstream (S.justifyLeftI k c (stream t))
398 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.
400 unstream (S.justifyLeftI k c (stream t)) = justifyLeft k c t
400 unstream (S.justifyLeftI k c (stream t)) = justifyLeft k c t
401 #-}
401 #-}
402
402