{-# 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.ListModels
(
listModels
, ListModels
, lmNameContains
, lmCreationTimeAfter
, lmNextToken
, lmSortOrder
, lmCreationTimeBefore
, lmMaxResults
, lmSortBy
, listModelsResponse
, ListModelsResponse
, lmrsNextToken
, lmrsResponseStatus
, lmrsModels
) where
import Network.AWS.Lens
import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.SageMaker.Types
import Network.AWS.SageMaker.Types.Product
data ListModels = ListModels'
{ _lmNameContains :: !(Maybe Text)
, _lmCreationTimeAfter :: !(Maybe POSIX)
, _lmNextToken :: !(Maybe Text)
, _lmSortOrder :: !(Maybe OrderKey)
, _lmCreationTimeBefore :: !(Maybe POSIX)
, _lmMaxResults :: !(Maybe Nat)
, _lmSortBy :: !(Maybe ModelSortKey)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listModels
:: ListModels
listModels =
ListModels'
{ _lmNameContains = Nothing
, _lmCreationTimeAfter = Nothing
, _lmNextToken = Nothing
, _lmSortOrder = Nothing
, _lmCreationTimeBefore = Nothing
, _lmMaxResults = Nothing
, _lmSortBy = Nothing
}
lmNameContains :: Lens' ListModels (Maybe Text)
lmNameContains = lens _lmNameContains (\ s a -> s{_lmNameContains = a})
lmCreationTimeAfter :: Lens' ListModels (Maybe UTCTime)
lmCreationTimeAfter = lens _lmCreationTimeAfter (\ s a -> s{_lmCreationTimeAfter = a}) . mapping _Time
lmNextToken :: Lens' ListModels (Maybe Text)
lmNextToken = lens _lmNextToken (\ s a -> s{_lmNextToken = a})
lmSortOrder :: Lens' ListModels (Maybe OrderKey)
lmSortOrder = lens _lmSortOrder (\ s a -> s{_lmSortOrder = a})
lmCreationTimeBefore :: Lens' ListModels (Maybe UTCTime)
lmCreationTimeBefore = lens _lmCreationTimeBefore (\ s a -> s{_lmCreationTimeBefore = a}) . mapping _Time
lmMaxResults :: Lens' ListModels (Maybe Natural)
lmMaxResults = lens _lmMaxResults (\ s a -> s{_lmMaxResults = a}) . mapping _Nat
lmSortBy :: Lens' ListModels (Maybe ModelSortKey)
lmSortBy = lens _lmSortBy (\ s a -> s{_lmSortBy = a})
instance AWSPager ListModels where
page rq rs
| stop (rs ^. lmrsNextToken) = Nothing
| stop (rs ^. lmrsModels) = Nothing
| otherwise =
Just $ rq & lmNextToken .~ rs ^. lmrsNextToken
instance AWSRequest ListModels where
type Rs ListModels = ListModelsResponse
request = postJSON sageMaker
response
= receiveJSON
(\ s h x ->
ListModelsResponse' <$>
(x .?> "NextToken") <*> (pure (fromEnum s)) <*>
(x .?> "Models" .!@ mempty))
instance Hashable ListModels where
instance NFData ListModels where
instance ToHeaders ListModels where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("SageMaker.ListModels" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON ListModels where
toJSON ListModels'{..}
= object
(catMaybes
[("NameContains" .=) <$> _lmNameContains,
("CreationTimeAfter" .=) <$> _lmCreationTimeAfter,
("NextToken" .=) <$> _lmNextToken,
("SortOrder" .=) <$> _lmSortOrder,
("CreationTimeBefore" .=) <$> _lmCreationTimeBefore,
("MaxResults" .=) <$> _lmMaxResults,
("SortBy" .=) <$> _lmSortBy])
instance ToPath ListModels where
toPath = const "/"
instance ToQuery ListModels where
toQuery = const mempty
data ListModelsResponse = ListModelsResponse'
{ _lmrsNextToken :: !(Maybe Text)
, _lmrsResponseStatus :: !Int
, _lmrsModels :: ![ModelSummary]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listModelsResponse
:: Int
-> ListModelsResponse
listModelsResponse pResponseStatus_ =
ListModelsResponse'
{ _lmrsNextToken = Nothing
, _lmrsResponseStatus = pResponseStatus_
, _lmrsModels = mempty
}
lmrsNextToken :: Lens' ListModelsResponse (Maybe Text)
lmrsNextToken = lens _lmrsNextToken (\ s a -> s{_lmrsNextToken = a})
lmrsResponseStatus :: Lens' ListModelsResponse Int
lmrsResponseStatus = lens _lmrsResponseStatus (\ s a -> s{_lmrsResponseStatus = a})
lmrsModels :: Lens' ListModelsResponse [ModelSummary]
lmrsModels = lens _lmrsModels (\ s a -> s{_lmrsModels = a}) . _Coerce
instance NFData ListModelsResponse where