[project @ 2001-11-23 12:03:59 by simonmar]

Replace a lazy pattern match in tcGetInstLoc with a strict one (fixes
a space leak).

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