{-# 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.DescribeNotebookInstance
(
describeNotebookInstance
, DescribeNotebookInstance
, dniNotebookInstanceName
, describeNotebookInstanceResponse
, DescribeNotebookInstanceResponse
, dnirsCreationTime
, dnirsFailureReason
, dnirsNotebookInstanceName
, dnirsSecurityGroups
, dnirsURL
, dnirsLastModifiedTime
, dnirsNetworkInterfaceId
, dnirsSubnetId
, dnirsInstanceType
, dnirsKMSKeyId
, dnirsDirectInternetAccess
, dnirsNotebookInstanceARN
, dnirsNotebookInstanceLifecycleConfigName
, dnirsRoleARN
, dnirsResponseStatus
, dnirsNotebookInstanceStatus
) 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 DescribeNotebookInstance = DescribeNotebookInstance'
{ _dniNotebookInstanceName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeNotebookInstance
:: Text
-> DescribeNotebookInstance
describeNotebookInstance pNotebookInstanceName_ =
DescribeNotebookInstance' {_dniNotebookInstanceName = pNotebookInstanceName_}
dniNotebookInstanceName :: Lens' DescribeNotebookInstance Text
dniNotebookInstanceName = lens _dniNotebookInstanceName (\ s a -> s{_dniNotebookInstanceName = a})
instance AWSRequest DescribeNotebookInstance where
type Rs DescribeNotebookInstance =
DescribeNotebookInstanceResponse
request = postJSON sageMaker
response
= receiveJSON
(\ s h x ->
DescribeNotebookInstanceResponse' <$>
(x .?> "CreationTime") <*> (x .?> "FailureReason")
<*> (x .?> "NotebookInstanceName")
<*> (x .?> "SecurityGroups" .!@ mempty)
<*> (x .?> "Url")
<*> (x .?> "LastModifiedTime")
<*> (x .?> "NetworkInterfaceId")
<*> (x .?> "SubnetId")
<*> (x .?> "InstanceType")
<*> (x .?> "KmsKeyId")
<*> (x .?> "DirectInternetAccess")
<*> (x .?> "NotebookInstanceArn")
<*> (x .?> "NotebookInstanceLifecycleConfigName")
<*> (x .?> "RoleArn")
<*> (pure (fromEnum s))
<*> (x .:> "NotebookInstanceStatus"))
instance Hashable DescribeNotebookInstance where
instance NFData DescribeNotebookInstance where
instance ToHeaders DescribeNotebookInstance where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("SageMaker.DescribeNotebookInstance" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeNotebookInstance where
toJSON DescribeNotebookInstance'{..}
= object
(catMaybes
[Just
("NotebookInstanceName" .=
_dniNotebookInstanceName)])
instance ToPath DescribeNotebookInstance where
toPath = const "/"
instance ToQuery DescribeNotebookInstance where
toQuery = const mempty
data DescribeNotebookInstanceResponse = DescribeNotebookInstanceResponse'
{ _dnirsCreationTime :: !(Maybe POSIX)
, _dnirsFailureReason :: !(Maybe Text)
, _dnirsNotebookInstanceName :: !(Maybe Text)
, _dnirsSecurityGroups :: !(Maybe [Text])
, _dnirsURL :: !(Maybe Text)
, _dnirsLastModifiedTime :: !(Maybe POSIX)
, _dnirsNetworkInterfaceId :: !(Maybe Text)
, _dnirsSubnetId :: !(Maybe Text)
, _dnirsInstanceType :: !(Maybe InstanceType)
, _dnirsKMSKeyId :: !(Maybe Text)
, _dnirsDirectInternetAccess :: !(Maybe DirectInternetAccess)
, _dnirsNotebookInstanceARN :: !(Maybe Text)
, _dnirsNotebookInstanceLifecycleConfigName :: !(Maybe Text)
, _dnirsRoleARN :: !(Maybe Text)
, _dnirsResponseStatus :: !Int
, _dnirsNotebookInstanceStatus :: !NotebookInstanceStatus
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeNotebookInstanceResponse
:: Int
-> NotebookInstanceStatus
-> DescribeNotebookInstanceResponse
describeNotebookInstanceResponse pResponseStatus_ pNotebookInstanceStatus_ =
DescribeNotebookInstanceResponse'
{ _dnirsCreationTime = Nothing
, _dnirsFailureReason = Nothing
, _dnirsNotebookInstanceName = Nothing
, _dnirsSecurityGroups = Nothing
, _dnirsURL = Nothing
, _dnirsLastModifiedTime = Nothing
, _dnirsNetworkInterfaceId = Nothing
, _dnirsSubnetId = Nothing
, _dnirsInstanceType = Nothing
, _dnirsKMSKeyId = Nothing
, _dnirsDirectInternetAccess = Nothing
, _dnirsNotebookInstanceARN = Nothing
, _dnirsNotebookInstanceLifecycleConfigName = Nothing
, _dnirsRoleARN = Nothing
, _dnirsResponseStatus = pResponseStatus_
, _dnirsNotebookInstanceStatus = pNotebookInstanceStatus_
}
dnirsCreationTime :: Lens' DescribeNotebookInstanceResponse (Maybe UTCTime)
dnirsCreationTime = lens _dnirsCreationTime (\ s a -> s{_dnirsCreationTime = a}) . mapping _Time
dnirsFailureReason :: Lens' DescribeNotebookInstanceResponse (Maybe Text)
dnirsFailureReason = lens _dnirsFailureReason (\ s a -> s{_dnirsFailureReason = a})
dnirsNotebookInstanceName :: Lens' DescribeNotebookInstanceResponse (Maybe Text)
dnirsNotebookInstanceName = lens _dnirsNotebookInstanceName (\ s a -> s{_dnirsNotebookInstanceName = a})
dnirsSecurityGroups :: Lens' DescribeNotebookInstanceResponse [Text]
dnirsSecurityGroups = lens _dnirsSecurityGroups (\ s a -> s{_dnirsSecurityGroups = a}) . _Default . _Coerce
dnirsURL :: Lens' DescribeNotebookInstanceResponse (Maybe Text)
dnirsURL = lens _dnirsURL (\ s a -> s{_dnirsURL = a})
dnirsLastModifiedTime :: Lens' DescribeNotebookInstanceResponse (Maybe UTCTime)
dnirsLastModifiedTime = lens _dnirsLastModifiedTime (\ s a -> s{_dnirsLastModifiedTime = a}) . mapping _Time
dnirsNetworkInterfaceId :: Lens' DescribeNotebookInstanceResponse (Maybe Text)
dnirsNetworkInterfaceId = lens _dnirsNetworkInterfaceId (\ s a -> s{_dnirsNetworkInterfaceId = a})
dnirsSubnetId :: Lens' DescribeNotebookInstanceResponse (Maybe Text)
dnirsSubnetId = lens _dnirsSubnetId (\ s a -> s{_dnirsSubnetId = a})
dnirsInstanceType :: Lens' DescribeNotebookInstanceResponse (Maybe InstanceType)
dnirsInstanceType = lens _dnirsInstanceType (\ s a -> s{_dnirsInstanceType = a})
dnirsKMSKeyId :: Lens' DescribeNotebookInstanceResponse (Maybe Text)
dnirsKMSKeyId = lens _dnirsKMSKeyId (\ s a -> s{_dnirsKMSKeyId = a})
dnirsDirectInternetAccess :: Lens' DescribeNotebookInstanceResponse (Maybe DirectInternetAccess)
dnirsDirectInternetAccess = lens _dnirsDirectInternetAccess (\ s a -> s{_dnirsDirectInternetAccess = a})
dnirsNotebookInstanceARN :: Lens' DescribeNotebookInstanceResponse (Maybe Text)
dnirsNotebookInstanceARN = lens _dnirsNotebookInstanceARN (\ s a -> s{_dnirsNotebookInstanceARN = a})
dnirsNotebookInstanceLifecycleConfigName :: Lens' DescribeNotebookInstanceResponse (Maybe Text)
dnirsNotebookInstanceLifecycleConfigName = lens _dnirsNotebookInstanceLifecycleConfigName (\ s a -> s{_dnirsNotebookInstanceLifecycleConfigName = a})
dnirsRoleARN :: Lens' DescribeNotebookInstanceResponse (Maybe Text)
dnirsRoleARN = lens _dnirsRoleARN (\ s a -> s{_dnirsRoleARN = a})
dnirsResponseStatus :: Lens' DescribeNotebookInstanceResponse Int
dnirsResponseStatus = lens _dnirsResponseStatus (\ s a -> s{_dnirsResponseStatus = a})
dnirsNotebookInstanceStatus :: Lens' DescribeNotebookInstanceResponse NotebookInstanceStatus
dnirsNotebookInstanceStatus = lens _dnirsNotebookInstanceStatus (\ s a -> s{_dnirsNotebookInstanceStatus = a})
instance NFData DescribeNotebookInstanceResponse
where