{-# 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.AutoScaling.DescribeScheduledActions
-- 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.

-- | Lists the actions scheduled for your Auto Scaling group that haven't been
-- executed. To list the actions that were already executed, use 'DescribeScalingActivities'.
--
-- <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/API_DescribeScheduledActions.html>
module Network.AWS.AutoScaling.DescribeScheduledActions
    (
    -- * Request
      DescribeScheduledActions
    -- ** Request constructor
    , describeScheduledActions
    -- ** Request lenses
    , dsa1AutoScalingGroupName
    , dsa1EndTime
    , dsa1MaxRecords
    , dsa1NextToken
    , dsa1ScheduledActionNames
    , dsa1StartTime

    -- * Response
    , DescribeScheduledActionsResponse
    -- ** Response constructor
    , describeScheduledActionsResponse
    -- ** Response lenses
    , dsarNextToken
    , dsarScheduledUpdateGroupActions
    ) where

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

data DescribeScheduledActions = DescribeScheduledActions
    { _dsa1AutoScalingGroupName :: Maybe Text
    , _dsa1EndTime              :: Maybe ISO8601
    , _dsa1MaxRecords           :: Maybe Int
    , _dsa1NextToken            :: Maybe Text
    , _dsa1ScheduledActionNames :: List "member" Text
    , _dsa1StartTime            :: Maybe ISO8601
    } deriving (Eq, Ord, Read, Show)

-- | 'DescribeScheduledActions' constructor.
--
-- The fields accessible through corresponding lenses are:
--
-- * 'dsa1AutoScalingGroupName' @::@ 'Maybe' 'Text'
--
-- * 'dsa1EndTime' @::@ 'Maybe' 'UTCTime'
--
-- * 'dsa1MaxRecords' @::@ 'Maybe' 'Int'
--
-- * 'dsa1NextToken' @::@ 'Maybe' 'Text'
--
-- * 'dsa1ScheduledActionNames' @::@ ['Text']
--
-- * 'dsa1StartTime' @::@ 'Maybe' 'UTCTime'
--
describeScheduledActions :: DescribeScheduledActions
describeScheduledActions = DescribeScheduledActions
    { _dsa1AutoScalingGroupName = Nothing
    , _dsa1ScheduledActionNames = mempty
    , _dsa1StartTime            = Nothing
    , _dsa1EndTime              = Nothing
    , _dsa1NextToken            = Nothing
    , _dsa1MaxRecords           = Nothing
    }

-- | The name of the group.
dsa1AutoScalingGroupName :: Lens' DescribeScheduledActions (Maybe Text)
dsa1AutoScalingGroupName =
    lens _dsa1AutoScalingGroupName
        (\s a -> s { _dsa1AutoScalingGroupName = a })

-- | The latest scheduled start time to return. If scheduled action names are
-- provided, this parameter is ignored.
dsa1EndTime :: Lens' DescribeScheduledActions (Maybe UTCTime)
dsa1EndTime = lens _dsa1EndTime (\s a -> s { _dsa1EndTime = a }) . mapping _Time

-- | The maximum number of items to return with this call.
dsa1MaxRecords :: Lens' DescribeScheduledActions (Maybe Int)
dsa1MaxRecords = lens _dsa1MaxRecords (\s a -> s { _dsa1MaxRecords = a })

-- | The token for the next set of items to return. (You received this token from
-- a previous call.)
dsa1NextToken :: Lens' DescribeScheduledActions (Maybe Text)
dsa1NextToken = lens _dsa1NextToken (\s a -> s { _dsa1NextToken = a })

-- | Describes one or more scheduled actions. If you omit this list, the call
-- describes all scheduled actions. If you specify an unknown scheduled action
-- it is ignored with no error.
--
-- You can describe up to a maximum of 50 instances with a single call. If
-- there are more items to return, the call returns a token. To get the next set
-- of items, repeat the call with the returned token in the 'NextToken' parameter.
dsa1ScheduledActionNames :: Lens' DescribeScheduledActions [Text]
dsa1ScheduledActionNames =
    lens _dsa1ScheduledActionNames
        (\s a -> s { _dsa1ScheduledActionNames = a })
            . _List

-- | The earliest scheduled start time to return. If scheduled action names are
-- provided, this parameter is ignored.
dsa1StartTime :: Lens' DescribeScheduledActions (Maybe UTCTime)
dsa1StartTime = lens _dsa1StartTime (\s a -> s { _dsa1StartTime = a }) . mapping _Time

data DescribeScheduledActionsResponse = DescribeScheduledActionsResponse
    { _dsarNextToken                   :: Maybe Text
    , _dsarScheduledUpdateGroupActions :: List "member" ScheduledUpdateGroupAction
    } deriving (Eq, Read, Show)

-- | 'DescribeScheduledActionsResponse' constructor.
--
-- The fields accessible through corresponding lenses are:
--
-- * 'dsarNextToken' @::@ 'Maybe' 'Text'
--
-- * 'dsarScheduledUpdateGroupActions' @::@ ['ScheduledUpdateGroupAction']
--
describeScheduledActionsResponse :: DescribeScheduledActionsResponse
describeScheduledActionsResponse = DescribeScheduledActionsResponse
    { _dsarScheduledUpdateGroupActions = mempty
    , _dsarNextToken                   = Nothing
    }

-- | The token to use when requesting the next set of items. If there are no
-- additional items to return, the string is empty.
dsarNextToken :: Lens' DescribeScheduledActionsResponse (Maybe Text)
dsarNextToken = lens _dsarNextToken (\s a -> s { _dsarNextToken = a })

-- | The scheduled actions.
dsarScheduledUpdateGroupActions :: Lens' DescribeScheduledActionsResponse [ScheduledUpdateGroupAction]
dsarScheduledUpdateGroupActions =
    lens _dsarScheduledUpdateGroupActions
        (\s a -> s { _dsarScheduledUpdateGroupActions = a })
            . _List

instance ToPath DescribeScheduledActions where
    toPath = const "/"

instance ToQuery DescribeScheduledActions where
    toQuery DescribeScheduledActions{..} = mconcat
        [ "AutoScalingGroupName" =? _dsa1AutoScalingGroupName
        , "EndTime"              =? _dsa1EndTime
        , "MaxRecords"           =? _dsa1MaxRecords
        , "NextToken"            =? _dsa1NextToken
        , "ScheduledActionNames" =? _dsa1ScheduledActionNames
        , "StartTime"            =? _dsa1StartTime
        ]

instance ToHeaders DescribeScheduledActions

instance AWSRequest DescribeScheduledActions where
    type Sv DescribeScheduledActions = AutoScaling
    type Rs DescribeScheduledActions = DescribeScheduledActionsResponse

    request  = post "DescribeScheduledActions"
    response = xmlResponse

instance FromXML DescribeScheduledActionsResponse where
    parseXML = withElement "DescribeScheduledActionsResult" $ \x -> DescribeScheduledActionsResponse
        <$> x .@? "NextToken"
        <*> x .@? "ScheduledUpdateGroupActions" .!@ mempty

instance AWSPager DescribeScheduledActions where
    page rq rs
        | stop (rs ^. dsarNextToken) = Nothing
        | otherwise = (\x -> rq & dsa1NextToken ?~ x)
            <$> (rs ^. dsarNextToken)