Language.Nomyx.Events

All the building blocks to allow rules to build events.

Documentation

data Event a where

events names

Constructors

Player :: Player -> Event Player

RuleEv :: RuleEvent -> Event RuleEvent

Time :: UTCTime -> Event Time

Message :: String -> Event (Message m)

InputEv :: (Typeable a, Show a, Eq a) => Input a -> Event (Input a)

Victory :: Event Victory

Instances

Typeable1 Event

Eq (Event e)

Show (Event a)

type EventNumber = Int

data EventData a where

data associated with each events

Constructors

PlayerData :: PlayerInfo -> EventData Player

Fields

playerData :: PlayerInfo

RuleData :: RuleInfo -> EventData RuleEvent

Fields

ruleData :: RuleInfo

TimeData :: UTCTime -> EventData Time

Fields

timeData :: UTCTime

MessageData :: Show m => m -> EventData (Message m)

Fields

messageData :: m

InputData :: Show a => InputData a -> EventData (Input a)

Fields

inputData :: InputData a

VictoryData :: VictoryCond -> EventData Victory

Fields

victoryData :: VictoryCond

Instances

Typeable1 EventData

Show (EventData a)

data InputData a

Constructors

RadioData a

CheckboxData [a]

TextData String

TextAreaData String

ButtonData

Instances

Show a => Show (InputData a)

type Msg a = Event (Message a)

type MsgData a = EventData (Message a)

onEvent :: (Typeable e, Show e, Eq e) => Event e -> ((EventNumber, EventData e) -> Nomex ()) -> Nomex EventNumber

register a callback on an event

onEvent_ :: forall e. (Typeable e, Show e, Eq e) => Event e -> (EventData e -> Nomex ()) -> Nomex EventNumber

register a callback on an event, disregard the event number

onEventOnce :: (Typeable e, Show e, Eq e) => Event e -> (EventData e -> Nomex ()) -> Nomex EventNumber

set an handler for an event that will be triggered only once

delEvent :: EventNumber -> Nomex Bool

delAllEvents :: (Typeable e, Show e, Eq e) => Event e -> Nomex ()

sendMessage :: (Typeable a, Show a) => Msg a -> a -> Nomex ()

broadcast a message that can be catched by another rule

sendMessage_ :: Msg () -> Nomex ()

onMessage :: (Typeable m, Show m) => Msg m -> (MsgData m -> Nomex ()) -> Nomex EventNumber

subscribe on a message

onMessageOnce :: (Typeable m, Show m) => Msg m -> (MsgData m -> Nomex ()) -> Nomex EventNumber

schedule :: Schedule Freq -> (UTCTime -> Nomex ()) -> Nomex ()

on the provided schedule, the supplied function will be called

schedule_ :: Schedule Freq -> Nomex () -> Nomex ()

schedule' :: [UTCTime] -> (UTCTime -> Nomex ()) -> Nomex ()

schedule'_ :: [UTCTime] -> Nomex () -> Nomex ()

getCurrentTime :: NomexNE UTCTime

oneWeek :: NominalDiffTime

duration

oneDay :: NominalDiffTime

duration

oneHour :: NominalDiffTime

duration

oneMinute :: NominalDiffTime

duration