ServiceDiscoveryServiceDnsRecord.hs

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

-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicediscovery-service-dnsrecord.html

module Stratosphere.ResourceProperties.ServiceDiscoveryServiceDnsRecord where

import Control.Lens hiding ((.=))
import Data.Aeson
import Data.Maybe (catMaybes)
import Data.Monoid (mempty)
import Data.Text

import Stratosphere.Values


-- | Full data type definition for ServiceDiscoveryServiceDnsRecord. See
-- 'serviceDiscoveryServiceDnsRecord' for a more convenient constructor.
data ServiceDiscoveryServiceDnsRecord =
  ServiceDiscoveryServiceDnsRecord
  { _serviceDiscoveryServiceDnsRecordTTL :: Val Text
  , _serviceDiscoveryServiceDnsRecordType :: Val Text
  } deriving (Show, Eq)

instance ToJSON ServiceDiscoveryServiceDnsRecord where
  toJSON ServiceDiscoveryServiceDnsRecord{..} =
    object $
    catMaybes
    [ (Just . ("TTL",) . toJSON) _serviceDiscoveryServiceDnsRecordTTL
    , (Just . ("Type",) . toJSON) _serviceDiscoveryServiceDnsRecordType
    ]

instance FromJSON ServiceDiscoveryServiceDnsRecord where
  parseJSON (Object obj) =
    ServiceDiscoveryServiceDnsRecord <$>
      (obj .: "TTL") <*>
      (obj .: "Type")
  parseJSON _ = mempty

-- | Constructor for 'ServiceDiscoveryServiceDnsRecord' containing required
-- fields as arguments.
serviceDiscoveryServiceDnsRecord
  :: Val Text -- ^ 'sdsdrTTL'
  -> Val Text -- ^ 'sdsdrType'
  -> ServiceDiscoveryServiceDnsRecord
serviceDiscoveryServiceDnsRecord tTLarg typearg =
  ServiceDiscoveryServiceDnsRecord
  { _serviceDiscoveryServiceDnsRecordTTL = tTLarg
  , _serviceDiscoveryServiceDnsRecordType = typearg
  }

-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicediscovery-service-dnsrecord.html#cfn-servicediscovery-service-dnsrecord-ttl
sdsdrTTL :: Lens' ServiceDiscoveryServiceDnsRecord (Val Text)
sdsdrTTL = lens _serviceDiscoveryServiceDnsRecordTTL (\s a -> s { _serviceDiscoveryServiceDnsRecordTTL = a })

-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicediscovery-service-dnsrecord.html#cfn-servicediscovery-service-dnsrecord-type
sdsdrType :: Lens' ServiceDiscoveryServiceDnsRecord (Val Text)
sdsdrType = lens _serviceDiscoveryServiceDnsRecordType (\s a -> s { _serviceDiscoveryServiceDnsRecordType = a })