Documentation

class (Eq s, Eq i, Show s, Show i) => Card s i whereSource

The Main class, this is -- effectively -- a type-indexed record. Specifically, it requires two types, one representing the suit, the other representing the index/rank. The suit, index, and construct functions are generic forms of the record accessors.

The bulk of the implementation takes place in generic type instances, supporting equality irrelevant of ordering, ordering, parsing from a normal form (index-suit) and enum/bounded

TODO: Write deriving instance?

Associated Types

data CardT s i :: *Source

Methods

suit :: CardT s i -> sSource

index :: CardT s i -> iSource

construct :: i -> s -> CardT s iSource

(@@) :: i -> s -> CardT s iSource

Instances

Card Suit Index

type Cards s i = [CardT s i]Source

class Parse a whereSource

Methods

parse :: String -> aSource

Instances

Parse Index
Parse Suit
(Parse s, Parse i, Card s i) => Parse (CardT s i)
(Parse s, Parse i, Card s i) => Parse (Hand s i)

newtype Deck s i Source

Separate Deck from Hand, even though the types are isomorphic, we don't want shuffling to be to liberal.

TODO: Make Deck clever enough to support reshuffling when the deck runs out -- it should store cards it has already seen till it runs out of the main deck, reshuffle, redeal.

Constructors

Deck (Cards s i)

Instances