X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FhsSyn%2FConvert.lhs;h=cd5b36d6224c3b4f26d72d3cea18b562ebec1307;hb=c94408e522e5af3b79a5beadc7e6d15cee553ee7;hp=4dd3a6d522bc7b8ec493aa37015cedf5e166eaa1;hpb=afef39736dcde6f4947a6f362f9e6b3586933db4;p=ghc-hetmet.git

diff --git a/compiler/hsSyn/Convert.lhs b/compiler/hsSyn/Convert.lhs
index 4dd3a6d..cd5b36d 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)