From d18f6b1ec58f8b9e3f67768da8d4daf31d7e79f8 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 18 Oct 2004 15:38:27 +0000
Subject: [PATCH] [project @ 2004-10-18 15:38:27 by simonmar] Fix a source
 location bug (by deleting a line of code!)

---
 ghc/compiler/typecheck/TcExpr.lhs |    1 -
 1 file changed, 1 deletion(-)

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
-- 
1.7.10.4