{-# 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.SageMaker.DescribeModel
(
describeModel
, DescribeModel
, dModelName
, describeModelResponse
, DescribeModelResponse
, dmrsVPCConfig
, dmrsResponseStatus
, dmrsModelName
, dmrsPrimaryContainer
, dmrsExecutionRoleARN
, dmrsCreationTime
, dmrsModelARN
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.SageMaker.Types
import Network.AWS.SageMaker.Types.Product
newtype DescribeModel = DescribeModel'
{ _dModelName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeModel
:: Text
-> DescribeModel
describeModel pModelName_ = DescribeModel' {_dModelName = pModelName_}
dModelName :: Lens' DescribeModel Text
dModelName = lens _dModelName (\ s a -> s{_dModelName = a})
instance AWSRequest DescribeModel where
type Rs DescribeModel = DescribeModelResponse
request = postJSON sageMaker
response
= receiveJSON
(\ s h x ->
DescribeModelResponse' <$>
(x .?> "VpcConfig") <*> (pure (fromEnum s)) <*>
(x .:> "ModelName")
<*> (x .:> "PrimaryContainer")
<*> (x .:> "ExecutionRoleArn")
<*> (x .:> "CreationTime")
<*> (x .:> "ModelArn"))
instance Hashable DescribeModel where
instance NFData DescribeModel where
instance ToHeaders DescribeModel where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("SageMaker.DescribeModel" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeModel where
toJSON DescribeModel'{..}
= object
(catMaybes [Just ("ModelName" .= _dModelName)])
instance ToPath DescribeModel where
toPath = const "/"
instance ToQuery DescribeModel where
toQuery = const mempty
data DescribeModelResponse = DescribeModelResponse'
{ _dmrsVPCConfig :: !(Maybe VPCConfig)
, _dmrsResponseStatus :: !Int
, _dmrsModelName :: !Text
, _dmrsPrimaryContainer :: !ContainerDefinition
, _dmrsExecutionRoleARN :: !Text
, _dmrsCreationTime :: !POSIX
, _dmrsModelARN :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeModelResponse
:: Int
-> Text
-> ContainerDefinition
-> Text
-> UTCTime
-> Text
-> DescribeModelResponse
describeModelResponse pResponseStatus_ pModelName_ pPrimaryContainer_ pExecutionRoleARN_ pCreationTime_ pModelARN_ =
DescribeModelResponse'
{ _dmrsVPCConfig = Nothing
, _dmrsResponseStatus = pResponseStatus_
, _dmrsModelName = pModelName_
, _dmrsPrimaryContainer = pPrimaryContainer_
, _dmrsExecutionRoleARN = pExecutionRoleARN_
, _dmrsCreationTime = _Time # pCreationTime_
, _dmrsModelARN = pModelARN_
}
dmrsVPCConfig :: Lens' DescribeModelResponse (Maybe VPCConfig)
dmrsVPCConfig = lens _dmrsVPCConfig (\ s a -> s{_dmrsVPCConfig = a})
dmrsResponseStatus :: Lens' DescribeModelResponse Int
dmrsResponseStatus = lens _dmrsResponseStatus (\ s a -> s{_dmrsResponseStatus = a})
dmrsModelName :: Lens' DescribeModelResponse Text
dmrsModelName = lens _dmrsModelName (\ s a -> s{_dmrsModelName = a})
dmrsPrimaryContainer :: Lens' DescribeModelResponse ContainerDefinition
dmrsPrimaryContainer = lens _dmrsPrimaryContainer (\ s a -> s{_dmrsPrimaryContainer = a})
dmrsExecutionRoleARN :: Lens' DescribeModelResponse Text
dmrsExecutionRoleARN = lens _dmrsExecutionRoleARN (\ s a -> s{_dmrsExecutionRoleARN = a})
dmrsCreationTime :: Lens' DescribeModelResponse UTCTime
dmrsCreationTime = lens _dmrsCreationTime (\ s a -> s{_dmrsCreationTime = a}) . _Time
dmrsModelARN :: Lens' DescribeModelResponse Text
dmrsModelARN = lens _dmrsModelARN (\ s a -> s{_dmrsModelARN = a})
instance NFData DescribeModelResponse where