Game.Werewolf.Player

Players are quite simple in themselves. They have a name, role and state.

Player

data Player

A player has a name, role and state. Any stateful information needed for a player's role is held on the Game itself.

N.B., player equality is defined on just the name.

Instances

Eq Player

Methods

(==) :: Player -> Player -> Bool

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

Read Player

Methods

readsPrec :: Int -> ReadS Player

readList :: ReadS [Player]

readPrec :: ReadPrec Player

readListPrec :: ReadPrec [Player]

Show Player

Methods

showsPrec :: Int -> Player -> ShowS

show :: Player -> String

showList :: [Player] -> ShowS

Humanise Player

Methods

humanise :: Player -> Text

name :: Lens' Player Text

role :: Lens' Player Role

state :: Lens' Player State

data State

Surprise surprise, players may be Dead or Alive.

Constructors

Alive

Dead

Instances

Eq State

Methods

(==) :: State -> State -> Bool

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

Read State

Methods

readsPrec :: Int -> ReadS State

readList :: ReadS [State]

readPrec :: ReadPrec State

readListPrec :: ReadPrec [State]

Show State

Methods

showsPrec :: Int -> State -> ShowS

show :: State -> String

showList :: [State] -> ShowS

_Alive :: Prism' State ()

_Dead :: Prism' State ()

newPlayer :: Text -> Role -> Player

Creates a new Alive player.

Traversals

alphaWolf :: Traversal' Player ()

The traversal of Players with an alphaWolfRole.

alphaWolf = role . only alphaWolfRole

beholder :: Traversal' Player ()

The traversal of Players with a beholderRole.

beholder = role . only beholderRole

crookedSenator :: Traversal' Player ()

The traversal of Players with a crookedSenatorRole.

crookedSenator = role . only crookedSenatorRole

druid :: Traversal' Player ()

The traversal of Players with a druidRole.

druid = role . only druidRole

dullahan :: Traversal' Player ()

The traversal of Players with a dullahanRole.

dullahan = role . only dullahanRole

fallenAngel :: Traversal' Player ()

The traversal of Players with a fallenAngelRole.

fallenAngel = role . only fallenAngelRole

hunter :: Traversal' Player ()

The traversal of Players with a hunterRole.

hunter = role . only hunterRole

jester :: Traversal' Player ()

The traversal of Players with a jesterRole.

jester = role . only jesterRole

lycan :: Traversal' Player ()

The traversal of Players with a lycanRole.

lycan = role . only lycanRole

medusa :: Traversal' Player ()

The traversal of Players with a medusaRole.

medusa = role . only medusaRole

necromancer :: Traversal' Player ()

The traversal of Players with a necromancerRole.

necromancer = role . only necromancerRole

oracle :: Traversal' Player ()

The traversal of Players with a oracleRole.

oracle = role . only oracleRole

orphan :: Traversal' Player ()

The traversal of Players with an orphanRole.

orphan = role . only orphanRole

protector :: Traversal' Player ()

The traversal of Players with a protectorRole.

protector = role . only protectorRole

saint :: Traversal' Player ()

The traversal of Players with a saintRole.

saint = role . only saintRole

scapegoat :: Traversal' Player ()

The traversal of Players with a scapegoatRole.

scapegoat = role . only scapegoatRole

seer :: Traversal' Player ()

The traversal of Players with a seerRole.

seer = role . only seerRole

simpleVillager :: Traversal' Player ()

The traversal of Players with a simpleVillagerRole.

simpleVillager = role . only simpleVillagerRole

simpleWerewolf :: Traversal' Player ()

The traversal of Players with a simpleWerewolfRole.

simpleWerewolf = role . only simpleWerewolfRole

spitefulVillager :: Traversal' Player ()

The traversal of Players with a spitefulVillagerRole.

spitefulVillager = role . only spitefulVillagerRole

trueVillager :: Traversal' Player ()

The traversal of Players with a trueVillagerRole.

trueVillager = role . only trueVillagerRole

villageDrunk :: Traversal' Player ()

The traversal of Players with a villageDrunkRole.

villageDrunk = role . only villageDrunkRole

witch :: Traversal' Player ()

The traversal of Players with a witchRole.

witch = role . only witchRole

zombie :: Traversal' Player ()

The traversal of Players with a zombieRole.

zombie = role . only zombieRole

loner :: Traversal' Player ()

The traversal of Players aligned with NoOne.

loner = role . allegiance . _NoOne

villager :: Traversal' Player ()

The traversal of Players aligned with the Villagers.

villager = role . allegiance . _Villagers

werewolf :: Traversal' Player ()

The traversal of Players aligned with the Werewolves.

werewolf = role . allegiance . _Werewolves

The following traversals are provided just as a bit of sugar to avoid continually writing traverse ..

names :: Traversable t => Traversal' (t Player) Text

The traversal of Player names.

names = traverse . name

roles :: Traversable t => Traversal' (t Player) Role

The traversal of Player roles.

roles = traverse . role

states :: Traversable t => Traversal' (t Player) State

The traversal of Player states.

states = traverse . state

N.B., the following traversals are not legal for the same reason filtered isn't!

named :: Text -> Traversal' Player Player

The traversal of Players with the given name.

named name' = filteredBy . name name'

alphaWolves :: Traversable t => Traversal' (t Player) Player

The traversal of alphaWolf Players.

alphaWolves = traverse . filtered (is alphaWolf)

beholders :: Traversable t => Traversal' (t Player) Player

The traversal of beholder Players.

beholders = traverse . filtered (is beholder)

crookedSenators :: Traversable t => Traversal' (t Player) Player

The traversal of crookedSenator Players.

crookedSenators = traverse . filtered (is crookedSenator)

druids :: Traversable t => Traversal' (t Player) Player

The traversal of druid Players.

druids = traverse . filtered (is druid)

dullahans :: Traversable t => Traversal' (t Player) Player

The traversal of dullahan Players.

dullahans = traverse . filtered (is dullahan)

fallenAngels :: Traversable t => Traversal' (t Player) Player

The traversal of fallenAngel Players.

fallenAngels = traverse . filtered (is fallenAngel)

hunters :: Traversable t => Traversal' (t Player) Player

The traversal of hunter Players.

hunters = traverse . filtered (is hunter)

jesters :: Traversable t => Traversal' (t Player) Player

The traversal of jester Players.

jesters = traverse . filtered (is jester)

lycans :: Traversable t => Traversal' (t Player) Player

The traversal of lycan Players.

lycans = traverse . filtered (is lycan)

medusas :: Traversable t => Traversal' (t Player) Player

The traversal of medusa Players.

medusas = traverse . filtered (is medusa)

necromancers :: Traversable t => Traversal' (t Player) Player

The traversal of necromancer Players.

necromancers = traverse . filtered (is necromancer)

oracles :: Traversable t => Traversal' (t Player) Player

The traversal of oracle Players.

oracles = traverse . filtered (is oracle)

orphans :: Traversable t => Traversal' (t Player) Player

The traversal of orphan Players.

orphans = traverse . filtered (is orphan)

protectors :: Traversable t => Traversal' (t Player) Player

The traversal of protector Players.

protectors = traverse . filtered (is protector)

saints :: Traversable t => Traversal' (t Player) Player

The traversal of saint Players.

saints = traverse . filtered (is saint)

scapegoats :: Traversable t => Traversal' (t Player) Player

The traversal of scapegoat Players.

scapegoats = traverse . filtered (is scapegoat)

seers :: Traversable t => Traversal' (t Player) Player

The traversal of seer Players.

seers = traverse . filtered (is seer)

simpleVillagers :: Traversable t => Traversal' (t Player) Player

The traversal of simpleVillager Players.

simpleVillagers = traverse . filtered (is simpleVillager)

simpleWerewolves :: Traversable t => Traversal' (t Player) Player

The traversal of simpleWerewolf Players.

simpleWerewolves = traverse . filtered (is simpleWerewolf)

spitefulVillagers :: Traversable t => Traversal' (t Player) Player

The traversal of spitefulVillager Players.

spitefulVillagers = traverse . filtered (is spitefulVillager)

trueVillagers :: Traversable t => Traversal' (t Player) Player

The traversal of trueVillager Players.

trueVillagers = traverse . filtered (is trueVillager)

villageDrunks :: Traversable t => Traversal' (t Player) Player

The traversal of villageDrunk Players.

villageDrunks = traverse . filtered (is villageDrunk)

witches :: Traversable t => Traversal' (t Player) Player

The traversal of witch Players.

witches = traverse . filtered (is witch)

zombies :: Traversable t => Traversal' (t Player) Player

The traversal of zombie Players.

zombies = traverse . filtered (is zombie)

loners :: Traversable t => Traversal' (t Player) Player

The traversal of loner Players.

loners = traverse . filtered . (is loner)

villagers :: Traversable t => Traversal' (t Player) Player

The traversal of villager Players.

villagers = traverse . filtered (is villager)

werewolves :: Traversable t => Traversal' (t Player) Player

The traversal of werewolf Players.

werewolves = traverse . filtered (is werewolf)

alive :: Traversal' Player Player

The traversal of Alive Players.

alive = filtered (has $ state . _Alive)

dead :: Traversal' Player Player

The traversal of Dead Players.

dead = filtered (has $ state . _Dead)