Skip to content
Browse files

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.
  • Loading branch information...
1 parent 730a33f commit b92886bbc07d678d4524adc6c5600a05309d9f24 @bos committed Jan 23, 2012
Showing with 0 additions and 2 deletions.
  1. +0 −2 Data/Text.hs
View
2 Data/Text.hs
@@ -1439,8 +1439,6 @@ isPrefixOf a@(Text _ _ alen) b@(Text _ _ blen) =
{-# RULES
"TEXT isPrefixOf -> fused" [~1] forall s t.
isPrefixOf s t = S.isPrefixOf (stream s) (stream t)
-"TEXT isPrefixOf -> unfused" [1] forall s t.
- S.isPrefixOf (stream s) (stream t) = isPrefixOf s t
#-}
-- | /O(n)/ The 'isSuffixOf' function takes two 'Text's and returns

0 comments on commit b92886b

Please sign in to comment.
Something went wrong with that request. Please try again.