[project @ 2002-01-29 09:58:14 by simonpj]

[ghc-hetmet.git] / ghc / compiler / prelude / PrelRules.lhs

diff --git a/ghc/compiler/prelude/PrelRules.lhs b/ghc/compiler/prelude/PrelRules.lhs
index c916e63..0ebec4f 100644 (file)
--- a/ghc/compiler/prelude/PrelRules.lhs
+++ b/ghc/compiler/prelude/PrelRules.lhs
@@ -38,7 +38,7 @@ import CoreUtils      ( exprIsValue, cheapEqExpr, exprIsConApp_maybe )
 import Type            ( tyConAppTyCon, eqType )
 import OccName         ( occNameUserString)
 import PrelNames       ( unpackCStringFoldrName, unpackCStringFoldrIdKey, hasKey,
-                         eqStringName, unpackCStringListIdKey )
+                         eqStringName, unpackCStringIdKey )
 import Name            ( Name )
 import Bits            ( Bits(..) )
 #if __GLASGOW_HASKELL__ >= 500
@@ -485,12 +485,12 @@ match_append_lit [Type ty1,
 match_append_lit other = Nothing
 
 -- The rule is this:
---     eqString (unpackCStringList# (Lit s1)) (unpackCStringList# (Lit s2) = s1==s2
+--     eqString (unpackCString# (Lit s1)) (unpackCString# (Lit s2) = s1==s2
 
 match_eq_string [Var unpk1 `App` Lit (MachStr s1),
                 Var unpk2 `App` Lit (MachStr s2)]
-  | unpk1 `hasKey` unpackCStringListIdKey,
-    unpk2 `hasKey` unpackCStringListIdKey
+  | unpk1 `hasKey` unpackCStringIdKey,
+    unpk2 `hasKey` unpackCStringIdKey
   = Just (if s1 == s2 then trueVal else falseVal)
 
 match_eq_string other = Nothing