on master help sign in
Fix rules annotation
c88ba28Bryan O'Sullivan
Data/Text/Lazy.hs+2−2
@@ -289,9 +289,9 @@ null _ = False
289{-# INLINE [1] null #-}
289{-# INLINE [1] null #-}
290
290
291{-# RULES
291{-# RULES
292−"TEXT null -> fused" [~1] forall t.
292+"LAZY TEXT null -> fused" [~1] forall t.
293 null t = S.null (stream t)
293 null t = S.null (stream t)
294−"TEXT null -> unfused" [1] forall t.
294+"LAZY TEXT null -> unfused" [1] forall t.
295 S.null (stream t) = null t
295 S.null (stream t) = null t
296 #-}
296 #-}
297
297