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

diff --git a/compiler/prelude/PrelRules.lhs b/compiler/prelude/PrelRules.lhs
index bacd1bc..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