{-# LANGUAGE DeriveGeneric #-}

module Battlesnake.API.GameRequest where

import Battlesnake.Core.Battlesnake (Battlesnake)
import Battlesnake.Core.Board (Board)
import Battlesnake.Core.Game (Game)
import Data.Aeson (FromJSON)
import GHC.Generics

{-|
  The request sent to your battlesnake server on each turn.
  This contains all the information you need to determine your snakes next move.}
-}
data GameRequest = GameRequest
  { game :: Game, -- ^ Information about the current game. (See "Battlesnake.Core.Game")
    turn :: Integer, -- ^ The turn beeing played.
    board :: Board, -- ^ The game board. (See "Battlesnake.Core.Board")
    you :: Battlesnake -- ^ Your snake. (See "Battlesnake.Core.Battlesnake"")
  }
  deriving (Show, Generic)

instance FromJSON GameRequest