projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Make record selectors into ordinary functions
[ghc-hetmet.git]
/
compiler
/
prelude
/
PrelRules.lhs
diff --git
a/compiler/prelude/PrelRules.lhs
b/compiler/prelude/PrelRules.lhs
index
bacd1bc
..
67eb06f
100644
(file)
--- a/
compiler/prelude/PrelRules.lhs
+++ b/
compiler/prelude/PrelRules.lhs
@@
-20,7
+20,8
@@
module PrelRules ( primOpRules, builtinRules ) where
#include "HsVersions.h"
import CoreSyn
#include "HsVersions.h"
import CoreSyn
-import Id ( mkWildId, idUnfolding )
+import MkCore ( mkWildCase )
+import Id ( idUnfolding )
import Literal ( Literal(..), mkMachInt, mkMachWord
, literalType
, word2IntLit, int2WordLit
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
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
[(DEFAULT, [], val_if_neq),
(LitAlt lit, [], val_if_eq)])
val_if_eq | is_eq = trueVal