Commit f4faa942 authored by simonmar's avatar simonmar
Browse files

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

Replace a lazy pattern match in tcGetInstLoc with a strict one (fixes
a space leak).
parent c36b02d9
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment