{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE TypeFamilies    #-}

{-|
Module      :  Network.Livy.Client.Interactive.GetSessionState
Copyright   :  (C) 2019 Earnest Research
License     :  MIT
Maintainer  :  Daniel Donohue <ddonohue@earnestresearch.com>
Stability   :  experimental
Portability :  non-portable
-}

module Network.Livy.Client.Interactive.GetSessionState
  ( -- * The request
    GetSessionState (..)
  , getSessionState
    -- ** Request lenses
  , gsstSessionId
    -- * The response
  , GetSessionStateResponse (..)
    -- ** Response lenses
  , gsstrId
  , gsstrState
  ) where

import Control.Lens
import Data.Aeson.TH
import Data.Typeable

import Network.Livy.Client.Internal.JSON
import Network.Livy.Client.Types.Session
import Network.Livy.Internal.Text
import Network.Livy.Request
import Network.Livy.Types


-- | The 'GetSessionState' request object.
newtype GetSessionState = GetSessionState
  { _gsstSessionId :: SessionId -- ^ Id of the session.
  } deriving (Eq, Show, Typeable)

makeLenses ''GetSessionState

instance ToPath GetSessionState where
  toPath r = toPath ["sessions", toText $ r ^. gsstSessionId, "state"]

instance LivyRequest GetSessionState where
  request = get


-- | Creates a value of 'GetSessionState' with the minimum fields required to make a request.
getSessionState :: SessionId -> GetSessionState
getSessionState = GetSessionState


-- | The 'GetSessionState' response body.
data GetSessionStateResponse = GetSessionStateResponse
  { _gsstrId    :: !SessionId -- ^ Session id.
  , _gsstrState :: !SessionState -- ^ The current state of the session.
  } deriving (Eq, Show, Typeable)

makeLenses ''GetSessionStateResponse
deriveFromJSON (recordPrefixOptions 6) ''GetSessionStateResponse
type instance LivyResponse GetSessionState = GetSessionStateResponse