Fix rules annotation
--HG--
extra : convert_revision : 852904b0083d2f6b96a88921d4026676cc558547
commitc88ba282b751e27849e77efffa5529078d8faba9
authorBryan O'Sullivan <bos@serpentine.com>
dateTue 3 Mar 2009, 00:33 (18 years ago)
parent5f86c68
Data/Text/Lazy.hs+2−2
@@ -289,9 +289,9 @@ null _ = False
289289{-# INLINE [1] null #-}
290290
291291{-# RULES
292−"TEXT null -> fused" [~1] forall t.
292+"LAZY TEXT null -> fused" [~1] forall t.
293293 null t = S.null (stream t)
294−"TEXT null -> unfused" [1] forall t.
294+"LAZY TEXT null -> unfused" [1] forall t.
295295 S.null (stream t) = null t
296296 #-}
297297