diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-07-14 20:48:42 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-07-14 20:57:37 +0100 |
| commit | 7ae1bec53801069661e249e47ebd6998d6450093 (patch) | |
| tree | 3bf00efb097a569173b2c2e9fe1d10347508c6ba /compiler/prelude/PrelRules.lhs | |
| parent | 18f82197efbc2b930b123032fd7828626c04ee43 (diff) | |
| download | haskell-7ae1bec53801069661e249e47ebd6998d6450093.tar.gz | |
Implement FastBytes, and use it for MachStr
This is a first step on the way to refactoring the FastString type.
FastBytes currently has no unique, mainly because there isn't currently
a nice way to produce them in Binary.
Also, we don't currently do the "Dictionary" thing with FastBytes in
Binary. I'm not sure whether this is important.
We can change both decisions later, but in the meantime this gets the
refactoring underway.
Diffstat (limited to 'compiler/prelude/PrelRules.lhs')
| -rw-r--r-- | compiler/prelude/PrelRules.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/prelude/PrelRules.lhs b/compiler/prelude/PrelRules.lhs index 7aeb920e0c..713726288f 100644 --- a/compiler/prelude/PrelRules.lhs +++ b/compiler/prelude/PrelRules.lhs @@ -737,7 +737,7 @@ match_append_lit _ [Type ty1, c1 `cheapEqExpr` c2 = ASSERT( ty1 `eqType` ty2 ) Just (Var unpk `App` Type ty1 - `App` Lit (MachStr (s1 `appendFS` s2)) + `App` Lit (MachStr (s1 `appendFB` s2)) `App` c1 `App` n) |