Remove a rewrite rule that makes GHC 7.4.1 ill
The effect of the rule was to make isPrefixOf infloop; see [GHC bug
5783](http://hackage.haskell.org/trac/ghc/ticket/5783) for details.
This fixes gh-16.
commitb92886bbc07d678d4524adc6c5600a05309d9f24
authorBryan O'Sullivan <bos@serpentine.com>
dateMon 23 Jan 2012, 17:08 (15 years ago)
parent730a33f
Data/Text.hs−2
@@ -1439,8 +1439,6 @@ isPrefixOf a@(Text _ _ alen) b@(Text _ _ blen) =
14391439{-# RULES
14401440"TEXT isPrefixOf -> fused" [~1] forall s t.
14411441 isPrefixOf s t = S.isPrefixOf (stream s) (stream t)
1442−"TEXT isPrefixOf -> unfused" [1] forall s t.
1443− S.isPrefixOf (stream s) (stream t) = isPrefixOf s t
14441442 #-}
14451443
14461444-- | /O(n)/ The 'isSuffixOf' function takes two 'Text's and returns