[project @ 2004-10-18 15:38:27 by simonmar]

Fix a source location bug (by deleting a line of code!)

[project @ 2004-10-18 15:38:27 by simonmar]
Fix a source location bug (by deleting a line of code!)
d18f6b1e · simonmar · c9613892 · d18f6b1e
Commit d18f6b1e authored Oct 18, 2004 by simonmar
--- 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