Generic.Data.Internal.Meta

Type metadata accessors

Type names, constructor names...

Warning

This is an internal module: it is not subject to any versioning policy, breaking changes can happen at any time.

If something here seems useful, please report it or create a pull request to export it from an external module.

Documentation

>>> :set -XDataKinds -XTypeApplications
>>> import Control.Applicative (ZipList)
>>> import Data.Monoid (Sum(..))

gdatatypeName :: forall a. (Generic a, GDatatype (Rep a)) => String

Name of the first data constructor in a type as a string.

>>> gdatatypeName @(Maybe Int)
"Maybe"

gmoduleName :: forall a. (Generic a, GDatatype (Rep a)) => String

Name of the module where the first type constructor is defined.

>>> gmoduleName @(ZipList Int)
"Control.Applicative"

gpackageName :: forall a. (Generic a, GDatatype (Rep a)) => String

Name of the package where the first type constructor is defined.

>>> gpackageName @(Maybe Int)
"base"

gisNewtype :: forall a. (Generic a, GDatatype (Rep a)) => Bool

True if the first type constructor is a newtype.

>>> gisNewtype @[Int]
False
>>> gisNewtype @(ZipList Int)
True

fromDatatype :: forall d r. Datatype d => (M1 D d Proxy () -> r) -> r

class GDatatype f where

Generic representations that contain datatype metadata.

Methods

gDatatypeName :: String

gModuleName :: String

gPackageName :: String

gIsNewtype :: Bool

Instances

Datatype d => GDatatype (M1 D d f :: k -> Type)

Defined in Generic.Data.Internal.Meta

Methods

gDatatypeName :: String

gModuleName :: String

gPackageName :: String

gIsNewtype :: Bool

gconName :: forall a. Constructors a => a -> String

Name of the first constructor in a value.

>>> gconName (Just 0)
"Just"

gconFixity :: forall a. Constructors a => a -> Fixity

The fixity of the first constructor.

>>> gconFixity (Just 0)
Prefix
>>> gconFixity ([] :*: id)
Infix RightAssociative 6

gconIsRecord :: forall a. Constructors a => a -> Bool

True if the constructor is a record.

>>> gconIsRecord (Just 0)
False
>>> gconIsRecord (Sum 0)   -- Note:  newtype Sum a = Sum { getSum :: a }
True

gconNum :: forall a. Constructors a => Int

Number of constructors.

>>> gconNum @(Maybe Int)
2

gconIndex :: forall a. Constructors a => a -> Int

Index of a constructor.

>>> gconIndex Nothing
0
>>> gconIndex (Just "test")
1

newtype ConId a

An opaque identifier for a constructor.

Constructors

ConId Int

Instances

Eq (ConId a)

Defined in Generic.Data.Internal.Meta

Methods

(==) :: ConId a -> ConId a -> Bool

(/=) :: ConId a -> ConId a -> Bool

Ord (ConId a)

Defined in Generic.Data.Internal.Meta

Methods

compare :: ConId a -> ConId a -> Ordering

(<) :: ConId a -> ConId a -> Bool

(<=) :: ConId a -> ConId a -> Bool

(>) :: ConId a -> ConId a -> Bool

(>=) :: ConId a -> ConId a -> Bool

max :: ConId a -> ConId a -> ConId a

min :: ConId a -> ConId a -> ConId a

Show (ConId a)

Defined in Generic.Data.Internal.Meta

Methods

showsPrec :: Int -> ConId a -> ShowS

show :: ConId a -> String

showList :: [ConId a] -> ShowS

conId :: forall a. Constructors a => a -> ConId a

Identifier of a constructor.

conIdToInt :: forall a. ConId a -> Int

Index of a constructor, given its identifier. See also gconIndex.

conIdToString :: forall a. Constructors a => ConId a -> String

Name of a constructor. See also gconName.

conIdEnum :: forall a. Constructors a => [ConId a]

All constructor identifiers. This must not be called on an empty type.

gconNum @a = length (conIdEnum @a)

conIdMin :: forall a. Constructors a => ConId a

This must not be called on an empty type.

conIdMax :: forall a. Constructors a => ConId a

This must not be called on an empty type.

conIdNamed :: forall s a. ConIdNamed s a => ConId a

Get a ConId by name.

>>> conIdNamed @"Nothing" :: ConId (Maybe Int)
ConId 0
>>> conIdNamed @"Just"    :: ConId (Maybe Int)
ConId 1

class (Generic a, GConstructors (Rep a)) => Constructors a

Constraint synonym for Generic and GConstructors.

Instances

(Generic a, GConstructors (Rep a)) => Constructors a

Defined in Generic.Data.Internal.Meta

class (Generic a, KnownNat (ConIdNamed' n a)) => ConIdNamed n a

Constraint synonym for generic types a with a constructor named n.

Instances

(Generic a, KnownNat (ConIdNamed' n a)) => ConIdNamed n a

Defined in Generic.Data.Internal.Meta

Constructor information on generic representations

newtype GConId r

Constructors

GConId Int

Instances

Eq (GConId r)

Defined in Generic.Data.Internal.Meta

Methods

(==) :: GConId r -> GConId r -> Bool

(/=) :: GConId r -> GConId r -> Bool

Ord (GConId r)

Defined in Generic.Data.Internal.Meta

Methods

compare :: GConId r -> GConId r -> Ordering

(<) :: GConId r -> GConId r -> Bool

(<=) :: GConId r -> GConId r -> Bool

(>) :: GConId r -> GConId r -> Bool

(>=) :: GConId r -> GConId r -> Bool

max :: GConId r -> GConId r -> GConId r

min :: GConId r -> GConId r -> GConId r

gConIdToInt :: GConId r -> Int

toConId :: forall a. Generic a => GConId (Rep a) -> ConId a

fromConId :: forall a. Generic a => ConId a -> GConId (Rep a)

reGConId :: GConId r -> GConId s

gConIdMin :: forall r. GConstructors r => GConId r

gConIdMax :: forall r. GConstructors r => GConId r

class GConstructors r where

Generic representations that contain constructor metadata.

Methods

gConIdToString :: GConId r -> String

gConId :: r p -> GConId r

gConNum :: Int

gConFixity :: r p -> Fixity

gConIsRecord :: r p -> Bool

Instances

(GConstructors f, GConstructors g) => GConstructors (f :+: g :: k -> Type)

Defined in Generic.Data.Internal.Meta

Methods

gConIdToString :: GConId (f :+: g) -> String

gConId :: (f :+: g) p -> GConId (f :+: g)

gConNum :: Int

gConFixity :: (f :+: g) p -> Fixity

gConIsRecord :: (f :+: g) p -> Bool

Constructor c => GConstructors (M1 C c f :: k -> Type)

Defined in Generic.Data.Internal.Meta

Methods

gConIdToString :: GConId (M1 C c f) -> String

gConId :: M1 C c f p -> GConId (M1 C c f)

gConNum :: Int

gConFixity :: M1 C c f p -> Fixity

gConIsRecord :: M1 C c f p -> Bool

GConstructors f => GConstructors (M1 D c f :: k -> Type)

Defined in Generic.Data.Internal.Meta

Methods

gConIdToString :: GConId (M1 D c f) -> String

gConId :: M1 D c f p -> GConId (M1 D c f)

gConNum :: Int

gConFixity :: M1 D c f p -> Fixity

gConIsRecord :: M1 D c f p -> Bool

Find a constructor tag by name

type ConIdNamed' n t = GConIdNamedIf n t (GConIdNamed n (Rep t))

type GConIdNamed n f = GConIdNamed' n f 0 Nothing

type family GConIdNamed' (n :: Symbol) (f :: k -> *) (i :: Nat) (o :: Maybe Nat) :: Maybe Nat where ...

Equations

GConIdNamed' n (M1 D _c f) i r = GConIdNamed' n f i r

GConIdNamed' n (f :+: g) i r = GConIdNamed' n f i (GConIdNamed' n g (i + NConstructors f) r)

GConIdNamed' n (M1 C (MetaCons n _f _s) _g) i _r = Just i

GConIdNamed' n (M1 C (MetaCons _n _f _s) _g) _i r = r

GConIdNamed' _n V1 _i r = r

type family GConIdNamedIf (n :: Symbol) (t :: *) (o :: Maybe Nat) :: Nat where ...

Equations

GConIdNamedIf _n _t (Just i) = i

GConIdNamedIf n t Nothing = TypeError (((Text "No constructor named " :<>: ShowType n) :<>: Text " in generic type ") :<>: ShowType t)

Type families

type family MetaOf (f :: * -> *) :: Meta where ...

Meta field of the M1 type constructor.

Equations

MetaOf (M1 i d f) = d

type family MetaDataName (m :: Meta) :: Symbol where ...

Name of the data type (MetaData).

Equations

MetaDataName (MetaData n _m _p _nt) = n

type family MetaDataModule (m :: Meta) :: Symbol where ...

Name of the module where the data type is defined (MetaData)

Equations

MetaDataModule (MetaData _n m _p _nt) = m

type family MetaDataPackage (m :: Meta) :: Symbol where ...

Name of the package where the data type is defined (MetaData)

Equations

MetaDataPackage (MetaData _n _m p _nt) = p

type family MetaDataNewtype (m :: Meta) :: Bool where ...

True if the data type is a newtype (MetaData).

Equations

MetaDataNewtype (MetaData _n _m _p nt) = nt

type family MetaConsName (m :: Meta) :: Symbol where ...

Name of the constructor (MetaCons).

Equations

MetaConsName (MetaCons n _f _s) = n

type family MetaConsFixity (m :: Meta) :: FixityI where ...

Fixity of the constructor (MetaCons).

Equations

MetaConsFixity (MetaCons _n f s) = f

type family MetaConsRecord (m :: Meta) :: Bool where ...

True for a record constructor (MetaCons).

Equations

MetaConsRecord (MetaCons _n _f s) = s

type family MetaSelNameM (m :: Meta) :: Maybe Symbol where ...

Just the name of the record field, if it is one (MetaSel).

Equations

MetaSelNameM (MetaSel mn _su _ss _ds) = mn

type family MetaSelName (m :: Meta) :: Symbol where ...

Name of the record field; undefined for non-record fields (MetaSel).

Equations

MetaSelName (MetaSel (Just n) _su _ss _ds) = n

type family MetaSelUnpack (m :: Meta) :: SourceUnpackedness where ...

Unpackedness annotation of a field (MetaSel).

Equations

MetaSelUnpack (MetaSel _mn su _ss _ds) = su

type family MetaSelSourceStrictness (m :: Meta) :: SourceStrictness where ...

Strictness annotation of a field (MetaSel).

Equations

MetaSelSourceStrictness (MetaSel _mn _su ss _ds) = ss

type family MetaSelStrictness (m :: Meta) :: DecidedStrictness where ...

Inferred strictness of a field (MetaSel).

Equations

MetaSelStrictness (MetaSel _mn _su _ss ds) = ds

type DummyMeta = MetaData "" "" "" False

A placeholder for Meta values.

type family UnM1 (f :: k -> *) :: k -> *

Remove an M1 type constructor.

Instances

type UnM1 (M1 i c f :: k -> Type)

Defined in Generic.Data.Internal.Meta

type UnM1 (M1 i c f :: k -> Type) = f