[project @ 2002-09-09 12:55:52 by simonpj]

[ghc-hetmet.git] / ghc / compiler / typecheck / TcInstDcls.lhs

diff --git a/ghc/compiler/typecheck/TcInstDcls.lhs b/ghc/compiler/typecheck/TcInstDcls.lhs
index 76b87ce..5b1d7c0 100644 (file)
--- 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) ->