From a22ade7c478d033be67634dd4a86f7590766f023 Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Fri, 18 Aug 2006 16:07:29 +0000
Subject: [PATCH] I don't thing we want to add a call-context here; it just
 clutters the output

---
 compiler/typecheck/TcExpr.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/typecheck/TcExpr.lhs b/compiler/typecheck/TcExpr.lhs
index c26d74d..67fe7d2 100644
--- a/compiler/typecheck/TcExpr.lhs
+++ b/compiler/typecheck/TcExpr.lhs
@@ -190,7 +190,7 @@ tcExpr (HsApp e1 e2) res_ty
     go :: LHsExpr Name -> [LHsExpr Name] -> TcM (HsExpr TcId)
     go (L _ (HsApp e1 e2)) args = go e1 (e2:args)
     go lfun@(L loc fun) args
-	= do { (fun', args') <- addErrCtxt (callCtxt lfun args) $
+	= do { (fun', args') <- -- addErrCtxt (callCtxt lfun args) $
 				tcApp fun (length args) (tcArgs lfun args) res_ty
 	     ; return (unLoc (foldl mkHsApp (L loc fun') args')) }
 
-- 
1.7.10.4