From dfd0a66ead5d26f951109c074c685c2577aaf151 Mon Sep 17 00:00:00 2001 From: panne Date: Thu, 30 Sep 2004 19:24:53 +0000 Subject: [PATCH] [project @ 2004-09-30 19:24:53 by panne] Make it compile with a GHC 6.x. The layout rule seems to be a mystery even for one of the "fathers" of Haskell... :-} --- ghc/compiler/typecheck/TcPat.lhs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ghc/compiler/typecheck/TcPat.lhs b/ghc/compiler/typecheck/TcPat.lhs index c038f7e..f831b75 100644 --- a/ghc/compiler/typecheck/TcPat.lhs +++ b/ghc/compiler/typecheck/TcPat.lhs @@ -492,8 +492,8 @@ refineAlt ctxt con ex_tvs ctxt_tys pat_tys thing_inside | otherwise = tcMatchTys ; case refiner ex_tvs old_subst pat_tys ctxt_tys of Failed msg -> failWithTc (inaccessibleAlt msg) - Succeeded new_subst -> do - { traceTc (text "refineTypes:match" <+> ppr con <+> ppr new_subst) + Succeeded new_subst -> do { + traceTc (text "refineTypes:match" <+> ppr con <+> ppr new_subst) ; setTypeRefinement new_subst thing_inside } } where -- 1.7.10.4