{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TupleSections #-}

-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-smsconfiguration.html

module Stratosphere.ResourceProperties.CognitoUserPoolSmsConfiguration where

import Stratosphere.ResourceImports


-- | Full data type definition for CognitoUserPoolSmsConfiguration. See
-- 'cognitoUserPoolSmsConfiguration' for a more convenient constructor.
data CognitoUserPoolSmsConfiguration =
  CognitoUserPoolSmsConfiguration
  { _cognitoUserPoolSmsConfigurationExternalId :: Maybe (Val Text)
  , _cognitoUserPoolSmsConfigurationSnsCallerArn :: Maybe (Val Text)
  } deriving (Show, Eq)

instance ToJSON CognitoUserPoolSmsConfiguration where
  toJSON CognitoUserPoolSmsConfiguration{..} =
    object $
    catMaybes
    [ fmap (("ExternalId",) . toJSON) _cognitoUserPoolSmsConfigurationExternalId
    , fmap (("SnsCallerArn",) . toJSON) _cognitoUserPoolSmsConfigurationSnsCallerArn
    ]

instance FromJSON CognitoUserPoolSmsConfiguration where
  parseJSON (Object obj) =
    CognitoUserPoolSmsConfiguration <$>
      (obj .:? "ExternalId") <*>
      (obj .:? "SnsCallerArn")
  parseJSON _ = mempty

-- | Constructor for 'CognitoUserPoolSmsConfiguration' containing required
-- fields as arguments.
cognitoUserPoolSmsConfiguration
  :: CognitoUserPoolSmsConfiguration
cognitoUserPoolSmsConfiguration  =
  CognitoUserPoolSmsConfiguration
  { _cognitoUserPoolSmsConfigurationExternalId = Nothing
  , _cognitoUserPoolSmsConfigurationSnsCallerArn = Nothing
  }

-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-smsconfiguration.html#cfn-cognito-userpool-smsconfiguration-externalid
cupscExternalId :: Lens' CognitoUserPoolSmsConfiguration (Maybe (Val Text))
cupscExternalId = lens _cognitoUserPoolSmsConfigurationExternalId (\s a -> s { _cognitoUserPoolSmsConfigurationExternalId = a })

-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-smsconfiguration.html#cfn-cognito-userpool-smsconfiguration-snscallerarn
cupscSnsCallerArn :: Lens' CognitoUserPoolSmsConfiguration (Maybe (Val Text))
cupscSnsCallerArn = lens _cognitoUserPoolSmsConfigurationSnsCallerArn (\s a -> s { _cognitoUserPoolSmsConfigurationSnsCallerArn = a })