[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 (file)
--- 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_` 
 
        -- 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
     returnM (RecordConOut data_con (L loc con_expr) rbinds')
 
 -- The main complication with RecordUpd is that we need to explicitly