diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-12-14 00:42:54 +0000 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-12-14 00:42:54 +0000 |
| commit | 7085b8419033f74a985b824b63d85aae65b55882 (patch) | |
| tree | 85a8e86c95aa8bc9b1dc06404f7eed47948150dc /compiler/prelude/PrelRules.lhs | |
| parent | c79f733460c17d66853c184ccd1782d0be21b4dc (diff) | |
| download | haskell-7085b8419033f74a985b824b63d85aae65b55882.tar.gz | |
Inline some FastBytes/ByteString wrappers
Working towards removing FastBytes
Diffstat (limited to 'compiler/prelude/PrelRules.lhs')
| -rw-r--r-- | compiler/prelude/PrelRules.lhs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/prelude/PrelRules.lhs b/compiler/prelude/PrelRules.lhs index 2ee14679b2..b58eb0a47e 100644 --- a/compiler/prelude/PrelRules.lhs +++ b/compiler/prelude/PrelRules.lhs @@ -49,6 +49,7 @@ import Util import Control.Monad import Data.Bits as Bits +import qualified Data.ByteString as BS import Data.Int import Data.Ratio import Data.Word @@ -932,7 +933,7 @@ match_append_lit _ [Type ty1, c1 `cheapEqExpr` c2 = ASSERT( ty1 `eqType` ty2 ) Just (Var unpk `App` Type ty1 - `App` Lit (MachStr (s1 `appendFB` s2)) + `App` Lit (MachStr (s1 `BS.append` s2)) `App` c1 `App` n) |