Commit 177134e9 authored by Simon Peyton Jones's avatar Simon Peyton Jones

Wibbles to the last merge, to fix the build

parent 13602a46
......@@ -19,13 +19,13 @@ module TcHsType (
-- Type checking type and class decls
kcTyClTyVars, tcTyClTyVars,
tcHsArgType, tcHsConArgType, tcDataKindSig,
tcHsConArgType, tcDataKindSig,
tcClassSigType,
-- Kind-checking types
-- No kind generalisation, no checkValidType
kcHsTyVarBndrs, tcHsTyVarBndrs,
tcHsLiftedType,
tcHsLiftedType, tcHsOpenType,
tcLHsType, tcCheckLHsType,
tcHsContext, tcInferApps, tcHsArgTys,
......
......@@ -433,7 +433,7 @@ kcConDecl (ConDecl { con_name = name, con_qvars = ex_tvs
= addErrCtxt (dataConCtxt name) $
kcHsTyVarBndrs False ex_tvs $ \ _ ->
do { _ <- tcHsContext ex_ctxt
; mapM_ (tcHsArgType . getBangType) (hsConDeclArgTys details)
; mapM_ (tcHsOpenType . getBangType) (hsConDeclArgTys details)
; _ <- tcConRes res
; return () }
\end{code}
......
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