{-# 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.Lightsail.DeleteInstanceSnapshot
(
deleteInstanceSnapshot
, DeleteInstanceSnapshot
, disInstanceSnapshotName
, deleteInstanceSnapshotResponse
, DeleteInstanceSnapshotResponse
, disrsOperations
, disrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Lightsail.Types
import Network.AWS.Lightsail.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DeleteInstanceSnapshot = DeleteInstanceSnapshot'
{ _disInstanceSnapshotName :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteInstanceSnapshot
:: Text
-> DeleteInstanceSnapshot
deleteInstanceSnapshot pInstanceSnapshotName_ =
DeleteInstanceSnapshot'
{ _disInstanceSnapshotName = pInstanceSnapshotName_
}
disInstanceSnapshotName :: Lens' DeleteInstanceSnapshot Text
disInstanceSnapshotName = lens _disInstanceSnapshotName (\ s a -> s{_disInstanceSnapshotName = a});
instance AWSRequest DeleteInstanceSnapshot where
type Rs DeleteInstanceSnapshot =
DeleteInstanceSnapshotResponse
request = postJSON lightsail
response
= receiveJSON
(\ s h x ->
DeleteInstanceSnapshotResponse' <$>
(x .?> "operations" .!@ mempty) <*>
(pure (fromEnum s)))
instance Hashable DeleteInstanceSnapshot
instance NFData DeleteInstanceSnapshot
instance ToHeaders DeleteInstanceSnapshot where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("Lightsail_20161128.DeleteInstanceSnapshot" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DeleteInstanceSnapshot where
toJSON DeleteInstanceSnapshot'{..}
= object
(catMaybes
[Just
("instanceSnapshotName" .=
_disInstanceSnapshotName)])
instance ToPath DeleteInstanceSnapshot where
toPath = const "/"
instance ToQuery DeleteInstanceSnapshot where
toQuery = const mempty
data DeleteInstanceSnapshotResponse = DeleteInstanceSnapshotResponse'
{ _disrsOperations :: !(Maybe [Operation])
, _disrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteInstanceSnapshotResponse
:: Int
-> DeleteInstanceSnapshotResponse
deleteInstanceSnapshotResponse pResponseStatus_ =
DeleteInstanceSnapshotResponse'
{ _disrsOperations = Nothing
, _disrsResponseStatus = pResponseStatus_
}
disrsOperations :: Lens' DeleteInstanceSnapshotResponse [Operation]
disrsOperations = lens _disrsOperations (\ s a -> s{_disrsOperations = a}) . _Default . _Coerce;
disrsResponseStatus :: Lens' DeleteInstanceSnapshotResponse Int
disrsResponseStatus = lens _disrsResponseStatus (\ s a -> s{_disrsResponseStatus = a});
instance NFData DeleteInstanceSnapshotResponse