From: simonmar <unknown>
Date: Mon, 18 Oct 2004 15:38:27 +0000 (+0000)
Subject: [project @ 2004-10-18 15:38:27 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~1493
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=d18f6b1ec58f8b9e3f67768da8d4daf31d7e79f8;p=ghc-hetmet.git

[project @ 2004-10-18 15:38:27 by simonmar]
Fix a source location bug (by deleting a line of code!)
---

diff --git a/ghc/compiler/typecheck/TcExpr.lhs b/ghc/compiler/typecheck/TcExpr.lhs
index 42fd249..03d346f 100644
--- a/ghc/compiler/typecheck/TcExpr.lhs
+++ b/ghc/compiler/typecheck/TcExpr.lhs
@@ -363,7 +363,6 @@ tc_expr expr@(RecordCon con@(L loc con_name) rbinds) res_ty
  	-- Check for missing fields
     checkMissingFields data_con rbinds		`thenM_` 
 
-    getSrcSpanM					`thenM` \ loc ->
     returnM (RecordConOut data_con (L loc con_expr) rbinds')
 
 -- The main complication with RecordUpd is that we need to explicitly