X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypecheck%2FTcDefaults.lhs;h=d714ddd21ac0bb1cd0a9009565ea2aadc68b0a16;hb=5cf27e8f1731c52fe63a5b9615f927484164c61b;hp=0296080e8aa8679c9d627b6677be4303c4f74213;hpb=ca5a4a480d10d61e5b7a52eb4d556e8b8c33e69d;p=ghc-hetmet.git

diff --git a/ghc/compiler/typecheck/TcDefaults.lhs b/ghc/compiler/typecheck/TcDefaults.lhs
index 0296080..d714ddd 100644
--- a/ghc/compiler/typecheck/TcDefaults.lhs
+++ b/ghc/compiler/typecheck/TcDefaults.lhs
@@ -47,8 +47,8 @@ tcDefaults [DefaultDecl mono_tys locn]
 	    -- We only care about whether it worked or not
 
 	tcLookupClassByKey numClassKey			`thenNF_Tc` \ num ->
-	tcSimplifyCheckThetas DefaultDeclOrigin
-		[ (num, ty) | ty <- tau_tys ]		`thenTc` \ _ ->
+	tcSimplifyCheckThetas
+		[ (num, ty) | ty <- tau_tys ]		`thenTc_`
 
 	returnTc tau_tys