Wibbles to the last merge, to fix the build

compiler/typecheck/TcHsType.lhs

@@ -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,
 

compiler/typecheck/TcTyClsDecls.lhs

@@ -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}