- class NameOf a where
- data Brain ai memory = Brain {}
- data Half
- = FirstHalf
- | SecondHalf
- type PlayingTime = Minutes
- class Other a where
- other :: a -> a
- type TimeUnit = Seconds
- type Seconds = Float
- data Edge
- data PlayerID = PlayerID {}
- type ClubName = String
- type PlayersNumber = Int
- data Reprimand
- = Warning
- | YellowCard
- | RedCard
- data Success
- type FramesToGo = Int
- data ATeam
- type Displacements = [(PlayerID, Displacement)]
- type Displacement = Position
- type ExtraTime = Minutes
- type Minutes = Float
Documentation
type PlayingTime = MinutesSource
type PlayersNumber = IntSource
If the referee gives a second yellow he should add red to it himself
type FramesToGoSource
= Int | number of frames to go before event ends |
type DisplacementsSource
= [(PlayerID, Displacement)] | players that need to be displaced |
type DisplacementSource
= Position | new position |