вает состояния игроков
isEqMove :: WhichMove -> WhichMove -> Bool
isEqMove BlackMove BlackMove = True
isEqMove WhiteMove WhiteMove = True
isEqMove _ _ = False
-- State is
pointToPos :: (Float, Float) -> (Int, Int)
pointToPos (x, y) = (floor(x / cellWidth), floor(y / cellHeight))
pointToPos (x, y) = (floor(x / cellWidth), floor(y / cellHeight))