Init

import Data.Array

type Index = (Int,Int)
data Piece = Black | White | Blank deriving (Show, Eq)
type Board = Array Index Piece

-- constructs a new Board with every space set to Blank
emptyBoard :: Board
emptyBoard = listArray ((0,0),(7,7)) (cycle [Blank])