X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypecheck%2FTcRnMonad.lhs;fp=ghc%2Fcompiler%2Ftypecheck%2FTcRnMonad.lhs;h=71a20d82f4915adb6c71977e99967c8a18da5684;hb=00007e64fd17385867ab6b835a2ef77575e86229;hp=41e1133a605f6881baab7b4f0713eebeefcfed0c;hpb=0600a65decbd51ded35b950073caafa645405de0;p=ghc-hetmet.git

diff --git a/ghc/compiler/typecheck/TcRnMonad.lhs b/ghc/compiler/typecheck/TcRnMonad.lhs
index 41e1133..71a20d8 100644
--- a/ghc/compiler/typecheck/TcRnMonad.lhs
+++ b/ghc/compiler/typecheck/TcRnMonad.lhs
@@ -109,6 +109,7 @@ initTc hsc_env hsc_src mod do_this
 		tcl_ctxt       = [],
 		tcl_rdr	       = emptyLocalRdrEnv,
 		tcl_th_ctxt    = topStage,
+		tcl_arrow_ctxt = panic "initTc:arrow",	-- only used inside proc
 		tcl_env        = emptyNameEnv,
 		tcl_tyvars     = tvs_var,
 		tcl_lie	       = panic "initTc:LIE",	-- LIE only valid inside a getLIE