projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Handle introduction of MkCore in MatchCon
[ghc-hetmet.git]
/
compiler
/
deSugar
/
DsBinds.lhs
diff --git
a/compiler/deSugar/DsBinds.lhs
b/compiler/deSugar/DsBinds.lhs
index
2ecbd0e
..
b1b77d0
100644
(file)
--- a/
compiler/deSugar/DsBinds.lhs
+++ b/
compiler/deSugar/DsBinds.lhs
@@
-26,6
+26,7
@@
import DsUtils
import HsSyn -- lots of things
import CoreSyn -- lots of things
import HsSyn -- lots of things
import CoreSyn -- lots of things
+import MkCore
import CoreUtils
import CoreFVs
import CoreUtils
import CoreFVs
@@
-346,9
+347,9
@@
dsSpec all_tvs dicts tvs poly_id mono_id mono_bind
case mb_lhs of
Nothing -> do { warnDs decomp_msg; return Nothing }
case mb_lhs of
Nothing -> do { warnDs decomp_msg; return Nothing }
- Just (_, args) -> do
-
- { f_body <- fix_up (Let mono_bind (Var mono_id))
+ Just (_, args) -> do {
+
+ f_body <- fix_up (Let mono_bind (Var mono_id))
; let local_poly = setIdNotExported poly_id
-- Very important to make the 'f' non-exported,
; let local_poly = setIdNotExported poly_id
-- Very important to make the 'f' non-exported,