starter-snake-haskell-1.0.0: src/Battlesnake/API/MoveResponse.hs

{-# LANGUAGE DeriveGeneric #-}

module Battlesnake.API.MoveResponse where

import Battlesnake.Core.Direction
import Data.Aeson (ToJSON)
import Data.Text
import GHC.Generics

-- | The response to a move request.
data MoveResponse = MoveResponse
  { move :: Direction, -- ^ The direction for the next move.
    shout :: Maybe Text -- ^ An optional shout to be displayed with the move.
  }
  deriving (Show, Generic)

instance ToJSON MoveResponse