{-# 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.ListNotebookInstanceLifecycleConfigs
(
listNotebookInstanceLifecycleConfigs
, ListNotebookInstanceLifecycleConfigs
, lnilcNameContains
, lnilcLastModifiedTimeBefore
, lnilcCreationTimeAfter
, lnilcNextToken
, lnilcSortOrder
, lnilcLastModifiedTimeAfter
, lnilcCreationTimeBefore
, lnilcMaxResults
, lnilcSortBy
, listNotebookInstanceLifecycleConfigsResponse
, ListNotebookInstanceLifecycleConfigsResponse
, lnilcrsNextToken
, lnilcrsNotebookInstanceLifecycleConfigs
, lnilcrsResponseStatus
) 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
data ListNotebookInstanceLifecycleConfigs = ListNotebookInstanceLifecycleConfigs'
{ _lnilcNameContains :: !(Maybe Text)
, _lnilcLastModifiedTimeBefore :: !(Maybe POSIX)
, _lnilcCreationTimeAfter :: !(Maybe POSIX)
, _lnilcNextToken :: !(Maybe Text)
, _lnilcSortOrder :: !(Maybe NotebookInstanceLifecycleConfigSortOrder)
, _lnilcLastModifiedTimeAfter :: !(Maybe POSIX)
, _lnilcCreationTimeBefore :: !(Maybe POSIX)
, _lnilcMaxResults :: !(Maybe Nat)
, _lnilcSortBy :: !(Maybe NotebookInstanceLifecycleConfigSortKey)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listNotebookInstanceLifecycleConfigs
:: ListNotebookInstanceLifecycleConfigs
listNotebookInstanceLifecycleConfigs =
ListNotebookInstanceLifecycleConfigs'
{ _lnilcNameContains = Nothing
, _lnilcLastModifiedTimeBefore = Nothing
, _lnilcCreationTimeAfter = Nothing
, _lnilcNextToken = Nothing
, _lnilcSortOrder = Nothing
, _lnilcLastModifiedTimeAfter = Nothing
, _lnilcCreationTimeBefore = Nothing
, _lnilcMaxResults = Nothing
, _lnilcSortBy = Nothing
}
lnilcNameContains :: Lens' ListNotebookInstanceLifecycleConfigs (Maybe Text)
lnilcNameContains = lens _lnilcNameContains (\ s a -> s{_lnilcNameContains = a})
lnilcLastModifiedTimeBefore :: Lens' ListNotebookInstanceLifecycleConfigs (Maybe UTCTime)
lnilcLastModifiedTimeBefore = lens _lnilcLastModifiedTimeBefore (\ s a -> s{_lnilcLastModifiedTimeBefore = a}) . mapping _Time
lnilcCreationTimeAfter :: Lens' ListNotebookInstanceLifecycleConfigs (Maybe UTCTime)
lnilcCreationTimeAfter = lens _lnilcCreationTimeAfter (\ s a -> s{_lnilcCreationTimeAfter = a}) . mapping _Time
lnilcNextToken :: Lens' ListNotebookInstanceLifecycleConfigs (Maybe Text)
lnilcNextToken = lens _lnilcNextToken (\ s a -> s{_lnilcNextToken = a})
lnilcSortOrder :: Lens' ListNotebookInstanceLifecycleConfigs (Maybe NotebookInstanceLifecycleConfigSortOrder)
lnilcSortOrder = lens _lnilcSortOrder (\ s a -> s{_lnilcSortOrder = a})
lnilcLastModifiedTimeAfter :: Lens' ListNotebookInstanceLifecycleConfigs (Maybe UTCTime)
lnilcLastModifiedTimeAfter = lens _lnilcLastModifiedTimeAfter (\ s a -> s{_lnilcLastModifiedTimeAfter = a}) . mapping _Time
lnilcCreationTimeBefore :: Lens' ListNotebookInstanceLifecycleConfigs (Maybe UTCTime)
lnilcCreationTimeBefore = lens _lnilcCreationTimeBefore (\ s a -> s{_lnilcCreationTimeBefore = a}) . mapping _Time
lnilcMaxResults :: Lens' ListNotebookInstanceLifecycleConfigs (Maybe Natural)
lnilcMaxResults = lens _lnilcMaxResults (\ s a -> s{_lnilcMaxResults = a}) . mapping _Nat
lnilcSortBy :: Lens' ListNotebookInstanceLifecycleConfigs (Maybe NotebookInstanceLifecycleConfigSortKey)
lnilcSortBy = lens _lnilcSortBy (\ s a -> s{_lnilcSortBy = a})
instance AWSRequest
ListNotebookInstanceLifecycleConfigs
where
type Rs ListNotebookInstanceLifecycleConfigs =
ListNotebookInstanceLifecycleConfigsResponse
request = postJSON sageMaker
response
= receiveJSON
(\ s h x ->
ListNotebookInstanceLifecycleConfigsResponse' <$>
(x .?> "NextToken") <*>
(x .?> "NotebookInstanceLifecycleConfigs" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable
ListNotebookInstanceLifecycleConfigs
where
instance NFData ListNotebookInstanceLifecycleConfigs
where
instance ToHeaders
ListNotebookInstanceLifecycleConfigs
where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("SageMaker.ListNotebookInstanceLifecycleConfigs" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON ListNotebookInstanceLifecycleConfigs
where
toJSON ListNotebookInstanceLifecycleConfigs'{..}
= object
(catMaybes
[("NameContains" .=) <$> _lnilcNameContains,
("LastModifiedTimeBefore" .=) <$>
_lnilcLastModifiedTimeBefore,
("CreationTimeAfter" .=) <$> _lnilcCreationTimeAfter,
("NextToken" .=) <$> _lnilcNextToken,
("SortOrder" .=) <$> _lnilcSortOrder,
("LastModifiedTimeAfter" .=) <$>
_lnilcLastModifiedTimeAfter,
("CreationTimeBefore" .=) <$>
_lnilcCreationTimeBefore,
("MaxResults" .=) <$> _lnilcMaxResults,
("SortBy" .=) <$> _lnilcSortBy])
instance ToPath ListNotebookInstanceLifecycleConfigs
where
toPath = const "/"
instance ToQuery ListNotebookInstanceLifecycleConfigs
where
toQuery = const mempty
data ListNotebookInstanceLifecycleConfigsResponse = ListNotebookInstanceLifecycleConfigsResponse'
{ _lnilcrsNextToken :: !(Maybe Text)
, _lnilcrsNotebookInstanceLifecycleConfigs :: !(Maybe [NotebookInstanceLifecycleConfigSummary])
, _lnilcrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listNotebookInstanceLifecycleConfigsResponse
:: Int
-> ListNotebookInstanceLifecycleConfigsResponse
listNotebookInstanceLifecycleConfigsResponse pResponseStatus_ =
ListNotebookInstanceLifecycleConfigsResponse'
{ _lnilcrsNextToken = Nothing
, _lnilcrsNotebookInstanceLifecycleConfigs = Nothing
, _lnilcrsResponseStatus = pResponseStatus_
}
lnilcrsNextToken :: Lens' ListNotebookInstanceLifecycleConfigsResponse (Maybe Text)
lnilcrsNextToken = lens _lnilcrsNextToken (\ s a -> s{_lnilcrsNextToken = a})
lnilcrsNotebookInstanceLifecycleConfigs :: Lens' ListNotebookInstanceLifecycleConfigsResponse [NotebookInstanceLifecycleConfigSummary]
lnilcrsNotebookInstanceLifecycleConfigs = lens _lnilcrsNotebookInstanceLifecycleConfigs (\ s a -> s{_lnilcrsNotebookInstanceLifecycleConfigs = a}) . _Default . _Coerce
lnilcrsResponseStatus :: Lens' ListNotebookInstanceLifecycleConfigsResponse Int
lnilcrsResponseStatus = lens _lnilcrsResponseStatus (\ s a -> s{_lnilcrsResponseStatus = a})
instance NFData
ListNotebookInstanceLifecycleConfigsResponse
where