module Network.AWS.MachineLearning.DeleteRealtimeEndpoint
(
DeleteRealtimeEndpoint
, deleteRealtimeEndpoint
, dreMLModelId
, DeleteRealtimeEndpointResponse
, deleteRealtimeEndpointResponse
, drerMLModelId
, drerRealtimeEndpointInfo
) where
import Network.AWS.Data (Object)
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.MachineLearning.Types
import qualified GHC.Exts
newtype DeleteRealtimeEndpoint = DeleteRealtimeEndpoint
{ _dreMLModelId :: Text
} deriving (Eq, Ord, Read, Show, Monoid, IsString)
deleteRealtimeEndpoint :: Text
-> DeleteRealtimeEndpoint
deleteRealtimeEndpoint p1 = DeleteRealtimeEndpoint
{ _dreMLModelId = p1
}
dreMLModelId :: Lens' DeleteRealtimeEndpoint Text
dreMLModelId = lens _dreMLModelId (\s a -> s { _dreMLModelId = a })
data DeleteRealtimeEndpointResponse = DeleteRealtimeEndpointResponse
{ _drerMLModelId :: Maybe Text
, _drerRealtimeEndpointInfo :: Maybe RealtimeEndpointInfo
} deriving (Eq, Read, Show)
deleteRealtimeEndpointResponse :: DeleteRealtimeEndpointResponse
deleteRealtimeEndpointResponse = DeleteRealtimeEndpointResponse
{ _drerMLModelId = Nothing
, _drerRealtimeEndpointInfo = Nothing
}
drerMLModelId :: Lens' DeleteRealtimeEndpointResponse (Maybe Text)
drerMLModelId = lens _drerMLModelId (\s a -> s { _drerMLModelId = a })
drerRealtimeEndpointInfo :: Lens' DeleteRealtimeEndpointResponse (Maybe RealtimeEndpointInfo)
drerRealtimeEndpointInfo =
lens _drerRealtimeEndpointInfo
(\s a -> s { _drerRealtimeEndpointInfo = a })
instance ToPath DeleteRealtimeEndpoint where
toPath = const "/"
instance ToQuery DeleteRealtimeEndpoint where
toQuery = const mempty
instance ToHeaders DeleteRealtimeEndpoint
instance ToJSON DeleteRealtimeEndpoint where
toJSON DeleteRealtimeEndpoint{..} = object
[ "MLModelId" .= _dreMLModelId
]
instance AWSRequest DeleteRealtimeEndpoint where
type Sv DeleteRealtimeEndpoint = MachineLearning
type Rs DeleteRealtimeEndpoint = DeleteRealtimeEndpointResponse
request = post "DeleteRealtimeEndpoint"
response = jsonResponse
instance FromJSON DeleteRealtimeEndpointResponse where
parseJSON = withObject "DeleteRealtimeEndpointResponse" $ \o -> DeleteRealtimeEndpointResponse
<$> o .:? "MLModelId"
<*> o .:? "RealtimeEndpointInfo"