projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2004-10-01 16:39:26 by simonpj]
[ghc-hetmet.git]
/
ghc
/
compiler
/
hsSyn
/
Convert.lhs
diff --git
a/ghc/compiler/hsSyn/Convert.lhs
b/ghc/compiler/hsSyn/Convert.lhs
index
e709d4d
..
af3350c
100644
(file)
--- a/
ghc/compiler/hsSyn/Convert.lhs
+++ b/
ghc/compiler/hsSyn/Convert.lhs
@@
-78,14
+78,14
@@
cvt_top (TySynD tc tvs rhs)
cvt_top (DataD ctxt tc tvs constrs derivs)
= Left $ TyClD (mkTyData DataType
cvt_top (DataD ctxt tc tvs constrs derivs)
= Left $ TyClD (mkTyData DataType
- (cvt_context ctxt, noLoc (tconName tc), cvt_tvs tvs)
- (map mk_con constrs)
+ (noLoc (cvt_context ctxt, noLoc (tconName tc), cvt_tvs tvs))
+ Nothing (map mk_con constrs)
(mk_derivs derivs))
cvt_top (NewtypeD ctxt tc tvs constr derivs)
= Left $ TyClD (mkTyData NewType
(mk_derivs derivs))
cvt_top (NewtypeD ctxt tc tvs constr derivs)
= Left $ TyClD (mkTyData NewType
- (cvt_context ctxt, noLoc (tconName tc), cvt_tvs tvs)
- [mk_con constr]
+ (noLoc (cvt_context ctxt, noLoc (tconName tc), cvt_tvs tvs))
+ Nothing [mk_con constr]
(mk_derivs derivs))
cvt_top (ClassD ctxt cl tvs decs)
(mk_derivs derivs))
cvt_top (ClassD ctxt cl tvs decs)