X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fprelude%2FPrelRules.lhs;h=67eb06f9d975514ece9902170ddf40c3ce6e6d8e;hb=7e8cba32c6f045dde3db8a9ddc9831ec8ab4ed43;hp=2555dcc3eb4c6b1b15f98b88a687cebb6a8761c6;hpb=934a8cdc2b593acdda1263a737aeadfaa029a478;p=ghc-hetmet.git

diff --git a/compiler/prelude/PrelRules.lhs b/compiler/prelude/PrelRules.lhs
index 2555dcc..67eb06f 100644
--- a/compiler/prelude/PrelRules.lhs
+++ b/compiler/prelude/PrelRules.lhs
@@ -20,7 +20,8 @@ module PrelRules ( primOpRules, builtinRules ) where
 #include "HsVersions.h"
 
 import CoreSyn
-import Id		( mkWildId, idUnfolding )
+import MkCore		( mkWildCase )
+import Id		( idUnfolding )
 import Literal		( Literal(..), mkMachInt, mkMachWord
 			, literalType
 			, word2IntLit, int2WordLit
@@ -340,7 +341,7 @@ litEq op_name is_eq
     rule_fn _    	    = Nothing
     
     do_lit_eq lit expr
-      = Just (Case expr (mkWildId (literalType lit)) boolTy
+      = Just (mkWildCase expr (literalType lit) boolTy
 		    [(DEFAULT,    [], val_if_neq),
 		     (LitAlt lit, [], val_if_eq)])
     val_if_eq  | is_eq     = trueVal
@@ -564,4 +565,4 @@ match_inline (Type _ : e : _)
   = Just (mkApps unf args1)
 
 match_inline _ = Nothing
-\end{code}		
+\end{code}