From a6fdf61f392cde7fdcb35bdb28250e99754d27eb Mon Sep 17 00:00:00 2001 From: Manuel M T Chakravarty Date: Thu, 6 Sep 2007 02:39:14 +0000 Subject: [PATCH] Fix -DDEBUG warning --- compiler/typecheck/TcPat.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/typecheck/TcPat.lhs b/compiler/typecheck/TcPat.lhs index ceafaed..0640675 100644 --- a/compiler/typecheck/TcPat.lhs +++ b/compiler/typecheck/TcPat.lhs @@ -597,7 +597,7 @@ tcConPat pstate con_span data_con tycon pat_ty arg_pats thing_inside (unwrapFamInstScrutinee tycon ctxt_res_tys $ ConPatOut { pat_con = L con_span data_con, pat_tvs = ex_tvs' ++ co_vars, - pat_dicts = map instToId dicts, + pat_dicts = map instToVar dicts, pat_binds = dict_binds, pat_args = arg_pats', pat_ty = pat_ty }, ex_tvs' ++ inner_tvs, res) -- 1.7.10.4