diff options
| author | Manuel M T Chakravarty <chak@cse.unsw.edu.au> | 2006-09-15 21:02:06 +0000 |
|---|---|---|
| committer | Manuel M T Chakravarty <chak@cse.unsw.edu.au> | 2006-09-15 21:02:06 +0000 |
| commit | 7f7be6d1bb33393c1d384923fe938b7c10acbeec (patch) | |
| tree | 57ceb9368f696f2804bd88ece7e2f04507056797 | |
| parent | 82c4d36b187955e3cedbb11cff92688747773456 (diff) | |
| download | haskell-7f7be6d1bb33393c1d384923fe938b7c10acbeec.tar.gz | |
Fix class construction
Wed Aug 2 13:34:58 EDT 2006 Manuel M T Chakravarty <chak@cse.unsw.edu.au>
* Fix class construction
| -rw-r--r-- | compiler/hsSyn/Convert.lhs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/hsSyn/Convert.lhs b/compiler/hsSyn/Convert.lhs index 4dd3a6d522..cd5b36d622 100644 --- a/compiler/hsSyn/Convert.lhs +++ b/compiler/hsSyn/Convert.lhs @@ -125,11 +125,11 @@ cvtTop (NewtypeD ctxt tc tvs constr derivs) ; returnL $ TyClD (mkTyData NewType stuff Nothing [con'] derivs') } cvtTop (ClassD ctxt cl tvs fds decs) - = do { stuff <- cvt_tycl_hdr ctxt cl tvs + = do { (cxt', tc', tvs', _) <- cvt_tycl_hdr ctxt cl tvs ; fds' <- mapM cvt_fundep fds ; (binds', sigs') <- cvtBindsAndSigs decs - ; returnL $ TyClD $ mkClassDecl stuff fds' sigs' binds' [] - -- ^^no ATs in TH + ; returnL $ TyClD $ mkClassDecl (cxt', tc', tvs') fds' sigs' binds' [] + -- no ATs in TH^^ } cvtTop (InstanceD tys ty decs) |