[SOLVED] CS {-

{-
Module: GameInstances.

Needed to check equality.
-}
module Util.GameInstances where

import Types
import Print

instance Eq Player where
p1 == p2 =
(name p1) == (name p2) &&
(currentCell p1) == (currentCell p2) &&
(remainingWalls p1) == (remainingWalls p2) &&
(winningPositions p1) == (winningPositions p2) &&
(isHuman p1) == (isHuman p2)

instance Eq Game where
(Game b1 ps1) == (Game b2 ps2) = (b1 == b2) && (ps1 == ps2)

instance Show Game where
show (Game b ps) = printBoard b ps