module SpecHelper
  ( module Test.Hspec
  , module Game.AIPlayer
  , module Game.Context
  , module Game.Player
  , module Game.Board
  , newSpace
  , newBlankBoard
  ) where

import Test.Hspec
import Game.AIPlayer
import Game.Context
import Game.Player
import Game.Board

newSpace :: (Int, Int) -> Move -> Space
newSpace location move = Space { location = location, move = move }

newBlankBoard :: Board
newBlankBoard = newBoard 3

module SpecHelper
  ( module Test.Hspec
  , module Game.AIPlayer
  , module Game.Context
  , module Game.Player
  , module Game.Board
  , newSpace
  , newBlankBoard
  ) where

import Test.Hspec
import Game.AIPlayer
import Game.Context
import Game.Player
import Game.Board

newSpace :: Location -> Move -> Space
newSpace location move = Space { location = location, move = move }

newBlankBoard :: Board
newBlankBoard = newBoard 3

Add Location type to newSpace annotation
Add Location type to newSpace annotation
