From: simonmar <unknown>
Date: Fri, 23 Nov 2001 12:03:59 +0000 (+0000)
Subject: [project @ 2001-11-23 12:03:59 by simonmar]
X-Git-Tag: Approximately_9120_patches~535
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f4faa9421a189ee866b32b0fb834d983bc3bb09a;p=ghc-hetmet.git

[project @ 2001-11-23 12:03:59 by simonmar]
Replace a lazy pattern match in tcGetInstLoc with a strict one (fixes
a space leak).
---

diff --git a/ghc/compiler/typecheck/TcMonad.lhs b/ghc/compiler/typecheck/TcMonad.lhs
index d613e07..cbd8c58 100644
--- a/ghc/compiler/typecheck/TcMonad.lhs
+++ b/ghc/compiler/typecheck/TcMonad.lhs
@@ -487,7 +487,8 @@ tcGetSrcLoc :: NF_TcM SrcLoc
 tcGetSrcLoc down env = return (getLoc down)
 
 tcGetInstLoc :: InstOrigin -> NF_TcM InstLoc
-tcGetInstLoc origin down env = return (origin, getLoc down, getErrCtxt down)
+tcGetInstLoc origin TcDown{tc_loc=loc, tc_ctxt=ctxt} env
+   = return (origin, loc, ctxt)
 
 tcSetErrCtxtM, tcAddErrCtxtM :: (TidyEnv -> NF_TcM (TidyEnv, Message))
 			     -> TcM a -> TcM a