wordify-0.3.0.0: src/Wordify/Rules/LetterBag/Internal.hs

module Wordify.Rules.LetterBag.Internal (LetterBag (LetterBag), ValidTiles, tiles, bagSize, validLetters, generator) where

import Data.Map
import System.Random
import Wordify.Rules.Tile

type ValidTiles = Map String Tile

data LetterBag = LetterBag {tiles :: [Tile], bagSize :: Int, generator :: StdGen, validLetters :: ValidTiles} deriving (Show)

instance Eq LetterBag where
  bag1 == bag2 = bagSize bag1 == bagSize bag2 && tiles bag1 == tiles bag2