Commit dfd0a66e authored by panne's avatar panne

[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...  :-}
parent d709f886
......@@ -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
......
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