{-# 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.CreateInstanceSnapshot
(
createInstanceSnapshot
, CreateInstanceSnapshot
, cisInstanceSnapshotName
, cisInstanceName
, createInstanceSnapshotResponse
, CreateInstanceSnapshotResponse
, cisrsOperations
, cisrsResponseStatus
) 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
data CreateInstanceSnapshot = CreateInstanceSnapshot'
{ _cisInstanceSnapshotName :: !Text
, _cisInstanceName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createInstanceSnapshot
:: Text
-> Text
-> CreateInstanceSnapshot
createInstanceSnapshot pInstanceSnapshotName_ pInstanceName_ =
CreateInstanceSnapshot'
{ _cisInstanceSnapshotName = pInstanceSnapshotName_
, _cisInstanceName = pInstanceName_
}
cisInstanceSnapshotName :: Lens' CreateInstanceSnapshot Text
cisInstanceSnapshotName = lens _cisInstanceSnapshotName (\ s a -> s{_cisInstanceSnapshotName = a})
cisInstanceName :: Lens' CreateInstanceSnapshot Text
cisInstanceName = lens _cisInstanceName (\ s a -> s{_cisInstanceName = a})
instance AWSRequest CreateInstanceSnapshot where
type Rs CreateInstanceSnapshot =
CreateInstanceSnapshotResponse
request = postJSON lightsail
response
= receiveJSON
(\ s h x ->
CreateInstanceSnapshotResponse' <$>
(x .?> "operations" .!@ mempty) <*>
(pure (fromEnum s)))
instance Hashable CreateInstanceSnapshot where
instance NFData CreateInstanceSnapshot where
instance ToHeaders CreateInstanceSnapshot where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("Lightsail_20161128.CreateInstanceSnapshot" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON CreateInstanceSnapshot where
toJSON CreateInstanceSnapshot'{..}
= object
(catMaybes
[Just
("instanceSnapshotName" .= _cisInstanceSnapshotName),
Just ("instanceName" .= _cisInstanceName)])
instance ToPath CreateInstanceSnapshot where
toPath = const "/"
instance ToQuery CreateInstanceSnapshot where
toQuery = const mempty
data CreateInstanceSnapshotResponse = CreateInstanceSnapshotResponse'
{ _cisrsOperations :: !(Maybe [Operation])
, _cisrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createInstanceSnapshotResponse
:: Int
-> CreateInstanceSnapshotResponse
createInstanceSnapshotResponse pResponseStatus_ =
CreateInstanceSnapshotResponse'
{_cisrsOperations = Nothing, _cisrsResponseStatus = pResponseStatus_}
cisrsOperations :: Lens' CreateInstanceSnapshotResponse [Operation]
cisrsOperations = lens _cisrsOperations (\ s a -> s{_cisrsOperations = a}) . _Default . _Coerce
cisrsResponseStatus :: Lens' CreateInstanceSnapshotResponse Int
cisrsResponseStatus = lens _cisrsResponseStatus (\ s a -> s{_cisrsResponseStatus = a})
instance NFData CreateInstanceSnapshotResponse where