UpdateAvailabilityOptions.hs

{-# LANGUAGE DataKinds                   #-}
{-# LANGUAGE DeriveGeneric               #-}
{-# LANGUAGE FlexibleInstances           #-}
{-# LANGUAGE GeneralizedNewtypeDeriving  #-}
{-# LANGUAGE LambdaCase                  #-}
{-# LANGUAGE NoImplicitPrelude           #-}
{-# LANGUAGE OverloadedStrings           #-}
{-# LANGUAGE RecordWildCards             #-}
{-# LANGUAGE TypeFamilies                #-}

{-# OPTIONS_GHC -fno-warn-unused-imports #-}

-- Module      : Network.AWS.CloudSearch.UpdateAvailabilityOptions
-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>
-- License     : This Source Code Form is subject to the terms of
--               the Mozilla Public License, v. 2.0.
--               A copy of the MPL can be found in the LICENSE file or
--               you can obtain it at http://mozilla.org/MPL/2.0/.
-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability   : experimental
-- Portability : non-portable (GHC extensions)
--
-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- | Configures the availability options for a domain. Enabling the Multi-AZ
-- option expands an Amazon CloudSearch domain to an additional Availability
-- Zone in the same Region to increase fault tolerance in the event of a service
-- disruption. Changes to the Multi-AZ option can take about half an hour to
-- become active. For more information, see Configuring Availability Options in
-- the /Amazon CloudSearch Developer Guide/.
--
-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/API_UpdateAvailabilityOptions.html>
module Network.AWS.CloudSearch.UpdateAvailabilityOptions
    (
    -- * Request
      UpdateAvailabilityOptions
    -- ** Request constructor
    , updateAvailabilityOptions
    -- ** Request lenses
    , uaoDomainName
    , uaoMultiAZ

    -- * Response
    , UpdateAvailabilityOptionsResponse
    -- ** Response constructor
    , updateAvailabilityOptionsResponse
    -- ** Response lenses
    , uaorAvailabilityOptions
    ) where

import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.CloudSearch.Types
import qualified GHC.Exts

data UpdateAvailabilityOptions = UpdateAvailabilityOptions
    { _uaoDomainName :: Text
    , _uaoMultiAZ    :: Bool
    } deriving (Eq, Ord, Read, Show)

-- | 'UpdateAvailabilityOptions' constructor.
--
-- The fields accessible through corresponding lenses are:
--
-- * 'uaoDomainName' @::@ 'Text'
--
-- * 'uaoMultiAZ' @::@ 'Bool'
--
updateAvailabilityOptions :: Text -- ^ 'uaoDomainName'
                          -> Bool -- ^ 'uaoMultiAZ'
                          -> UpdateAvailabilityOptions
updateAvailabilityOptions p1 p2 = UpdateAvailabilityOptions
    { _uaoDomainName = p1
    , _uaoMultiAZ    = p2
    }

uaoDomainName :: Lens' UpdateAvailabilityOptions Text
uaoDomainName = lens _uaoDomainName (\s a -> s { _uaoDomainName = a })

-- | You expand an existing search domain to a second Availability Zone by setting
-- the Multi-AZ option to true. Similarly, you can turn off the Multi-AZ option
-- to downgrade the domain to a single Availability Zone by setting the Multi-AZ
-- option to 'false'.
uaoMultiAZ :: Lens' UpdateAvailabilityOptions Bool
uaoMultiAZ = lens _uaoMultiAZ (\s a -> s { _uaoMultiAZ = a })

newtype UpdateAvailabilityOptionsResponse = UpdateAvailabilityOptionsResponse
    { _uaorAvailabilityOptions :: Maybe AvailabilityOptionsStatus
    } deriving (Eq, Read, Show)

-- | 'UpdateAvailabilityOptionsResponse' constructor.
--
-- The fields accessible through corresponding lenses are:
--
-- * 'uaorAvailabilityOptions' @::@ 'Maybe' 'AvailabilityOptionsStatus'
--
updateAvailabilityOptionsResponse :: UpdateAvailabilityOptionsResponse
updateAvailabilityOptionsResponse = UpdateAvailabilityOptionsResponse
    { _uaorAvailabilityOptions = Nothing
    }

-- | The newly-configured availability options. Indicates whether Multi-AZ is
-- enabled for the domain.
uaorAvailabilityOptions :: Lens' UpdateAvailabilityOptionsResponse (Maybe AvailabilityOptionsStatus)
uaorAvailabilityOptions =
    lens _uaorAvailabilityOptions (\s a -> s { _uaorAvailabilityOptions = a })

instance ToPath UpdateAvailabilityOptions where
    toPath = const "/"

instance ToQuery UpdateAvailabilityOptions where
    toQuery UpdateAvailabilityOptions{..} = mconcat
        [ "DomainName" =? _uaoDomainName
        , "MultiAZ"    =? _uaoMultiAZ
        ]

instance ToHeaders UpdateAvailabilityOptions

instance AWSRequest UpdateAvailabilityOptions where
    type Sv UpdateAvailabilityOptions = CloudSearch
    type Rs UpdateAvailabilityOptions = UpdateAvailabilityOptionsResponse

    request  = post "UpdateAvailabilityOptions"
    response = xmlResponse

instance FromXML UpdateAvailabilityOptionsResponse where
    parseXML = withElement "UpdateAvailabilityOptionsResult" $ \x -> UpdateAvailabilityOptionsResponse
        <$> x .@? "AvailabilityOptions"