Commit 1e86cab4 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Comments only

parent a2abcf6e
......@@ -412,6 +412,8 @@ tc_patsyn_finish lname dir is_infix lpat'
-- so there had better be no unification variables in there
univ_tvs' <- mapMaybeM (zonkQuantifiedTyVar False) univ_tvs
; ex_tvs' <- mapMaybeM (zonkQuantifiedTyVar False) ex_tvs
-- ToDo: The False means that we behave here as if
-- -XPolyKinds was always on, which isn't right.
; prov_theta' <- zonkTcTypes prov_theta
; req_theta' <- zonkTcTypes req_theta
; pat_ty' <- zonkTcType pat_ty
Supports Markdown
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