From: simonpj@microsoft.com <unknown>
Date: Wed, 14 Jun 2006 11:48:13 +0000 (+0000)
Subject: Improve location info when typechecking interface fiels
X-Git-Tag: Before_FC_branch_merge~368
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=b1a8c262a046812d70371b1caaea21ffe039ced6;hp=2b615c06e0d0d825efb4ff71e93318ca1172452f

Improve location info when typechecking interface fiels
---

diff --git a/compiler/typecheck/TcRnMonad.lhs b/compiler/typecheck/TcRnMonad.lhs
index a795339..ee3c6c6 100644
--- a/compiler/typecheck/TcRnMonad.lhs
+++ b/compiler/typecheck/TcRnMonad.lhs
@@ -1016,8 +1016,10 @@ forkM_maybe :: SDoc -> IfL a -> IfL (Maybe a)
 forkM_maybe doc thing_inside
  = do {	unsafeInterleaveM $
 	do { traceIf (text "Starting fork {" <+> doc)
-	   ; mb_res <- tryM thing_inside ;
-	     case mb_res of
+	   ; mb_res <- tryM $
+		       updLclEnv (\env -> env { if_loc = if_loc env $$ doc }) $ 
+		       thing_inside
+	   ; case mb_res of
 		Right r  -> do	{ traceIf (text "} ending fork" <+> doc)
 				; return (Just r) }
 		Left exn -> do {