X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypecheck%2FTcInstDcls.lhs;h=5b1d7c0e191e57d94576bcb9f71b0c067f06fe22;hb=5e392a5623fe7f896389f1b7c3fb3f340bea46a8;hp=76b87cee041eec3810d108241ab64896239ebdeb;hpb=a63bd8f558fedec86451f36d86833c9afb934ae8;p=ghc-hetmet.git

diff --git a/ghc/compiler/typecheck/TcInstDcls.lhs b/ghc/compiler/typecheck/TcInstDcls.lhs
index 76b87ce..5b1d7c0 100644
--- a/ghc/compiler/typecheck/TcInstDcls.lhs
+++ b/ghc/compiler/typecheck/TcInstDcls.lhs
@@ -569,7 +569,7 @@ tcInstDecl2 (InstInfo { iDFunId = dfun_id, iBinds = monobinds, iPrags = uprags }
 		      sc_dicts    ++ meth_insts
 
 	xtve    = inst_tyvars `zip` inst_tyvars'
-	tc_meth = tcMethodBind xtve inst_tyvars' dfun_theta' avail_insts
+	tc_meth = tcMethodBind xtve inst_tyvars' dfun_theta' avail_insts uprags
     in
     mapAndUnzipTc tc_meth meth_infos 		`thenTc` \ (meth_binds_s, meth_lie_s) ->