HFiaR

This module defines the HFiaR monad and all the actions you can perform in it

Monad controls

data HFiaRT m a

Generic HFiaRT type

Instances

MonadTrans HFiaRT

Monad m => MonadState Game (HFiaRT m)

Monad m => Monad (HFiaRT m)

MonadIO m => MonadIO (HFiaRT m)

type HFiaR = HFiaRT IO

Specialized HFiaR IO monadic type

play :: Monad m => HFiaRT m a -> m a

Run the monad actions and return the result of them

Types

data Player

Posible tile / player colours

Constructors

Red

Green

Instances

Eq Player

Show Player

data HFiaRError

Posible errors in the HFiaR Monad

Constructors

GameEnded

GameNotEnded

InvalidColumn

FullColumn

Instances

Eq HFiaRError

Show HFiaRError

data HFiaRResult

Posible results for the game

Constructors

Tie

WonBy Player

Instances

Eq HFiaRResult

Show HFiaRResult

Actions

dropIn

Arguments

:: Int

Column number

-> HFiaR (Either HFiaRError ())

Drop a tile in a column

currentPlayer :: HFiaR (Either HFiaRError Player)

Player who's supposed to play the next tile

board :: HFiaR [[Player]]

Current board distribution

result :: HFiaR (Either HFiaRError HFiaRResult)

If the game ended, returns the result of it