X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypecheck%2FTcInstUtil.lhs;fp=ghc%2Fcompiler%2Ftypecheck%2FTcInstUtil.lhs;h=0a0bc858cb9cc1a5951a54db91dbf2e4affabaa3;hb=1c3601593186639f1086bc402582ff56fd3fe9f8;hp=bc1814e7ee2b6c2df76bd6d69ca6cd015121921d;hpb=52abeea72f9b5ac0dae896db49e7391f12de1fb3;p=ghc-hetmet.git

diff --git a/ghc/compiler/typecheck/TcInstUtil.lhs b/ghc/compiler/typecheck/TcInstUtil.lhs
index bc1814e..0a0bc85 100644
--- a/ghc/compiler/typecheck/TcInstUtil.lhs
+++ b/ghc/compiler/typecheck/TcInstUtil.lhs
@@ -92,7 +92,7 @@ classDataCon clas = case tyConDataCons (classTyCon clas) of
 %************************************************************************
 
 \begin{code}
-buildInstanceEnv :: Bag InstInfo -> NF_TcM s InstEnv
+buildInstanceEnv :: Bag InstInfo -> NF_TcM InstEnv
 
 buildInstanceEnv info = --pprTrace "BuildInstanceEnv" (ppr info)
 			foldrNF_Tc addClassInstance emptyInstEnv (bagToList info)
@@ -106,7 +106,7 @@ about any overlap with an existing instance.
 addClassInstance
     :: InstInfo
     -> InstEnv
-    -> NF_TcM s InstEnv
+    -> NF_TcM InstEnv
 
 addClassInstance 
     (InstInfo clas inst_tyvars inst_tys _