{-# 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.StorageGateway.JoinDomain
(
JoinDomain (..),
newJoinDomain,
joinDomain_domainControllers,
joinDomain_organizationalUnit,
joinDomain_timeoutInSeconds,
joinDomain_gatewayARN,
joinDomain_domainName,
joinDomain_userName,
joinDomain_password,
JoinDomainResponse (..),
newJoinDomainResponse,
joinDomainResponse_activeDirectoryStatus,
joinDomainResponse_gatewayARN,
joinDomainResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
import Amazonka.StorageGateway.Types
data JoinDomain = JoinDomain'
{
JoinDomain -> Maybe [Text]
domainControllers :: Prelude.Maybe [Prelude.Text],
JoinDomain -> Maybe Text
organizationalUnit :: Prelude.Maybe Prelude.Text,
JoinDomain -> Maybe Natural
timeoutInSeconds :: Prelude.Maybe Prelude.Natural,
JoinDomain -> Text
gatewayARN :: Prelude.Text,
JoinDomain -> Text
domainName :: Prelude.Text,
JoinDomain -> Text
userName :: Prelude.Text,
JoinDomain -> Sensitive Text
password :: Data.Sensitive Prelude.Text
}
deriving (JoinDomain -> JoinDomain -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: JoinDomain -> JoinDomain -> Bool
$c/= :: JoinDomain -> JoinDomain -> Bool
== :: JoinDomain -> JoinDomain -> Bool
$c== :: JoinDomain -> JoinDomain -> Bool
Prelude.Eq, Int -> JoinDomain -> ShowS
[JoinDomain] -> ShowS
JoinDomain -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [JoinDomain] -> ShowS
$cshowList :: [JoinDomain] -> ShowS
show :: JoinDomain -> String
$cshow :: JoinDomain -> String
showsPrec :: Int -> JoinDomain -> ShowS
$cshowsPrec :: Int -> JoinDomain -> ShowS
Prelude.Show, forall x. Rep JoinDomain x -> JoinDomain
forall x. JoinDomain -> Rep JoinDomain x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep JoinDomain x -> JoinDomain
$cfrom :: forall x. JoinDomain -> Rep JoinDomain x
Prelude.Generic)
newJoinDomain ::
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
JoinDomain
newJoinDomain :: Text -> Text -> Text -> Text -> JoinDomain
newJoinDomain
Text
pGatewayARN_
Text
pDomainName_
Text
pUserName_
Text
pPassword_ =
JoinDomain'
{ $sel:domainControllers:JoinDomain' :: Maybe [Text]
domainControllers = forall a. Maybe a
Prelude.Nothing,
$sel:organizationalUnit:JoinDomain' :: Maybe Text
organizationalUnit = forall a. Maybe a
Prelude.Nothing,
$sel:timeoutInSeconds:JoinDomain' :: Maybe Natural
timeoutInSeconds = forall a. Maybe a
Prelude.Nothing,
$sel:gatewayARN:JoinDomain' :: Text
gatewayARN = Text
pGatewayARN_,
$sel:domainName:JoinDomain' :: Text
domainName = Text
pDomainName_,
$sel:userName:JoinDomain' :: Text
userName = Text
pUserName_,
$sel:password:JoinDomain' :: Sensitive Text
password = forall a. Iso' (Sensitive a) a
Data._Sensitive forall t b. AReview t b -> b -> t
Lens.# Text
pPassword_
}
joinDomain_domainControllers :: Lens.Lens' JoinDomain (Prelude.Maybe [Prelude.Text])
joinDomain_domainControllers :: Lens' JoinDomain (Maybe [Text])
joinDomain_domainControllers = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\JoinDomain' {Maybe [Text]
domainControllers :: Maybe [Text]
$sel:domainControllers:JoinDomain' :: JoinDomain -> Maybe [Text]
domainControllers} -> Maybe [Text]
domainControllers) (\s :: JoinDomain
s@JoinDomain' {} Maybe [Text]
a -> JoinDomain
s {$sel:domainControllers:JoinDomain' :: Maybe [Text]
domainControllers = Maybe [Text]
a} :: JoinDomain) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
joinDomain_organizationalUnit :: Lens.Lens' JoinDomain (Prelude.Maybe Prelude.Text)
joinDomain_organizationalUnit :: Lens' JoinDomain (Maybe Text)
joinDomain_organizationalUnit = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\JoinDomain' {Maybe Text
organizationalUnit :: Maybe Text
$sel:organizationalUnit:JoinDomain' :: JoinDomain -> Maybe Text
organizationalUnit} -> Maybe Text
organizationalUnit) (\s :: JoinDomain
s@JoinDomain' {} Maybe Text
a -> JoinDomain
s {$sel:organizationalUnit:JoinDomain' :: Maybe Text
organizationalUnit = Maybe Text
a} :: JoinDomain)
joinDomain_timeoutInSeconds :: Lens.Lens' JoinDomain (Prelude.Maybe Prelude.Natural)
joinDomain_timeoutInSeconds :: Lens' JoinDomain (Maybe Natural)
joinDomain_timeoutInSeconds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\JoinDomain' {Maybe Natural
timeoutInSeconds :: Maybe Natural
$sel:timeoutInSeconds:JoinDomain' :: JoinDomain -> Maybe Natural
timeoutInSeconds} -> Maybe Natural
timeoutInSeconds) (\s :: JoinDomain
s@JoinDomain' {} Maybe Natural
a -> JoinDomain
s {$sel:timeoutInSeconds:JoinDomain' :: Maybe Natural
timeoutInSeconds = Maybe Natural
a} :: JoinDomain)
joinDomain_gatewayARN :: Lens.Lens' JoinDomain Prelude.Text
joinDomain_gatewayARN :: Lens' JoinDomain Text
joinDomain_gatewayARN = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\JoinDomain' {Text
gatewayARN :: Text
$sel:gatewayARN:JoinDomain' :: JoinDomain -> Text
gatewayARN} -> Text
gatewayARN) (\s :: JoinDomain
s@JoinDomain' {} Text
a -> JoinDomain
s {$sel:gatewayARN:JoinDomain' :: Text
gatewayARN = Text
a} :: JoinDomain)
joinDomain_domainName :: Lens.Lens' JoinDomain Prelude.Text
joinDomain_domainName :: Lens' JoinDomain Text
joinDomain_domainName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\JoinDomain' {Text
domainName :: Text
$sel:domainName:JoinDomain' :: JoinDomain -> Text
domainName} -> Text
domainName) (\s :: JoinDomain
s@JoinDomain' {} Text
a -> JoinDomain
s {$sel:domainName:JoinDomain' :: Text
domainName = Text
a} :: JoinDomain)
joinDomain_userName :: Lens.Lens' JoinDomain Prelude.Text
joinDomain_userName :: Lens' JoinDomain Text
joinDomain_userName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\JoinDomain' {Text
userName :: Text
$sel:userName:JoinDomain' :: JoinDomain -> Text
userName} -> Text
userName) (\s :: JoinDomain
s@JoinDomain' {} Text
a -> JoinDomain
s {$sel:userName:JoinDomain' :: Text
userName = Text
a} :: JoinDomain)
joinDomain_password :: Lens.Lens' JoinDomain Prelude.Text
joinDomain_password :: Lens' JoinDomain Text
joinDomain_password = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\JoinDomain' {Sensitive Text
password :: Sensitive Text
$sel:password:JoinDomain' :: JoinDomain -> Sensitive Text
password} -> Sensitive Text
password) (\s :: JoinDomain
s@JoinDomain' {} Sensitive Text
a -> JoinDomain
s {$sel:password:JoinDomain' :: Sensitive Text
password = Sensitive Text
a} :: JoinDomain) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a. Iso' (Sensitive a) a
Data._Sensitive
instance Core.AWSRequest JoinDomain where
type AWSResponse JoinDomain = JoinDomainResponse
request :: (Service -> Service) -> JoinDomain -> Request JoinDomain
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy JoinDomain
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse JoinDomain)))
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 ActiveDirectoryStatus
-> Maybe Text -> Int -> JoinDomainResponse
JoinDomainResponse'
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
"ActiveDirectoryStatus")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"GatewayARN")
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 JoinDomain where
hashWithSalt :: Int -> JoinDomain -> Int
hashWithSalt Int
_salt JoinDomain' {Maybe Natural
Maybe [Text]
Maybe Text
Text
Sensitive Text
password :: Sensitive Text
userName :: Text
domainName :: Text
gatewayARN :: Text
timeoutInSeconds :: Maybe Natural
organizationalUnit :: Maybe Text
domainControllers :: Maybe [Text]
$sel:password:JoinDomain' :: JoinDomain -> Sensitive Text
$sel:userName:JoinDomain' :: JoinDomain -> Text
$sel:domainName:JoinDomain' :: JoinDomain -> Text
$sel:gatewayARN:JoinDomain' :: JoinDomain -> Text
$sel:timeoutInSeconds:JoinDomain' :: JoinDomain -> Maybe Natural
$sel:organizationalUnit:JoinDomain' :: JoinDomain -> Maybe Text
$sel:domainControllers:JoinDomain' :: JoinDomain -> Maybe [Text]
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
domainControllers
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
organizationalUnit
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
timeoutInSeconds
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
gatewayARN
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
domainName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
userName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Sensitive Text
password
instance Prelude.NFData JoinDomain where
rnf :: JoinDomain -> ()
rnf JoinDomain' {Maybe Natural
Maybe [Text]
Maybe Text
Text
Sensitive Text
password :: Sensitive Text
userName :: Text
domainName :: Text
gatewayARN :: Text
timeoutInSeconds :: Maybe Natural
organizationalUnit :: Maybe Text
domainControllers :: Maybe [Text]
$sel:password:JoinDomain' :: JoinDomain -> Sensitive Text
$sel:userName:JoinDomain' :: JoinDomain -> Text
$sel:domainName:JoinDomain' :: JoinDomain -> Text
$sel:gatewayARN:JoinDomain' :: JoinDomain -> Text
$sel:timeoutInSeconds:JoinDomain' :: JoinDomain -> Maybe Natural
$sel:organizationalUnit:JoinDomain' :: JoinDomain -> Maybe Text
$sel:domainControllers:JoinDomain' :: JoinDomain -> Maybe [Text]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
domainControllers
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
organizationalUnit
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
timeoutInSeconds
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
gatewayARN
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
domainName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
userName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Sensitive Text
password
instance Data.ToHeaders JoinDomain where
toHeaders :: JoinDomain -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"StorageGateway_20130630.JoinDomain" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON JoinDomain where
toJSON :: JoinDomain -> Value
toJSON JoinDomain' {Maybe Natural
Maybe [Text]
Maybe Text
Text
Sensitive Text
password :: Sensitive Text
userName :: Text
domainName :: Text
gatewayARN :: Text
timeoutInSeconds :: Maybe Natural
organizationalUnit :: Maybe Text
domainControllers :: Maybe [Text]
$sel:password:JoinDomain' :: JoinDomain -> Sensitive Text
$sel:userName:JoinDomain' :: JoinDomain -> Text
$sel:domainName:JoinDomain' :: JoinDomain -> Text
$sel:gatewayARN:JoinDomain' :: JoinDomain -> Text
$sel:timeoutInSeconds:JoinDomain' :: JoinDomain -> Maybe Natural
$sel:organizationalUnit:JoinDomain' :: JoinDomain -> Maybe Text
$sel:domainControllers:JoinDomain' :: JoinDomain -> Maybe [Text]
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"DomainControllers" 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 [Text]
domainControllers,
(Key
"OrganizationalUnit" 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 Text
organizationalUnit,
(Key
"TimeoutInSeconds" 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 Natural
timeoutInSeconds,
forall a. a -> Maybe a
Prelude.Just (Key
"GatewayARN" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
gatewayARN),
forall a. a -> Maybe a
Prelude.Just (Key
"DomainName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
domainName),
forall a. a -> Maybe a
Prelude.Just (Key
"UserName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
userName),
forall a. a -> Maybe a
Prelude.Just (Key
"Password" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Sensitive Text
password)
]
)
instance Data.ToPath JoinDomain where
toPath :: JoinDomain -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery JoinDomain where
toQuery :: JoinDomain -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data JoinDomainResponse = JoinDomainResponse'
{
JoinDomainResponse -> Maybe ActiveDirectoryStatus
activeDirectoryStatus :: Prelude.Maybe ActiveDirectoryStatus,
JoinDomainResponse -> Maybe Text
gatewayARN :: Prelude.Maybe Prelude.Text,
JoinDomainResponse -> Int
httpStatus :: Prelude.Int
}
deriving (JoinDomainResponse -> JoinDomainResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: JoinDomainResponse -> JoinDomainResponse -> Bool
$c/= :: JoinDomainResponse -> JoinDomainResponse -> Bool
== :: JoinDomainResponse -> JoinDomainResponse -> Bool
$c== :: JoinDomainResponse -> JoinDomainResponse -> Bool
Prelude.Eq, ReadPrec [JoinDomainResponse]
ReadPrec JoinDomainResponse
Int -> ReadS JoinDomainResponse
ReadS [JoinDomainResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [JoinDomainResponse]
$creadListPrec :: ReadPrec [JoinDomainResponse]
readPrec :: ReadPrec JoinDomainResponse
$creadPrec :: ReadPrec JoinDomainResponse
readList :: ReadS [JoinDomainResponse]
$creadList :: ReadS [JoinDomainResponse]
readsPrec :: Int -> ReadS JoinDomainResponse
$creadsPrec :: Int -> ReadS JoinDomainResponse
Prelude.Read, Int -> JoinDomainResponse -> ShowS
[JoinDomainResponse] -> ShowS
JoinDomainResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [JoinDomainResponse] -> ShowS
$cshowList :: [JoinDomainResponse] -> ShowS
show :: JoinDomainResponse -> String
$cshow :: JoinDomainResponse -> String
showsPrec :: Int -> JoinDomainResponse -> ShowS
$cshowsPrec :: Int -> JoinDomainResponse -> ShowS
Prelude.Show, forall x. Rep JoinDomainResponse x -> JoinDomainResponse
forall x. JoinDomainResponse -> Rep JoinDomainResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep JoinDomainResponse x -> JoinDomainResponse
$cfrom :: forall x. JoinDomainResponse -> Rep JoinDomainResponse x
Prelude.Generic)
newJoinDomainResponse ::
Prelude.Int ->
JoinDomainResponse
newJoinDomainResponse :: Int -> JoinDomainResponse
newJoinDomainResponse Int
pHttpStatus_ =
JoinDomainResponse'
{ $sel:activeDirectoryStatus:JoinDomainResponse' :: Maybe ActiveDirectoryStatus
activeDirectoryStatus =
forall a. Maybe a
Prelude.Nothing,
$sel:gatewayARN:JoinDomainResponse' :: Maybe Text
gatewayARN = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:JoinDomainResponse' :: Int
httpStatus = Int
pHttpStatus_
}
joinDomainResponse_activeDirectoryStatus :: Lens.Lens' JoinDomainResponse (Prelude.Maybe ActiveDirectoryStatus)
joinDomainResponse_activeDirectoryStatus :: Lens' JoinDomainResponse (Maybe ActiveDirectoryStatus)
joinDomainResponse_activeDirectoryStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\JoinDomainResponse' {Maybe ActiveDirectoryStatus
activeDirectoryStatus :: Maybe ActiveDirectoryStatus
$sel:activeDirectoryStatus:JoinDomainResponse' :: JoinDomainResponse -> Maybe ActiveDirectoryStatus
activeDirectoryStatus} -> Maybe ActiveDirectoryStatus
activeDirectoryStatus) (\s :: JoinDomainResponse
s@JoinDomainResponse' {} Maybe ActiveDirectoryStatus
a -> JoinDomainResponse
s {$sel:activeDirectoryStatus:JoinDomainResponse' :: Maybe ActiveDirectoryStatus
activeDirectoryStatus = Maybe ActiveDirectoryStatus
a} :: JoinDomainResponse)
joinDomainResponse_gatewayARN :: Lens.Lens' JoinDomainResponse (Prelude.Maybe Prelude.Text)
joinDomainResponse_gatewayARN :: Lens' JoinDomainResponse (Maybe Text)
joinDomainResponse_gatewayARN = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\JoinDomainResponse' {Maybe Text
gatewayARN :: Maybe Text
$sel:gatewayARN:JoinDomainResponse' :: JoinDomainResponse -> Maybe Text
gatewayARN} -> Maybe Text
gatewayARN) (\s :: JoinDomainResponse
s@JoinDomainResponse' {} Maybe Text
a -> JoinDomainResponse
s {$sel:gatewayARN:JoinDomainResponse' :: Maybe Text
gatewayARN = Maybe Text
a} :: JoinDomainResponse)
joinDomainResponse_httpStatus :: Lens.Lens' JoinDomainResponse Prelude.Int
joinDomainResponse_httpStatus :: Lens' JoinDomainResponse Int
joinDomainResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\JoinDomainResponse' {Int
httpStatus :: Int
$sel:httpStatus:JoinDomainResponse' :: JoinDomainResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: JoinDomainResponse
s@JoinDomainResponse' {} Int
a -> JoinDomainResponse
s {$sel:httpStatus:JoinDomainResponse' :: Int
httpStatus = Int
a} :: JoinDomainResponse)
instance Prelude.NFData JoinDomainResponse where
rnf :: JoinDomainResponse -> ()
rnf JoinDomainResponse' {Int
Maybe Text
Maybe ActiveDirectoryStatus
httpStatus :: Int
gatewayARN :: Maybe Text
activeDirectoryStatus :: Maybe ActiveDirectoryStatus
$sel:httpStatus:JoinDomainResponse' :: JoinDomainResponse -> Int
$sel:gatewayARN:JoinDomainResponse' :: JoinDomainResponse -> Maybe Text
$sel:activeDirectoryStatus:JoinDomainResponse' :: JoinDomainResponse -> Maybe ActiveDirectoryStatus
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe ActiveDirectoryStatus
activeDirectoryStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
gatewayARN
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus