Commit 384f6099 authored by dreixel's avatar dreixel

Split -XDataKinds from -XPolyKinds

parent 3c67c9af
......@@ -406,6 +406,7 @@ data ExtensionFlag
| Opt_RebindableSyntax
| Opt_ConstraintKinds
| Opt_PolyKinds -- Kind polymorphism
| Opt_DataKinds -- Datatype promotion
| Opt_InstanceSigs
| Opt_StandaloneDeriving
......@@ -1956,6 +1957,7 @@ xFlags = [
( "RebindableSyntax", Opt_RebindableSyntax, nop ),
( "ConstraintKinds", Opt_ConstraintKinds, nop ),
( "PolyKinds", Opt_PolyKinds, nop ),
( "DataKinds", Opt_DataKinds, nop ),
( "InstanceSigs", Opt_InstanceSigs, nop ),
( "MonoPatBinds", Opt_MonoPatBinds,
\ turn_on -> when turn_on $ deprecate "Experimental feature now removed; has no effect" ),
......@@ -2043,8 +2045,6 @@ impliedFlags
, (Opt_TypeFamilies, turnOn, Opt_KindSignatures) -- Type families use kind signatures
-- all over the place
, (Opt_PolyKinds, turnOn, Opt_KindSignatures)
, (Opt_ImpredicativeTypes, turnOn, Opt_RankNTypes)
-- Record wild-cards implies field disambiguation
......
......@@ -462,17 +462,17 @@ lookupPromotedOccRn rdr_name
Nothing ->
do { -- Maybe it's the name of a *data* constructor
poly_kinds <- xoptM Opt_PolyKinds
data_kinds <- xoptM Opt_DataKinds
; mb_demoted_name <- case demoteRdrName rdr_name of
Just demoted_rdr -> lookupOccRn_maybe demoted_rdr
Nothing -> return Nothing
; case mb_demoted_name of
Nothing -> unboundName WL_Any rdr_name
Just demoted_name
| poly_kinds -> return demoted_name
| data_kinds -> return demoted_name
| otherwise -> unboundNameX WL_Any rdr_name suggest_pk }}}
where
suggest_pk = ptext (sLit "A data constructor of that name is in scope; did you mean -XPolyKinds?")
suggest_pk = ptext (sLit "A data constructor of that name is in scope; did you mean -XDataKinds?")
\end{code}
Note [Demotion]
......@@ -1437,7 +1437,7 @@ kindSigErr thing
polyKindsErr :: Outputable a => a -> SDoc
polyKindsErr thing
= hang (ptext (sLit "Illegal kind:") <+> quotes (ppr thing))
2 (ptext (sLit "Perhaps you intended to use -XPolyKinds"))
2 (ptext (sLit "Perhaps you intended to use -XDataKinds"))
badQualBndrErr :: RdrName -> SDoc
......
......@@ -196,8 +196,8 @@ rnHsTyKi isType doc (HsFunTy ty1 ty2) = do
else return (HsFunTy ty1' ty2')
rnHsTyKi isType doc listTy@(HsListTy ty) = do
poly_kinds <- xoptM Opt_PolyKinds
unless (poly_kinds || isType) (addErr (polyKindsErr listTy))
data_kinds <- xoptM Opt_DataKinds
unless (data_kinds || isType) (addErr (polyKindsErr listTy))
ty' <- rnLHsTyKi isType doc ty
return (HsListTy ty')
......@@ -216,8 +216,8 @@ rnHsTyKi isType doc (HsPArrTy ty) = ASSERT ( isType ) do
-- Unboxed tuples are allowed to have poly-typed arguments. These
-- sometimes crop up as a result of CPR worker-wrappering dictionaries.
rnHsTyKi isType doc tupleTy@(HsTupleTy tup_con tys) = do
poly_kinds <- xoptM Opt_PolyKinds
unless (poly_kinds || isType) (addErr (polyKindsErr tupleTy))
data_kinds <- xoptM Opt_DataKinds
unless (data_kinds || isType) (addErr (polyKindsErr tupleTy))
tys' <- mapM (rnLHsTyKi isType doc) tys
return (HsTupleTy tup_con tys')
......
......@@ -68,7 +68,7 @@ import NameSet
import TysWiredIn
import BasicTypes
import SrcLoc
import DynFlags ( ExtensionFlag( Opt_PolyKinds ) )
import DynFlags ( ExtensionFlag( Opt_DataKinds ) )
import Util
import UniqSupply
import Outputable
......@@ -1343,8 +1343,8 @@ sc_ds_var_app name arg_kis = do
case mb_thing of
Just (AGlobal (ATyCon tc))
| isAlgTyCon tc || isTupleTyCon tc -> do
poly_kinds <- xoptM Opt_PolyKinds
unless poly_kinds $ addErr (polyKindsErr name)
data_kinds <- xoptM Opt_DataKinds
unless data_kinds $ addErr (polyKindsErr name)
let tc_kind = tyConKind tc
case isPromotableKind tc_kind of
Just n | n == length arg_kis ->
......
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