{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.Outposts.UpdateSiteRackPhysicalProperties
(
UpdateSiteRackPhysicalProperties (..),
newUpdateSiteRackPhysicalProperties,
updateSiteRackPhysicalProperties_fiberOpticCableType,
updateSiteRackPhysicalProperties_maximumSupportedWeightLbs,
updateSiteRackPhysicalProperties_opticalStandard,
updateSiteRackPhysicalProperties_powerConnector,
updateSiteRackPhysicalProperties_powerDrawKva,
updateSiteRackPhysicalProperties_powerFeedDrop,
updateSiteRackPhysicalProperties_powerPhase,
updateSiteRackPhysicalProperties_uplinkCount,
updateSiteRackPhysicalProperties_uplinkGbps,
updateSiteRackPhysicalProperties_siteId,
UpdateSiteRackPhysicalPropertiesResponse (..),
newUpdateSiteRackPhysicalPropertiesResponse,
updateSiteRackPhysicalPropertiesResponse_site,
updateSiteRackPhysicalPropertiesResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.Outposts.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data UpdateSiteRackPhysicalProperties = UpdateSiteRackPhysicalProperties'
{
UpdateSiteRackPhysicalProperties -> Maybe FiberOpticCableType
fiberOpticCableType :: Prelude.Maybe FiberOpticCableType,
UpdateSiteRackPhysicalProperties -> Maybe MaximumSupportedWeightLbs
maximumSupportedWeightLbs :: Prelude.Maybe MaximumSupportedWeightLbs,
UpdateSiteRackPhysicalProperties -> Maybe OpticalStandard
opticalStandard :: Prelude.Maybe OpticalStandard,
UpdateSiteRackPhysicalProperties -> Maybe PowerConnector
powerConnector :: Prelude.Maybe PowerConnector,
UpdateSiteRackPhysicalProperties -> Maybe PowerDrawKva
powerDrawKva :: Prelude.Maybe PowerDrawKva,
UpdateSiteRackPhysicalProperties -> Maybe PowerFeedDrop
powerFeedDrop :: Prelude.Maybe PowerFeedDrop,
UpdateSiteRackPhysicalProperties -> Maybe PowerPhase
powerPhase :: Prelude.Maybe PowerPhase,
UpdateSiteRackPhysicalProperties -> Maybe UplinkCount
uplinkCount :: Prelude.Maybe UplinkCount,
UpdateSiteRackPhysicalProperties -> Maybe UplinkGbps
uplinkGbps :: Prelude.Maybe UplinkGbps,
UpdateSiteRackPhysicalProperties -> Text
siteId :: Prelude.Text
}
deriving (UpdateSiteRackPhysicalProperties
-> UpdateSiteRackPhysicalProperties -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateSiteRackPhysicalProperties
-> UpdateSiteRackPhysicalProperties -> Bool
$c/= :: UpdateSiteRackPhysicalProperties
-> UpdateSiteRackPhysicalProperties -> Bool
== :: UpdateSiteRackPhysicalProperties
-> UpdateSiteRackPhysicalProperties -> Bool
$c== :: UpdateSiteRackPhysicalProperties
-> UpdateSiteRackPhysicalProperties -> Bool
Prelude.Eq, ReadPrec [UpdateSiteRackPhysicalProperties]
ReadPrec UpdateSiteRackPhysicalProperties
Int -> ReadS UpdateSiteRackPhysicalProperties
ReadS [UpdateSiteRackPhysicalProperties]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateSiteRackPhysicalProperties]
$creadListPrec :: ReadPrec [UpdateSiteRackPhysicalProperties]
readPrec :: ReadPrec UpdateSiteRackPhysicalProperties
$creadPrec :: ReadPrec UpdateSiteRackPhysicalProperties
readList :: ReadS [UpdateSiteRackPhysicalProperties]
$creadList :: ReadS [UpdateSiteRackPhysicalProperties]
readsPrec :: Int -> ReadS UpdateSiteRackPhysicalProperties
$creadsPrec :: Int -> ReadS UpdateSiteRackPhysicalProperties
Prelude.Read, Int -> UpdateSiteRackPhysicalProperties -> ShowS
[UpdateSiteRackPhysicalProperties] -> ShowS
UpdateSiteRackPhysicalProperties -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateSiteRackPhysicalProperties] -> ShowS
$cshowList :: [UpdateSiteRackPhysicalProperties] -> ShowS
show :: UpdateSiteRackPhysicalProperties -> String
$cshow :: UpdateSiteRackPhysicalProperties -> String
showsPrec :: Int -> UpdateSiteRackPhysicalProperties -> ShowS
$cshowsPrec :: Int -> UpdateSiteRackPhysicalProperties -> ShowS
Prelude.Show, forall x.
Rep UpdateSiteRackPhysicalProperties x
-> UpdateSiteRackPhysicalProperties
forall x.
UpdateSiteRackPhysicalProperties
-> Rep UpdateSiteRackPhysicalProperties x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UpdateSiteRackPhysicalProperties x
-> UpdateSiteRackPhysicalProperties
$cfrom :: forall x.
UpdateSiteRackPhysicalProperties
-> Rep UpdateSiteRackPhysicalProperties x
Prelude.Generic)
newUpdateSiteRackPhysicalProperties ::
Prelude.Text ->
UpdateSiteRackPhysicalProperties
newUpdateSiteRackPhysicalProperties :: Text -> UpdateSiteRackPhysicalProperties
newUpdateSiteRackPhysicalProperties Text
pSiteId_ =
UpdateSiteRackPhysicalProperties'
{ $sel:fiberOpticCableType:UpdateSiteRackPhysicalProperties' :: Maybe FiberOpticCableType
fiberOpticCableType =
forall a. Maybe a
Prelude.Nothing,
$sel:maximumSupportedWeightLbs:UpdateSiteRackPhysicalProperties' :: Maybe MaximumSupportedWeightLbs
maximumSupportedWeightLbs =
forall a. Maybe a
Prelude.Nothing,
$sel:opticalStandard:UpdateSiteRackPhysicalProperties' :: Maybe OpticalStandard
opticalStandard = forall a. Maybe a
Prelude.Nothing,
$sel:powerConnector:UpdateSiteRackPhysicalProperties' :: Maybe PowerConnector
powerConnector = forall a. Maybe a
Prelude.Nothing,
$sel:powerDrawKva:UpdateSiteRackPhysicalProperties' :: Maybe PowerDrawKva
powerDrawKva = forall a. Maybe a
Prelude.Nothing,
$sel:powerFeedDrop:UpdateSiteRackPhysicalProperties' :: Maybe PowerFeedDrop
powerFeedDrop = forall a. Maybe a
Prelude.Nothing,
$sel:powerPhase:UpdateSiteRackPhysicalProperties' :: Maybe PowerPhase
powerPhase = forall a. Maybe a
Prelude.Nothing,
$sel:uplinkCount:UpdateSiteRackPhysicalProperties' :: Maybe UplinkCount
uplinkCount = forall a. Maybe a
Prelude.Nothing,
$sel:uplinkGbps:UpdateSiteRackPhysicalProperties' :: Maybe UplinkGbps
uplinkGbps = forall a. Maybe a
Prelude.Nothing,
$sel:siteId:UpdateSiteRackPhysicalProperties' :: Text
siteId = Text
pSiteId_
}
updateSiteRackPhysicalProperties_fiberOpticCableType :: Lens.Lens' UpdateSiteRackPhysicalProperties (Prelude.Maybe FiberOpticCableType)
updateSiteRackPhysicalProperties_fiberOpticCableType :: Lens' UpdateSiteRackPhysicalProperties (Maybe FiberOpticCableType)
updateSiteRackPhysicalProperties_fiberOpticCableType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateSiteRackPhysicalProperties' {Maybe FiberOpticCableType
fiberOpticCableType :: Maybe FiberOpticCableType
$sel:fiberOpticCableType:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Maybe FiberOpticCableType
fiberOpticCableType} -> Maybe FiberOpticCableType
fiberOpticCableType) (\s :: UpdateSiteRackPhysicalProperties
s@UpdateSiteRackPhysicalProperties' {} Maybe FiberOpticCableType
a -> UpdateSiteRackPhysicalProperties
s {$sel:fiberOpticCableType:UpdateSiteRackPhysicalProperties' :: Maybe FiberOpticCableType
fiberOpticCableType = Maybe FiberOpticCableType
a} :: UpdateSiteRackPhysicalProperties)
updateSiteRackPhysicalProperties_maximumSupportedWeightLbs :: Lens.Lens' UpdateSiteRackPhysicalProperties (Prelude.Maybe MaximumSupportedWeightLbs)
updateSiteRackPhysicalProperties_maximumSupportedWeightLbs :: Lens'
UpdateSiteRackPhysicalProperties (Maybe MaximumSupportedWeightLbs)
updateSiteRackPhysicalProperties_maximumSupportedWeightLbs = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateSiteRackPhysicalProperties' {Maybe MaximumSupportedWeightLbs
maximumSupportedWeightLbs :: Maybe MaximumSupportedWeightLbs
$sel:maximumSupportedWeightLbs:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Maybe MaximumSupportedWeightLbs
maximumSupportedWeightLbs} -> Maybe MaximumSupportedWeightLbs
maximumSupportedWeightLbs) (\s :: UpdateSiteRackPhysicalProperties
s@UpdateSiteRackPhysicalProperties' {} Maybe MaximumSupportedWeightLbs
a -> UpdateSiteRackPhysicalProperties
s {$sel:maximumSupportedWeightLbs:UpdateSiteRackPhysicalProperties' :: Maybe MaximumSupportedWeightLbs
maximumSupportedWeightLbs = Maybe MaximumSupportedWeightLbs
a} :: UpdateSiteRackPhysicalProperties)
updateSiteRackPhysicalProperties_opticalStandard :: Lens.Lens' UpdateSiteRackPhysicalProperties (Prelude.Maybe OpticalStandard)
updateSiteRackPhysicalProperties_opticalStandard :: Lens' UpdateSiteRackPhysicalProperties (Maybe OpticalStandard)
updateSiteRackPhysicalProperties_opticalStandard = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateSiteRackPhysicalProperties' {Maybe OpticalStandard
opticalStandard :: Maybe OpticalStandard
$sel:opticalStandard:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Maybe OpticalStandard
opticalStandard} -> Maybe OpticalStandard
opticalStandard) (\s :: UpdateSiteRackPhysicalProperties
s@UpdateSiteRackPhysicalProperties' {} Maybe OpticalStandard
a -> UpdateSiteRackPhysicalProperties
s {$sel:opticalStandard:UpdateSiteRackPhysicalProperties' :: Maybe OpticalStandard
opticalStandard = Maybe OpticalStandard
a} :: UpdateSiteRackPhysicalProperties)
updateSiteRackPhysicalProperties_powerConnector :: Lens.Lens' UpdateSiteRackPhysicalProperties (Prelude.Maybe PowerConnector)
updateSiteRackPhysicalProperties_powerConnector :: Lens' UpdateSiteRackPhysicalProperties (Maybe PowerConnector)
updateSiteRackPhysicalProperties_powerConnector = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateSiteRackPhysicalProperties' {Maybe PowerConnector
powerConnector :: Maybe PowerConnector
$sel:powerConnector:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Maybe PowerConnector
powerConnector} -> Maybe PowerConnector
powerConnector) (\s :: UpdateSiteRackPhysicalProperties
s@UpdateSiteRackPhysicalProperties' {} Maybe PowerConnector
a -> UpdateSiteRackPhysicalProperties
s {$sel:powerConnector:UpdateSiteRackPhysicalProperties' :: Maybe PowerConnector
powerConnector = Maybe PowerConnector
a} :: UpdateSiteRackPhysicalProperties)
updateSiteRackPhysicalProperties_powerDrawKva :: Lens.Lens' UpdateSiteRackPhysicalProperties (Prelude.Maybe PowerDrawKva)
updateSiteRackPhysicalProperties_powerDrawKva :: Lens' UpdateSiteRackPhysicalProperties (Maybe PowerDrawKva)
updateSiteRackPhysicalProperties_powerDrawKva = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateSiteRackPhysicalProperties' {Maybe PowerDrawKva
powerDrawKva :: Maybe PowerDrawKva
$sel:powerDrawKva:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Maybe PowerDrawKva
powerDrawKva} -> Maybe PowerDrawKva
powerDrawKva) (\s :: UpdateSiteRackPhysicalProperties
s@UpdateSiteRackPhysicalProperties' {} Maybe PowerDrawKva
a -> UpdateSiteRackPhysicalProperties
s {$sel:powerDrawKva:UpdateSiteRackPhysicalProperties' :: Maybe PowerDrawKva
powerDrawKva = Maybe PowerDrawKva
a} :: UpdateSiteRackPhysicalProperties)
updateSiteRackPhysicalProperties_powerFeedDrop :: Lens.Lens' UpdateSiteRackPhysicalProperties (Prelude.Maybe PowerFeedDrop)
updateSiteRackPhysicalProperties_powerFeedDrop :: Lens' UpdateSiteRackPhysicalProperties (Maybe PowerFeedDrop)
updateSiteRackPhysicalProperties_powerFeedDrop = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateSiteRackPhysicalProperties' {Maybe PowerFeedDrop
powerFeedDrop :: Maybe PowerFeedDrop
$sel:powerFeedDrop:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Maybe PowerFeedDrop
powerFeedDrop} -> Maybe PowerFeedDrop
powerFeedDrop) (\s :: UpdateSiteRackPhysicalProperties
s@UpdateSiteRackPhysicalProperties' {} Maybe PowerFeedDrop
a -> UpdateSiteRackPhysicalProperties
s {$sel:powerFeedDrop:UpdateSiteRackPhysicalProperties' :: Maybe PowerFeedDrop
powerFeedDrop = Maybe PowerFeedDrop
a} :: UpdateSiteRackPhysicalProperties)
updateSiteRackPhysicalProperties_powerPhase :: Lens.Lens' UpdateSiteRackPhysicalProperties (Prelude.Maybe PowerPhase)
updateSiteRackPhysicalProperties_powerPhase :: Lens' UpdateSiteRackPhysicalProperties (Maybe PowerPhase)
updateSiteRackPhysicalProperties_powerPhase = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateSiteRackPhysicalProperties' {Maybe PowerPhase
powerPhase :: Maybe PowerPhase
$sel:powerPhase:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Maybe PowerPhase
powerPhase} -> Maybe PowerPhase
powerPhase) (\s :: UpdateSiteRackPhysicalProperties
s@UpdateSiteRackPhysicalProperties' {} Maybe PowerPhase
a -> UpdateSiteRackPhysicalProperties
s {$sel:powerPhase:UpdateSiteRackPhysicalProperties' :: Maybe PowerPhase
powerPhase = Maybe PowerPhase
a} :: UpdateSiteRackPhysicalProperties)
updateSiteRackPhysicalProperties_uplinkCount :: Lens.Lens' UpdateSiteRackPhysicalProperties (Prelude.Maybe UplinkCount)
updateSiteRackPhysicalProperties_uplinkCount :: Lens' UpdateSiteRackPhysicalProperties (Maybe UplinkCount)
updateSiteRackPhysicalProperties_uplinkCount = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateSiteRackPhysicalProperties' {Maybe UplinkCount
uplinkCount :: Maybe UplinkCount
$sel:uplinkCount:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Maybe UplinkCount
uplinkCount} -> Maybe UplinkCount
uplinkCount) (\s :: UpdateSiteRackPhysicalProperties
s@UpdateSiteRackPhysicalProperties' {} Maybe UplinkCount
a -> UpdateSiteRackPhysicalProperties
s {$sel:uplinkCount:UpdateSiteRackPhysicalProperties' :: Maybe UplinkCount
uplinkCount = Maybe UplinkCount
a} :: UpdateSiteRackPhysicalProperties)
updateSiteRackPhysicalProperties_uplinkGbps :: Lens.Lens' UpdateSiteRackPhysicalProperties (Prelude.Maybe UplinkGbps)
updateSiteRackPhysicalProperties_uplinkGbps :: Lens' UpdateSiteRackPhysicalProperties (Maybe UplinkGbps)
updateSiteRackPhysicalProperties_uplinkGbps = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateSiteRackPhysicalProperties' {Maybe UplinkGbps
uplinkGbps :: Maybe UplinkGbps
$sel:uplinkGbps:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Maybe UplinkGbps
uplinkGbps} -> Maybe UplinkGbps
uplinkGbps) (\s :: UpdateSiteRackPhysicalProperties
s@UpdateSiteRackPhysicalProperties' {} Maybe UplinkGbps
a -> UpdateSiteRackPhysicalProperties
s {$sel:uplinkGbps:UpdateSiteRackPhysicalProperties' :: Maybe UplinkGbps
uplinkGbps = Maybe UplinkGbps
a} :: UpdateSiteRackPhysicalProperties)
updateSiteRackPhysicalProperties_siteId :: Lens.Lens' UpdateSiteRackPhysicalProperties Prelude.Text
updateSiteRackPhysicalProperties_siteId :: Lens' UpdateSiteRackPhysicalProperties Text
updateSiteRackPhysicalProperties_siteId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateSiteRackPhysicalProperties' {Text
siteId :: Text
$sel:siteId:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Text
siteId} -> Text
siteId) (\s :: UpdateSiteRackPhysicalProperties
s@UpdateSiteRackPhysicalProperties' {} Text
a -> UpdateSiteRackPhysicalProperties
s {$sel:siteId:UpdateSiteRackPhysicalProperties' :: Text
siteId = Text
a} :: UpdateSiteRackPhysicalProperties)
instance
Core.AWSRequest
UpdateSiteRackPhysicalProperties
where
type
AWSResponse UpdateSiteRackPhysicalProperties =
UpdateSiteRackPhysicalPropertiesResponse
request :: (Service -> Service)
-> UpdateSiteRackPhysicalProperties
-> Request UpdateSiteRackPhysicalProperties
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.patchJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy UpdateSiteRackPhysicalProperties
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse UpdateSiteRackPhysicalProperties)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe Site -> Int -> UpdateSiteRackPhysicalPropertiesResponse
UpdateSiteRackPhysicalPropertiesResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"Site")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance
Prelude.Hashable
UpdateSiteRackPhysicalProperties
where
hashWithSalt :: Int -> UpdateSiteRackPhysicalProperties -> Int
hashWithSalt
Int
_salt
UpdateSiteRackPhysicalProperties' {Maybe FiberOpticCableType
Maybe MaximumSupportedWeightLbs
Maybe OpticalStandard
Maybe PowerConnector
Maybe PowerDrawKva
Maybe PowerFeedDrop
Maybe PowerPhase
Maybe UplinkCount
Maybe UplinkGbps
Text
siteId :: Text
uplinkGbps :: Maybe UplinkGbps
uplinkCount :: Maybe UplinkCount
powerPhase :: Maybe PowerPhase
powerFeedDrop :: Maybe PowerFeedDrop
powerDrawKva :: Maybe PowerDrawKva
powerConnector :: Maybe PowerConnector
opticalStandard :: Maybe OpticalStandard
maximumSupportedWeightLbs :: Maybe MaximumSupportedWeightLbs
fiberOpticCableType :: Maybe FiberOpticCableType
$sel:siteId:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Text
$sel:uplinkGbps:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Maybe UplinkGbps
$sel:uplinkCount:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Maybe UplinkCount
$sel:powerPhase:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Maybe PowerPhase
$sel:powerFeedDrop:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Maybe PowerFeedDrop
$sel:powerDrawKva:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Maybe PowerDrawKva
$sel:powerConnector:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Maybe PowerConnector
$sel:opticalStandard:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Maybe OpticalStandard
$sel:maximumSupportedWeightLbs:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Maybe MaximumSupportedWeightLbs
$sel:fiberOpticCableType:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Maybe FiberOpticCableType
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe FiberOpticCableType
fiberOpticCableType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe MaximumSupportedWeightLbs
maximumSupportedWeightLbs
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe OpticalStandard
opticalStandard
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe PowerConnector
powerConnector
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe PowerDrawKva
powerDrawKva
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe PowerFeedDrop
powerFeedDrop
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe PowerPhase
powerPhase
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe UplinkCount
uplinkCount
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe UplinkGbps
uplinkGbps
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
siteId
instance
Prelude.NFData
UpdateSiteRackPhysicalProperties
where
rnf :: UpdateSiteRackPhysicalProperties -> ()
rnf UpdateSiteRackPhysicalProperties' {Maybe FiberOpticCableType
Maybe MaximumSupportedWeightLbs
Maybe OpticalStandard
Maybe PowerConnector
Maybe PowerDrawKva
Maybe PowerFeedDrop
Maybe PowerPhase
Maybe UplinkCount
Maybe UplinkGbps
Text
siteId :: Text
uplinkGbps :: Maybe UplinkGbps
uplinkCount :: Maybe UplinkCount
powerPhase :: Maybe PowerPhase
powerFeedDrop :: Maybe PowerFeedDrop
powerDrawKva :: Maybe PowerDrawKva
powerConnector :: Maybe PowerConnector
opticalStandard :: Maybe OpticalStandard
maximumSupportedWeightLbs :: Maybe MaximumSupportedWeightLbs
fiberOpticCableType :: Maybe FiberOpticCableType
$sel:siteId:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Text
$sel:uplinkGbps:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Maybe UplinkGbps
$sel:uplinkCount:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Maybe UplinkCount
$sel:powerPhase:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Maybe PowerPhase
$sel:powerFeedDrop:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Maybe PowerFeedDrop
$sel:powerDrawKva:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Maybe PowerDrawKva
$sel:powerConnector:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Maybe PowerConnector
$sel:opticalStandard:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Maybe OpticalStandard
$sel:maximumSupportedWeightLbs:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Maybe MaximumSupportedWeightLbs
$sel:fiberOpticCableType:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Maybe FiberOpticCableType
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe FiberOpticCableType
fiberOpticCableType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe MaximumSupportedWeightLbs
maximumSupportedWeightLbs
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe OpticalStandard
opticalStandard
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe PowerConnector
powerConnector
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe PowerDrawKva
powerDrawKva
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe PowerFeedDrop
powerFeedDrop
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe PowerPhase
powerPhase
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe UplinkCount
uplinkCount
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe UplinkGbps
uplinkGbps
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
siteId
instance
Data.ToHeaders
UpdateSiteRackPhysicalProperties
where
toHeaders :: UpdateSiteRackPhysicalProperties -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON UpdateSiteRackPhysicalProperties where
toJSON :: UpdateSiteRackPhysicalProperties -> Value
toJSON UpdateSiteRackPhysicalProperties' {Maybe FiberOpticCableType
Maybe MaximumSupportedWeightLbs
Maybe OpticalStandard
Maybe PowerConnector
Maybe PowerDrawKva
Maybe PowerFeedDrop
Maybe PowerPhase
Maybe UplinkCount
Maybe UplinkGbps
Text
siteId :: Text
uplinkGbps :: Maybe UplinkGbps
uplinkCount :: Maybe UplinkCount
powerPhase :: Maybe PowerPhase
powerFeedDrop :: Maybe PowerFeedDrop
powerDrawKva :: Maybe PowerDrawKva
powerConnector :: Maybe PowerConnector
opticalStandard :: Maybe OpticalStandard
maximumSupportedWeightLbs :: Maybe MaximumSupportedWeightLbs
fiberOpticCableType :: Maybe FiberOpticCableType
$sel:siteId:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Text
$sel:uplinkGbps:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Maybe UplinkGbps
$sel:uplinkCount:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Maybe UplinkCount
$sel:powerPhase:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Maybe PowerPhase
$sel:powerFeedDrop:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Maybe PowerFeedDrop
$sel:powerDrawKva:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Maybe PowerDrawKva
$sel:powerConnector:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Maybe PowerConnector
$sel:opticalStandard:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Maybe OpticalStandard
$sel:maximumSupportedWeightLbs:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Maybe MaximumSupportedWeightLbs
$sel:fiberOpticCableType:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Maybe FiberOpticCableType
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"FiberOpticCableType" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe FiberOpticCableType
fiberOpticCableType,
(Key
"MaximumSupportedWeightLbs" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe MaximumSupportedWeightLbs
maximumSupportedWeightLbs,
(Key
"OpticalStandard" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe OpticalStandard
opticalStandard,
(Key
"PowerConnector" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe PowerConnector
powerConnector,
(Key
"PowerDrawKva" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe PowerDrawKva
powerDrawKva,
(Key
"PowerFeedDrop" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe PowerFeedDrop
powerFeedDrop,
(Key
"PowerPhase" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe PowerPhase
powerPhase,
(Key
"UplinkCount" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe UplinkCount
uplinkCount,
(Key
"UplinkGbps" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe UplinkGbps
uplinkGbps
]
)
instance Data.ToPath UpdateSiteRackPhysicalProperties where
toPath :: UpdateSiteRackPhysicalProperties -> ByteString
toPath UpdateSiteRackPhysicalProperties' {Maybe FiberOpticCableType
Maybe MaximumSupportedWeightLbs
Maybe OpticalStandard
Maybe PowerConnector
Maybe PowerDrawKva
Maybe PowerFeedDrop
Maybe PowerPhase
Maybe UplinkCount
Maybe UplinkGbps
Text
siteId :: Text
uplinkGbps :: Maybe UplinkGbps
uplinkCount :: Maybe UplinkCount
powerPhase :: Maybe PowerPhase
powerFeedDrop :: Maybe PowerFeedDrop
powerDrawKva :: Maybe PowerDrawKva
powerConnector :: Maybe PowerConnector
opticalStandard :: Maybe OpticalStandard
maximumSupportedWeightLbs :: Maybe MaximumSupportedWeightLbs
fiberOpticCableType :: Maybe FiberOpticCableType
$sel:siteId:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Text
$sel:uplinkGbps:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Maybe UplinkGbps
$sel:uplinkCount:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Maybe UplinkCount
$sel:powerPhase:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Maybe PowerPhase
$sel:powerFeedDrop:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Maybe PowerFeedDrop
$sel:powerDrawKva:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Maybe PowerDrawKva
$sel:powerConnector:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Maybe PowerConnector
$sel:opticalStandard:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Maybe OpticalStandard
$sel:maximumSupportedWeightLbs:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Maybe MaximumSupportedWeightLbs
$sel:fiberOpticCableType:UpdateSiteRackPhysicalProperties' :: UpdateSiteRackPhysicalProperties -> Maybe FiberOpticCableType
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/sites/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
siteId,
ByteString
"/rackPhysicalProperties"
]
instance
Data.ToQuery
UpdateSiteRackPhysicalProperties
where
toQuery :: UpdateSiteRackPhysicalProperties -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data UpdateSiteRackPhysicalPropertiesResponse = UpdateSiteRackPhysicalPropertiesResponse'
{ UpdateSiteRackPhysicalPropertiesResponse -> Maybe Site
site :: Prelude.Maybe Site,
UpdateSiteRackPhysicalPropertiesResponse -> Int
httpStatus :: Prelude.Int
}
deriving (UpdateSiteRackPhysicalPropertiesResponse
-> UpdateSiteRackPhysicalPropertiesResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateSiteRackPhysicalPropertiesResponse
-> UpdateSiteRackPhysicalPropertiesResponse -> Bool
$c/= :: UpdateSiteRackPhysicalPropertiesResponse
-> UpdateSiteRackPhysicalPropertiesResponse -> Bool
== :: UpdateSiteRackPhysicalPropertiesResponse
-> UpdateSiteRackPhysicalPropertiesResponse -> Bool
$c== :: UpdateSiteRackPhysicalPropertiesResponse
-> UpdateSiteRackPhysicalPropertiesResponse -> Bool
Prelude.Eq, ReadPrec [UpdateSiteRackPhysicalPropertiesResponse]
ReadPrec UpdateSiteRackPhysicalPropertiesResponse
Int -> ReadS UpdateSiteRackPhysicalPropertiesResponse
ReadS [UpdateSiteRackPhysicalPropertiesResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateSiteRackPhysicalPropertiesResponse]
$creadListPrec :: ReadPrec [UpdateSiteRackPhysicalPropertiesResponse]
readPrec :: ReadPrec UpdateSiteRackPhysicalPropertiesResponse
$creadPrec :: ReadPrec UpdateSiteRackPhysicalPropertiesResponse
readList :: ReadS [UpdateSiteRackPhysicalPropertiesResponse]
$creadList :: ReadS [UpdateSiteRackPhysicalPropertiesResponse]
readsPrec :: Int -> ReadS UpdateSiteRackPhysicalPropertiesResponse
$creadsPrec :: Int -> ReadS UpdateSiteRackPhysicalPropertiesResponse
Prelude.Read, Int -> UpdateSiteRackPhysicalPropertiesResponse -> ShowS
[UpdateSiteRackPhysicalPropertiesResponse] -> ShowS
UpdateSiteRackPhysicalPropertiesResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateSiteRackPhysicalPropertiesResponse] -> ShowS
$cshowList :: [UpdateSiteRackPhysicalPropertiesResponse] -> ShowS
show :: UpdateSiteRackPhysicalPropertiesResponse -> String
$cshow :: UpdateSiteRackPhysicalPropertiesResponse -> String
showsPrec :: Int -> UpdateSiteRackPhysicalPropertiesResponse -> ShowS
$cshowsPrec :: Int -> UpdateSiteRackPhysicalPropertiesResponse -> ShowS
Prelude.Show, forall x.
Rep UpdateSiteRackPhysicalPropertiesResponse x
-> UpdateSiteRackPhysicalPropertiesResponse
forall x.
UpdateSiteRackPhysicalPropertiesResponse
-> Rep UpdateSiteRackPhysicalPropertiesResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UpdateSiteRackPhysicalPropertiesResponse x
-> UpdateSiteRackPhysicalPropertiesResponse
$cfrom :: forall x.
UpdateSiteRackPhysicalPropertiesResponse
-> Rep UpdateSiteRackPhysicalPropertiesResponse x
Prelude.Generic)
newUpdateSiteRackPhysicalPropertiesResponse ::
Prelude.Int ->
UpdateSiteRackPhysicalPropertiesResponse
newUpdateSiteRackPhysicalPropertiesResponse :: Int -> UpdateSiteRackPhysicalPropertiesResponse
newUpdateSiteRackPhysicalPropertiesResponse
Int
pHttpStatus_ =
UpdateSiteRackPhysicalPropertiesResponse'
{ $sel:site:UpdateSiteRackPhysicalPropertiesResponse' :: Maybe Site
site =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:UpdateSiteRackPhysicalPropertiesResponse' :: Int
httpStatus = Int
pHttpStatus_
}
updateSiteRackPhysicalPropertiesResponse_site :: Lens.Lens' UpdateSiteRackPhysicalPropertiesResponse (Prelude.Maybe Site)
updateSiteRackPhysicalPropertiesResponse_site :: Lens' UpdateSiteRackPhysicalPropertiesResponse (Maybe Site)
updateSiteRackPhysicalPropertiesResponse_site = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateSiteRackPhysicalPropertiesResponse' {Maybe Site
site :: Maybe Site
$sel:site:UpdateSiteRackPhysicalPropertiesResponse' :: UpdateSiteRackPhysicalPropertiesResponse -> Maybe Site
site} -> Maybe Site
site) (\s :: UpdateSiteRackPhysicalPropertiesResponse
s@UpdateSiteRackPhysicalPropertiesResponse' {} Maybe Site
a -> UpdateSiteRackPhysicalPropertiesResponse
s {$sel:site:UpdateSiteRackPhysicalPropertiesResponse' :: Maybe Site
site = Maybe Site
a} :: UpdateSiteRackPhysicalPropertiesResponse)
updateSiteRackPhysicalPropertiesResponse_httpStatus :: Lens.Lens' UpdateSiteRackPhysicalPropertiesResponse Prelude.Int
updateSiteRackPhysicalPropertiesResponse_httpStatus :: Lens' UpdateSiteRackPhysicalPropertiesResponse Int
updateSiteRackPhysicalPropertiesResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateSiteRackPhysicalPropertiesResponse' {Int
httpStatus :: Int
$sel:httpStatus:UpdateSiteRackPhysicalPropertiesResponse' :: UpdateSiteRackPhysicalPropertiesResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: UpdateSiteRackPhysicalPropertiesResponse
s@UpdateSiteRackPhysicalPropertiesResponse' {} Int
a -> UpdateSiteRackPhysicalPropertiesResponse
s {$sel:httpStatus:UpdateSiteRackPhysicalPropertiesResponse' :: Int
httpStatus = Int
a} :: UpdateSiteRackPhysicalPropertiesResponse)
instance
Prelude.NFData
UpdateSiteRackPhysicalPropertiesResponse
where
rnf :: UpdateSiteRackPhysicalPropertiesResponse -> ()
rnf UpdateSiteRackPhysicalPropertiesResponse' {Int
Maybe Site
httpStatus :: Int
site :: Maybe Site
$sel:httpStatus:UpdateSiteRackPhysicalPropertiesResponse' :: UpdateSiteRackPhysicalPropertiesResponse -> Int
$sel:site:UpdateSiteRackPhysicalPropertiesResponse' :: UpdateSiteRackPhysicalPropertiesResponse -> Maybe Site
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Site
site
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus