projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Adjust code from manual merges
[ghc-hetmet.git]
/
compiler
/
deSugar
/
DsUtils.lhs
diff --git
a/compiler/deSugar/DsUtils.lhs
b/compiler/deSugar/DsUtils.lhs
index
4f44eb2
..
8c5a743
100644
(file)
--- a/
compiler/deSugar/DsUtils.lhs
+++ b/
compiler/deSugar/DsUtils.lhs
@@
-312,7
+312,7
@@
mkCoAlgCaseMatchResult var ty match_alts
arg_id1 = head arg_ids1
var_ty = idType var
(tc, ty_args) = splitNewTyConApp var_ty
arg_id1 = head arg_ids1
var_ty = idType var
(tc, ty_args) = splitNewTyConApp var_ty
- newtype_rhs = unwrapNewTypeBody tycon ty_args (Var var)
+ newtype_rhs = unwrapNewTypeBody tc ty_args (Var var)
-- Stuff for data types
data_cons = tyConDataCons tycon
-- Stuff for data types
data_cons = tyConDataCons tycon