Games.ECS.Prototype

Prototypes are exemplar individuals which form a template.

Documentation

data IsPrototype

A component for denoting that an individual is a prototype, to be instantiated later.

Constructors

IsPrototype

Fields

• _rawIsPrototypeID :: !PrototypeID

  The PrototypeID.

• _extendsPrototype :: Maybe PrototypeID

  Indicates that this extends --- and overrides, in case of conflicting values --- another prototype.

Instances

Generic IsPrototype

Defined in Games.ECS.Prototype

Associated Types

type Rep IsPrototype

Defined in Games.ECS.Prototype

type Rep IsPrototype = D1 ('MetaData "IsPrototype" "Games.ECS.Prototype" "ohhecs-0.0.2-inplace" 'False) (C1 ('MetaCons "IsPrototype" 'PrefixI 'True) (S1 ('MetaSel ('Just "_rawIsPrototypeID") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 PrototypeID) :*: S1 ('MetaSel ('Just "_extendsPrototype") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe PrototypeID))))

Methods

from :: IsPrototype -> Rep IsPrototype x

to :: Rep IsPrototype x -> IsPrototype

Show IsPrototype

Defined in Games.ECS.Prototype

Methods

showsPrec :: Int -> IsPrototype -> ShowS

show :: IsPrototype -> String

showList :: [IsPrototype] -> ShowS

Eq IsPrototype

Defined in Games.ECS.Prototype

Methods

(==) :: IsPrototype -> IsPrototype -> Bool

(/=) :: IsPrototype -> IsPrototype -> Bool

Component IsPrototype

Defined in Games.ECS.Prototype

Associated Types

type CanonicalName IsPrototype

Defined in Games.ECS.Prototype

type CanonicalName IsPrototype = "isPrototype"

type IsFlag IsPrototype

Defined in Games.ECS.Prototype

type IsFlag IsPrototype = 'False

type Storage IsPrototype

Defined in Games.ECS.Prototype

type Storage IsPrototype = ComponentStore

type Prop IsPrototype

Defined in Games.ECS.Prototype

type Prop IsPrototype = 'Normal

Methods

_ComponentFromXML :: String -> Prism' Element IsPrototype

entityKeys :: Fold (Storage IsPrototype IsPrototype) EntitySet

emptyStorage :: Storage IsPrototype IsPrototype

entityHasComponent :: Entity -> IndexedTraversal' Entity (Storage IsPrototype IsPrototype) IsPrototype

defaultValue :: IsPrototype

HasPrototypeID IsPrototype

Defined in Games.ECS.Prototype

Methods

prototypeID :: Lens' IsPrototype PrototypeID

unPrototypeID :: Lens' IsPrototype InternedText

XMLPickler [Node] IsPrototype

Defined in Games.ECS.Prototype

Methods

xpickle :: PU [Node] IsPrototype

type Rep IsPrototype

Defined in Games.ECS.Prototype

type Rep IsPrototype = D1 ('MetaData "IsPrototype" "Games.ECS.Prototype" "ohhecs-0.0.2-inplace" 'False) (C1 ('MetaCons "IsPrototype" 'PrefixI 'True) (S1 ('MetaSel ('Just "_rawIsPrototypeID") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 PrototypeID) :*: S1 ('MetaSel ('Just "_extendsPrototype") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe PrototypeID))))

type CanonicalName IsPrototype

Defined in Games.ECS.Prototype

type CanonicalName IsPrototype = "isPrototype"

type IsFlag IsPrototype

Defined in Games.ECS.Prototype

type IsFlag IsPrototype = 'False

type Prop IsPrototype

Defined in Games.ECS.Prototype

type Prop IsPrototype = 'Normal

type Storage IsPrototype

Defined in Games.ECS.Prototype

type Storage IsPrototype = ComponentStore

rawIsPrototypeID :: Lens' IsPrototype PrototypeID

extendsPrototype :: Lens' IsPrototype (Maybe PrototypeID)

class (World worldType, Component IsPrototype, EntityProperty "isPrototype" worldType 'Individual (Prop IsPrototype) IsPrototype, OpticsFor "isPrototype" worldType 'Storing (Prop IsPrototype) IsPrototype ~ ReifiedIndexedTraversal' Entity (worldType 'Storing) IsPrototype) => HasIsPrototype (worldType :: Access -> Type) where

Methods

isPrototype :: forall {s :: Access}. (EntityProperty "isPrototype" worldType s (Prop IsPrototype) IsPrototype, OpticsFor "isPrototype" worldType s (Prop IsPrototype) IsPrototype ~ ReifiedIndexedTraversal' Entity (worldType s) IsPrototype) => IndexedTraversal' Entity (worldType s) IsPrototype

addIsPrototype :: IndexedSetter' Entity (worldType 'Individual) IsPrototype

removeIsPrototype :: worldType 'Individual -> worldType 'Individual

withIsPrototype :: Fold (worldType 'Storing) IntersectionOfEntities

type UsingIsPrototype (worldType :: Access -> Type) (s :: Access) = (HasIsPrototype worldType, EntityProperty "isPrototype" worldType s (Prop IsPrototype) IsPrototype, OpticsFor "isPrototype" worldType s (Prop IsPrototype) IsPrototype ~ ReifiedIndexedTraversal' Entity (worldType s) IsPrototype)

module Games.ECS.Prototype.PrototypeID