module Stratosphere.DataSync.LocationHDFS.NameNodeProperty (
        NameNodeProperty(..), mkNameNodeProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data NameNodeProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-datasync-locationhdfs-namenode.html>
    NameNodeProperty {NameNodeProperty -> ()
haddock_workaround_ :: (),
                      -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-datasync-locationhdfs-namenode.html#cfn-datasync-locationhdfs-namenode-hostname>
                      NameNodeProperty -> Value Text
hostname :: (Value Prelude.Text),
                      -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-datasync-locationhdfs-namenode.html#cfn-datasync-locationhdfs-namenode-port>
                      NameNodeProperty -> Value Integer
port :: (Value Prelude.Integer)}
  deriving stock (NameNodeProperty -> NameNodeProperty -> Bool
(NameNodeProperty -> NameNodeProperty -> Bool)
-> (NameNodeProperty -> NameNodeProperty -> Bool)
-> Eq NameNodeProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: NameNodeProperty -> NameNodeProperty -> Bool
== :: NameNodeProperty -> NameNodeProperty -> Bool
$c/= :: NameNodeProperty -> NameNodeProperty -> Bool
/= :: NameNodeProperty -> NameNodeProperty -> Bool
Prelude.Eq, Int -> NameNodeProperty -> ShowS
[NameNodeProperty] -> ShowS
NameNodeProperty -> String
(Int -> NameNodeProperty -> ShowS)
-> (NameNodeProperty -> String)
-> ([NameNodeProperty] -> ShowS)
-> Show NameNodeProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> NameNodeProperty -> ShowS
showsPrec :: Int -> NameNodeProperty -> ShowS
$cshow :: NameNodeProperty -> String
show :: NameNodeProperty -> String
$cshowList :: [NameNodeProperty] -> ShowS
showList :: [NameNodeProperty] -> ShowS
Prelude.Show)
mkNameNodeProperty ::
  Value Prelude.Text -> Value Prelude.Integer -> NameNodeProperty
mkNameNodeProperty :: Value Text -> Value Integer -> NameNodeProperty
mkNameNodeProperty Value Text
hostname Value Integer
port
  = NameNodeProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), hostname :: Value Text
hostname = Value Text
hostname, port :: Value Integer
port = Value Integer
port}
instance ToResourceProperties NameNodeProperty where
  toResourceProperties :: NameNodeProperty -> ResourceProperties
toResourceProperties NameNodeProperty {()
Value Integer
Value Text
haddock_workaround_ :: NameNodeProperty -> ()
hostname :: NameNodeProperty -> Value Text
port :: NameNodeProperty -> Value Integer
haddock_workaround_ :: ()
hostname :: Value Text
port :: Value Integer
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::DataSync::LocationHDFS.NameNode",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Key
"Hostname" Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Text
hostname, Key
"Port" Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Integer
port]}
instance JSON.ToJSON NameNodeProperty where
  toJSON :: NameNodeProperty -> Value
toJSON NameNodeProperty {()
Value Integer
Value Text
haddock_workaround_ :: NameNodeProperty -> ()
hostname :: NameNodeProperty -> Value Text
port :: NameNodeProperty -> Value Integer
haddock_workaround_ :: ()
hostname :: Value Text
port :: Value Integer
..}
    = [(Key, Value)] -> Value
JSON.object [Key
"Hostname" Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Text
hostname, Key
"Port" Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Integer
port]
instance Property "Hostname" NameNodeProperty where
  type PropertyType "Hostname" NameNodeProperty = Value Prelude.Text
  set :: PropertyType "Hostname" NameNodeProperty
-> NameNodeProperty -> NameNodeProperty
set PropertyType "Hostname" NameNodeProperty
newValue NameNodeProperty {()
Value Integer
Value Text
haddock_workaround_ :: NameNodeProperty -> ()
hostname :: NameNodeProperty -> Value Text
port :: NameNodeProperty -> Value Integer
haddock_workaround_ :: ()
hostname :: Value Text
port :: Value Integer
..}
    = NameNodeProperty {hostname :: Value Text
hostname = PropertyType "Hostname" NameNodeProperty
Value Text
newValue, ()
Value Integer
haddock_workaround_ :: ()
port :: Value Integer
haddock_workaround_ :: ()
port :: Value Integer
..}
instance Property "Port" NameNodeProperty where
  type PropertyType "Port" NameNodeProperty = Value Prelude.Integer
  set :: PropertyType "Port" NameNodeProperty
-> NameNodeProperty -> NameNodeProperty
set PropertyType "Port" NameNodeProperty
newValue NameNodeProperty {()
Value Integer
Value Text
haddock_workaround_ :: NameNodeProperty -> ()
hostname :: NameNodeProperty -> Value Text
port :: NameNodeProperty -> Value Integer
haddock_workaround_ :: ()
hostname :: Value Text
port :: Value Integer
..}
    = NameNodeProperty {port :: Value Integer
port = PropertyType "Port" NameNodeProperty
Value Integer
newValue, ()
Value Text
haddock_workaround_ :: ()
hostname :: Value Text
haddock_workaround_ :: ()
hostname :: Value Text
..}