{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.DeviceFarm.GetRun
(
getRun
, GetRun
, grArn
, getRunResponse
, GetRunResponse
, grrsRun
, grrsResponseStatus
) where
import Network.AWS.DeviceFarm.Types
import Network.AWS.DeviceFarm.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype GetRun = GetRun'
{ _grArn :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getRun
:: Text
-> GetRun
getRun pArn_ = GetRun' {_grArn = pArn_}
grArn :: Lens' GetRun Text
grArn = lens _grArn (\ s a -> s{_grArn = a})
instance AWSRequest GetRun where
type Rs GetRun = GetRunResponse
request = postJSON deviceFarm
response
= receiveJSON
(\ s h x ->
GetRunResponse' <$>
(x .?> "run") <*> (pure (fromEnum s)))
instance Hashable GetRun where
instance NFData GetRun where
instance ToHeaders GetRun where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("DeviceFarm_20150623.GetRun" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON GetRun where
toJSON GetRun'{..}
= object (catMaybes [Just ("arn" .= _grArn)])
instance ToPath GetRun where
toPath = const "/"
instance ToQuery GetRun where
toQuery = const mempty
data GetRunResponse = GetRunResponse'
{ _grrsRun :: !(Maybe Run)
, _grrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getRunResponse
:: Int
-> GetRunResponse
getRunResponse pResponseStatus_ =
GetRunResponse' {_grrsRun = Nothing, _grrsResponseStatus = pResponseStatus_}
grrsRun :: Lens' GetRunResponse (Maybe Run)
grrsRun = lens _grrsRun (\ s a -> s{_grrsRun = a})
grrsResponseStatus :: Lens' GetRunResponse Int
grrsResponseStatus = lens _grrsResponseStatus (\ s a -> s{_grrsResponseStatus = a})
instance NFData GetRunResponse where