CreateDiskSnapshot.hs

{-# 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 #-}

-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- |
-- Module      : Network.AWS.Lightsail.CreateDiskSnapshot
-- Copyright   : (c) 2013-2018 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Creates a snapshot of a block storage disk. You can use snapshots for backups, to make copies of disks, and to save data before shutting down a Lightsail instance.
--
--
-- You can take a snapshot of an attached disk that is in use; however, snapshots only capture data that has been written to your disk at the time the snapshot command is issued. This may exclude any data that has been cached by any applications or the operating system. If you can pause any file systems on the disk long enough to take a snapshot, your snapshot should be complete. Nevertheless, if you cannot pause all file writes to the disk, you should unmount the disk from within the Lightsail instance, issue the create disk snapshot command, and then remount the disk to ensure a consistent and complete snapshot. You may remount and use your disk while the snapshot status is pending.
--
module Network.AWS.Lightsail.CreateDiskSnapshot
    (
    -- * Creating a Request
      createDiskSnapshot
    , CreateDiskSnapshot
    -- * Request Lenses
    , cdsDiskName
    , cdsDiskSnapshotName

    -- * Destructuring the Response
    , createDiskSnapshotResponse
    , CreateDiskSnapshotResponse
    -- * Response Lenses
    , cdsrsOperations
    , cdsrsResponseStatus
    ) 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

-- | /See:/ 'createDiskSnapshot' smart constructor.
data CreateDiskSnapshot = CreateDiskSnapshot'
  { _cdsDiskName         :: !Text
  , _cdsDiskSnapshotName :: !Text
  } deriving (Eq, Read, Show, Data, Typeable, Generic)


-- | Creates a value of 'CreateDiskSnapshot' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'cdsDiskName' - The unique name of the source disk (e.g., @my-source-disk@ ).
--
-- * 'cdsDiskSnapshotName' - The name of the destination disk snapshot (e.g., @my-disk-snapshot@ ) based on the source disk.
createDiskSnapshot
    :: Text -- ^ 'cdsDiskName'
    -> Text -- ^ 'cdsDiskSnapshotName'
    -> CreateDiskSnapshot
createDiskSnapshot pDiskName_ pDiskSnapshotName_ =
  CreateDiskSnapshot'
    {_cdsDiskName = pDiskName_, _cdsDiskSnapshotName = pDiskSnapshotName_}


-- | The unique name of the source disk (e.g., @my-source-disk@ ).
cdsDiskName :: Lens' CreateDiskSnapshot Text
cdsDiskName = lens _cdsDiskName (\ s a -> s{_cdsDiskName = a})

-- | The name of the destination disk snapshot (e.g., @my-disk-snapshot@ ) based on the source disk.
cdsDiskSnapshotName :: Lens' CreateDiskSnapshot Text
cdsDiskSnapshotName = lens _cdsDiskSnapshotName (\ s a -> s{_cdsDiskSnapshotName = a})

instance AWSRequest CreateDiskSnapshot where
        type Rs CreateDiskSnapshot =
             CreateDiskSnapshotResponse
        request = postJSON lightsail
        response
          = receiveJSON
              (\ s h x ->
                 CreateDiskSnapshotResponse' <$>
                   (x .?> "operations" .!@ mempty) <*>
                     (pure (fromEnum s)))

instance Hashable CreateDiskSnapshot where

instance NFData CreateDiskSnapshot where

instance ToHeaders CreateDiskSnapshot where
        toHeaders
          = const
              (mconcat
                 ["X-Amz-Target" =#
                    ("Lightsail_20161128.CreateDiskSnapshot" ::
                       ByteString),
                  "Content-Type" =#
                    ("application/x-amz-json-1.1" :: ByteString)])

instance ToJSON CreateDiskSnapshot where
        toJSON CreateDiskSnapshot'{..}
          = object
              (catMaybes
                 [Just ("diskName" .= _cdsDiskName),
                  Just ("diskSnapshotName" .= _cdsDiskSnapshotName)])

instance ToPath CreateDiskSnapshot where
        toPath = const "/"

instance ToQuery CreateDiskSnapshot where
        toQuery = const mempty

-- | /See:/ 'createDiskSnapshotResponse' smart constructor.
data CreateDiskSnapshotResponse = CreateDiskSnapshotResponse'
  { _cdsrsOperations     :: !(Maybe [Operation])
  , _cdsrsResponseStatus :: !Int
  } deriving (Eq, Read, Show, Data, Typeable, Generic)


-- | Creates a value of 'CreateDiskSnapshotResponse' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'cdsrsOperations' - An object describing the API operations.
--
-- * 'cdsrsResponseStatus' - -- | The response status code.
createDiskSnapshotResponse
    :: Int -- ^ 'cdsrsResponseStatus'
    -> CreateDiskSnapshotResponse
createDiskSnapshotResponse pResponseStatus_ =
  CreateDiskSnapshotResponse'
    {_cdsrsOperations = Nothing, _cdsrsResponseStatus = pResponseStatus_}


-- | An object describing the API operations.
cdsrsOperations :: Lens' CreateDiskSnapshotResponse [Operation]
cdsrsOperations = lens _cdsrsOperations (\ s a -> s{_cdsrsOperations = a}) . _Default . _Coerce

-- | -- | The response status code.
cdsrsResponseStatus :: Lens' CreateDiskSnapshotResponse Int
cdsrsResponseStatus = lens _cdsrsResponseStatus (\ s a -> s{_cdsrsResponseStatus = a})

instance NFData CreateDiskSnapshotResponse where