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.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 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});