Fix RULES annotation.
--HG--
extra : convert_revision : ca08585ce23da4c482945b5de32215f173c76187
commit751bf243bc936ac13d8fa3d87e82d7961ce464ea
authorBryan O'Sullivan <bos@serpentine.com>
dateTue 3 Mar 2009, 00:15 (18 years ago)
parent265e2e6
Data/Text/Lazy.hs+2−2
@@ -257,9 +257,9 @@ tail Empty = emptyError "tail"
257257{-# INLINE [1] tail #-}
258258
259259{-# RULES
260−"TEXT tail -> fused" [~1] forall t.
260+"LAZY TEXT tail -> fused" [~1] forall t.
261261 tail t = unstream (S.tail (stream t))
262−"TEXT tail -> unfused" [1] forall t.
262+"LAZY TEXT tail -> unfused" [1] forall t.
263263 unstream (S.tail (stream t)) = tail t
264264 #-}
265265