Copyright | Eric Mertens 2020 |
---|---|
License | ISC |
Maintainer | emertens@gmail.com |
Safe Haskell | Safe |
Language | Haskell2010 |
Language.Haskell.TH.Datatype.TyVarBndr
Description
This module provides a backwards-compatible API for constructing and
manipulating TyVarBndr
s across multiple versions of the template-haskell
package.
Synopsis
- type TyVarBndr_ flag = TyVarBndr flag
- type TyVarBndrUnit = TyVarBndr ()
- type TyVarBndrSpec = TyVarBndr Specificity
- type TyVarBndrVis = TyVarBndr_ BndrVis
- data Specificity
- type BndrVis = ()
- pattern BndrReq :: BndrVis
- pattern BndrInvis :: BndrVis
- class DefaultBndrFlag flag where
- defaultBndrFlag :: flag
- plainTVFlag :: Name -> flag -> TyVarBndr_ flag
- kindedTVFlag :: Name -> flag -> Kind -> TyVarBndr_ flag
- plainTV :: Name -> TyVarBndr ()
- kindedTV :: Name -> Kind -> TyVarBndr ()
- plainTVInferred :: Name -> TyVarBndrSpec
- plainTVSpecified :: Name -> TyVarBndrSpec
- kindedTVInferred :: Name -> Kind -> TyVarBndrSpec
- kindedTVSpecified :: Name -> Kind -> TyVarBndrSpec
- plainTVReq :: Name -> TyVarBndrVis
- plainTVInvis :: Name -> TyVarBndrVis
- kindedTVReq :: Name -> Kind -> TyVarBndrVis
- kindedTVInvis :: Name -> Kind -> TyVarBndrVis
- inferredSpec :: Specificity
- specifiedSpec :: Specificity
- bndrReq :: BndrVis
- bndrInvis :: BndrVis
- elimTV :: (Name -> r) -> (Name -> Kind -> r) -> TyVarBndr_ flag -> r
- elimTVFlag :: (Name -> flag -> r) -> (Name -> flag -> Kind -> r) -> TyVarBndr_ flag -> r
- mapTV :: (Name -> Name) -> (flag -> flag') -> (Kind -> Kind) -> TyVarBndr_ flag -> TyVarBndr_ flag'
- mapTVName :: (Name -> Name) -> TyVarBndr_ flag -> TyVarBndr_ flag
- mapTVFlag :: (flag -> flag') -> TyVarBndr_ flag -> TyVarBndr_ flag'
- mapTVKind :: (Kind -> Kind) -> TyVarBndr_ flag -> TyVarBndr_ flag
- traverseTV :: Applicative f => (Name -> f Name) -> (flag -> f flag') -> (Kind -> f Kind) -> TyVarBndr_ flag -> f (TyVarBndr_ flag')
- traverseTVName :: Functor f => (Name -> f Name) -> TyVarBndr_ flag -> f (TyVarBndr_ flag)
- traverseTVFlag :: Applicative f => (flag -> f flag') -> TyVarBndr_ flag -> f (TyVarBndr_ flag')
- traverseTVKind :: Applicative f => (Kind -> f Kind) -> TyVarBndr_ flag -> f (TyVarBndr_ flag)
- mapMTV :: Monad m => (Name -> m Name) -> (flag -> m flag') -> (Kind -> m Kind) -> TyVarBndr_ flag -> m (TyVarBndr_ flag')
- mapMTVName :: Monad m => (Name -> m Name) -> TyVarBndr_ flag -> m (TyVarBndr_ flag)
- mapMTVFlag :: Monad m => (flag -> m flag') -> TyVarBndr_ flag -> m (TyVarBndr_ flag')
- mapMTVKind :: Monad m => (Kind -> m Kind) -> TyVarBndr_ flag -> m (TyVarBndr_ flag)
- changeTVFlags :: newFlag -> [TyVarBndr_ oldFlag] -> [TyVarBndr_ newFlag]
- tvName :: TyVarBndr_ flag -> Name
- tvKind :: TyVarBndr_ flag -> Kind
- tvFlag :: TyVarBndr_ flag -> flag
TyVarBndr
-related types
type TyVarBndr_ flag = TyVarBndr flag #
A type synonym for TyVarBndr
. This is the recommended way to refer to
TyVarBndr
s if you wish to achieve backwards compatibility with older
versions of template-haskell
, where TyVarBndr
lacked a flag
type
parameter (if it has one).
type TyVarBndrUnit = TyVarBndr () #
type TyVarBndrSpec = TyVarBndr Specificity #
type TyVarBndrVis = TyVarBndr_ BndrVis #
A TyVarBndr
with a BndrVis
flag. This is used for TyVarBndr
s in
type-level declarations (e.g., the binders in data D @k (a :: k)
).
data Specificity #
Constructors
SpecifiedSpec | |
InferredSpec |
Instances
Data Specificity | |
Defined in Language.Haskell.TH.Syntax Methods gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> Specificity -> c Specificity gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c Specificity toConstr :: Specificity -> Constr dataTypeOf :: Specificity -> DataType dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c Specificity) dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c Specificity) gmapT :: (forall b. Data b => b -> b) -> Specificity -> Specificity gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Specificity -> r gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Specificity -> r gmapQ :: (forall d. Data d => d -> u) -> Specificity -> [u] gmapQi :: Int -> (forall d. Data d => d -> u) -> Specificity -> u gmapM :: Monad m => (forall d. Data d => d -> m d) -> Specificity -> m Specificity gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> Specificity -> m Specificity gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> Specificity -> m Specificity | |
Generic Specificity | |
Defined in Language.Haskell.TH.Syntax Associated Types type Rep Specificity :: Type -> Type | |
Show Specificity | |
Defined in Language.Haskell.TH.Syntax Methods showsPrec :: Int -> Specificity -> ShowS show :: Specificity -> String showList :: [Specificity] -> ShowS | |
Eq Specificity | |
Defined in Language.Haskell.TH.Syntax | |
Ord Specificity | |
Defined in Language.Haskell.TH.Syntax Methods compare :: Specificity -> Specificity -> Ordering (<) :: Specificity -> Specificity -> Bool (<=) :: Specificity -> Specificity -> Bool (>) :: Specificity -> Specificity -> Bool (>=) :: Specificity -> Specificity -> Bool max :: Specificity -> Specificity -> Specificity min :: Specificity -> Specificity -> Specificity | |
PprFlag Specificity | |
Defined in Language.Haskell.TH.Ppr Methods pprTyVarBndr :: TyVarBndr Specificity -> Doc | |
DefaultBndrFlag Specificity # | |
Defined in Language.Haskell.TH.Datatype.TyVarBndr Methods | |
type Rep Specificity | |
Defined in Language.Haskell.TH.Syntax type Rep Specificity = D1 ('MetaData "Specificity" "Language.Haskell.TH.Syntax" "template-haskell" 'False) (C1 ('MetaCons "SpecifiedSpec" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "InferredSpec" 'PrefixI 'False) (U1 :: Type -> Type)) |
Because pre-9.8 GHCs do not support invisible binders in type-level
declarations, we simply make BndrVis
an alias for ()
as a compatibility
shim for old GHCs. This matches how type-level TyVarBndr
s were flagged
prior to GHC 9.8.
Because pre-9.8 GHCs do not support invisible binders in type-level
declarations, we simply make BndrReq
a pattern synonym for ()
as a
compatibility shim for old GHCs. This matches how type-level TyVarBndr
s
were flagged prior to GHC 9.8.
pattern BndrInvis :: BndrVis #
Because pre-9.8 GHCs do not support invisible binders in type-level declarations, this compatibility shim is defined in a somewhat unusual way:
- As a pattern,
BndrInvis
will never match on pre-9.8 GHCs. That way, if you write pattern matches like this:
case flag ofBndrInvis
-> ...BndrVis
-> ...
Then the first branch will never be taken on pre-9.8 GHCs.
BndrInvis
is a unidirectional pattern synonym on pre-9.8 GHCs, so it cannot be used as an expression on these GHC versions. This is done in an effort to avoid pitfalls that could occur ifBndrInvis
were defined like so:
pattern BndrInvis
= ()
If this were the definition, then a user could write code involving
BndrInvis
that would construct an invisible type-level binder on GHC 9.8
or later, but a visible type-level binder on older GHCs! This would be
disastrous, so we prevent the user from doing such a thing.
class DefaultBndrFlag flag where #
A class characterizing reasonable default values for various TyVarBndr
flag
types.
Methods
defaultBndrFlag :: flag #
Instances
DefaultBndrFlag Specificity # | |
Defined in Language.Haskell.TH.Datatype.TyVarBndr Methods | |
DefaultBndrFlag () # | |
Defined in Language.Haskell.TH.Datatype.TyVarBndr Methods defaultBndrFlag :: () # |
Constructing TyVarBndr
s
flag
-polymorphic
plainTVFlag :: Name -> flag -> TyVarBndr_ flag #
Construct a PlainTV
with the given flag
.
kindedTVFlag :: Name -> flag -> Kind -> TyVarBndr_ flag #
Construct a KindedTV
with the given flag
.
TyVarBndrUnit
TyVarBndrSpec
plainTVInferred :: Name -> TyVarBndrSpec #
Construct a PlainTV
with an InferredSpec
.
plainTVSpecified :: Name -> TyVarBndrSpec #
Construct a PlainTV
with a SpecifiedSpec
.
kindedTVInferred :: Name -> Kind -> TyVarBndrSpec #
Construct a KindedTV
with an InferredSpec
.
kindedTVSpecified :: Name -> Kind -> TyVarBndrSpec #
Construct a KindedTV
with a SpecifiedSpec
.
TyVarBndrVis
plainTVReq :: Name -> TyVarBndrVis #
Construct a PlainTV
with a BndrReq
.
plainTVInvis :: Name -> TyVarBndrVis #
Construct a PlainTV
with a BndrInvis
.
kindedTVReq :: Name -> Kind -> TyVarBndrVis #
Construct a KindedTV
with a BndrReq
.
kindedTVInvis :: Name -> Kind -> TyVarBndrVis #
Construct a KindedTV
with a BndrInvis
.
Constructing Specificity
Constructing BndrVis
Modifying TyVarBndr
s
elimTV :: (Name -> r) -> (Name -> Kind -> r) -> TyVarBndr_ flag -> r #
Case analysis for a TyVarBndr
. If the value is a
, apply
the first function to PlainTV
n _n
; if it is
, apply the second
function to KindedTV
n _ kn
and k
.
elimTVFlag :: (Name -> flag -> r) -> (Name -> flag -> Kind -> r) -> TyVarBndr_ flag -> r #
Case analysis for a TyVarBndr
that includes flag
s in the continuation
arguments. Note that TyVarBndr
s did not include flag
s prior to
template-haskell-2.17.0.0
, so on older versions of template-haskell
,
these flag
s instead become ()
.
mapTV :: (Name -> Name) -> (flag -> flag') -> (Kind -> Kind) -> TyVarBndr_ flag -> TyVarBndr_ flag' #
Map over the components of a TyVarBndr
.
mapTVName :: (Name -> Name) -> TyVarBndr_ flag -> TyVarBndr_ flag #
Map over the Name
of a TyVarBndr
.
mapTVFlag :: (flag -> flag') -> TyVarBndr_ flag -> TyVarBndr_ flag' #
Map over the flag
of a TyVarBndr
.
mapTVKind :: (Kind -> Kind) -> TyVarBndr_ flag -> TyVarBndr_ flag #
Map over the Kind
of a TyVarBndr
.
traverseTV :: Applicative f => (Name -> f Name) -> (flag -> f flag') -> (Kind -> f Kind) -> TyVarBndr_ flag -> f (TyVarBndr_ flag') #
Traverse the components of a TyVarBndr
.
traverseTVName :: Functor f => (Name -> f Name) -> TyVarBndr_ flag -> f (TyVarBndr_ flag) #
Traverse the Name
of a TyVarBndr
.
traverseTVFlag :: Applicative f => (flag -> f flag') -> TyVarBndr_ flag -> f (TyVarBndr_ flag') #
Traverse the flag
of a TyVarBndr
.
traverseTVKind :: Applicative f => (Kind -> f Kind) -> TyVarBndr_ flag -> f (TyVarBndr_ flag) #
Traverse the Kind
of a TyVarBndr
.
mapMTV :: Monad m => (Name -> m Name) -> (flag -> m flag') -> (Kind -> m Kind) -> TyVarBndr_ flag -> m (TyVarBndr_ flag') #
Map over the components of a TyVarBndr
in a monadic fashion.
This is the same as traverseTV
, but with a Monad
constraint. This is
mainly useful for use with old versions of base
where Applicative
was
not a superclass of Monad
.
mapMTVName :: Monad m => (Name -> m Name) -> TyVarBndr_ flag -> m (TyVarBndr_ flag) #
Map over the Name
of a TyVarBndr
in a monadic fashion.
This is the same as traverseTVName
, but with a Monad
constraint. This is
mainly useful for use with old versions of base
where Applicative
was
not a superclass of Monad
.
mapMTVFlag :: Monad m => (flag -> m flag') -> TyVarBndr_ flag -> m (TyVarBndr_ flag') #
Map over the flag
of a TyVarBndr
in a monadic fashion.
This is the same as traverseTVFlag
, but with a Monad
constraint. This is
mainly useful for use with old versions of base
where Applicative
was
not a superclass of Monad
.
mapMTVKind :: Monad m => (Kind -> m Kind) -> TyVarBndr_ flag -> m (TyVarBndr_ flag) #
Map over the Kind
of a TyVarBndr
in a monadic fashion.
This is the same as traverseTVKind
, but with a Monad
constraint. This is
mainly useful for use with old versions of base
where Applicative
was
not a superclass of Monad
.
changeTVFlags :: newFlag -> [TyVarBndr_ oldFlag] -> [TyVarBndr_ newFlag] #
Set the flag in a list of TyVarBndr
s. This is often useful in contexts
where one needs to re-use a list of TyVarBndr
s from one flag setting to
another flag setting. For example, in order to re-use the TyVarBndr
s bound
by a DataD
in a ForallT
, one can do the following:
case x ofDataD
_ _ tvbs _ _ _ ->ForallT
(changeTVFlags
SpecifiedSpec
tvbs) ...
Properties of TyVarBndr
s
tvName :: TyVarBndr_ flag -> Name #
Extract the type variable name from a TyVarBndr
, ignoring the
kind signature if one exists.
tvKind :: TyVarBndr_ flag -> Kind #
Extract the kind from a TyVarBndr
. Assumes PlainTV
has kind *
.
tvFlag :: TyVarBndr_ flag -> flag #
Extract the flag
from a TyVarBndr
. Note that TyVarBndr
s did not
include flag
s prior to template-haskell-2.17.0.0
, so on older versions of
template-haskell
, this functions instead returns ()
.