{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.Transfer.Types.DescribedServer 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 Amazonka.Transfer.Types.Domain
import Amazonka.Transfer.Types.EndpointDetails
import Amazonka.Transfer.Types.EndpointType
import Amazonka.Transfer.Types.IdentityProviderDetails
import Amazonka.Transfer.Types.IdentityProviderType
import Amazonka.Transfer.Types.Protocol
import Amazonka.Transfer.Types.ProtocolDetails
import Amazonka.Transfer.Types.State
import Amazonka.Transfer.Types.Tag
import Amazonka.Transfer.Types.WorkflowDetails
data DescribedServer = DescribedServer'
{
DescribedServer -> Maybe Text
certificate :: Prelude.Maybe Prelude.Text,
DescribedServer -> Maybe Domain
domain :: Prelude.Maybe Domain,
DescribedServer -> Maybe EndpointDetails
endpointDetails :: Prelude.Maybe EndpointDetails,
DescribedServer -> Maybe EndpointType
endpointType :: Prelude.Maybe EndpointType,
DescribedServer -> Maybe Text
hostKeyFingerprint :: Prelude.Maybe Prelude.Text,
DescribedServer -> Maybe IdentityProviderDetails
identityProviderDetails :: Prelude.Maybe IdentityProviderDetails,
DescribedServer -> Maybe IdentityProviderType
identityProviderType :: Prelude.Maybe IdentityProviderType,
DescribedServer -> Maybe Text
loggingRole :: Prelude.Maybe Prelude.Text,
DescribedServer -> Maybe Text
postAuthenticationLoginBanner :: Prelude.Maybe Prelude.Text,
DescribedServer -> Maybe Text
preAuthenticationLoginBanner :: Prelude.Maybe Prelude.Text,
DescribedServer -> Maybe ProtocolDetails
protocolDetails :: Prelude.Maybe ProtocolDetails,
DescribedServer -> Maybe (NonEmpty Protocol)
protocols :: Prelude.Maybe (Prelude.NonEmpty Protocol),
DescribedServer -> Maybe Text
securityPolicyName :: Prelude.Maybe Prelude.Text,
DescribedServer -> Maybe Text
serverId :: Prelude.Maybe Prelude.Text,
DescribedServer -> Maybe State
state :: Prelude.Maybe State,
DescribedServer -> Maybe (NonEmpty Tag)
tags :: Prelude.Maybe (Prelude.NonEmpty Tag),
DescribedServer -> Maybe Int
userCount :: Prelude.Maybe Prelude.Int,
DescribedServer -> Maybe WorkflowDetails
workflowDetails :: Prelude.Maybe WorkflowDetails,
DescribedServer -> Text
arn :: Prelude.Text
}
deriving (DescribedServer -> DescribedServer -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribedServer -> DescribedServer -> Bool
$c/= :: DescribedServer -> DescribedServer -> Bool
== :: DescribedServer -> DescribedServer -> Bool
$c== :: DescribedServer -> DescribedServer -> Bool
Prelude.Eq, ReadPrec [DescribedServer]
ReadPrec DescribedServer
Int -> ReadS DescribedServer
ReadS [DescribedServer]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribedServer]
$creadListPrec :: ReadPrec [DescribedServer]
readPrec :: ReadPrec DescribedServer
$creadPrec :: ReadPrec DescribedServer
readList :: ReadS [DescribedServer]
$creadList :: ReadS [DescribedServer]
readsPrec :: Int -> ReadS DescribedServer
$creadsPrec :: Int -> ReadS DescribedServer
Prelude.Read, Int -> DescribedServer -> ShowS
[DescribedServer] -> ShowS
DescribedServer -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribedServer] -> ShowS
$cshowList :: [DescribedServer] -> ShowS
show :: DescribedServer -> String
$cshow :: DescribedServer -> String
showsPrec :: Int -> DescribedServer -> ShowS
$cshowsPrec :: Int -> DescribedServer -> ShowS
Prelude.Show, forall x. Rep DescribedServer x -> DescribedServer
forall x. DescribedServer -> Rep DescribedServer x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DescribedServer x -> DescribedServer
$cfrom :: forall x. DescribedServer -> Rep DescribedServer x
Prelude.Generic)
newDescribedServer ::
Prelude.Text ->
DescribedServer
newDescribedServer :: Text -> DescribedServer
newDescribedServer Text
pArn_ =
DescribedServer'
{ $sel:certificate:DescribedServer' :: Maybe Text
certificate = forall a. Maybe a
Prelude.Nothing,
$sel:domain:DescribedServer' :: Maybe Domain
domain = forall a. Maybe a
Prelude.Nothing,
$sel:endpointDetails:DescribedServer' :: Maybe EndpointDetails
endpointDetails = forall a. Maybe a
Prelude.Nothing,
$sel:endpointType:DescribedServer' :: Maybe EndpointType
endpointType = forall a. Maybe a
Prelude.Nothing,
$sel:hostKeyFingerprint:DescribedServer' :: Maybe Text
hostKeyFingerprint = forall a. Maybe a
Prelude.Nothing,
$sel:identityProviderDetails:DescribedServer' :: Maybe IdentityProviderDetails
identityProviderDetails = forall a. Maybe a
Prelude.Nothing,
$sel:identityProviderType:DescribedServer' :: Maybe IdentityProviderType
identityProviderType = forall a. Maybe a
Prelude.Nothing,
$sel:loggingRole:DescribedServer' :: Maybe Text
loggingRole = forall a. Maybe a
Prelude.Nothing,
$sel:postAuthenticationLoginBanner:DescribedServer' :: Maybe Text
postAuthenticationLoginBanner = forall a. Maybe a
Prelude.Nothing,
$sel:preAuthenticationLoginBanner:DescribedServer' :: Maybe Text
preAuthenticationLoginBanner = forall a. Maybe a
Prelude.Nothing,
$sel:protocolDetails:DescribedServer' :: Maybe ProtocolDetails
protocolDetails = forall a. Maybe a
Prelude.Nothing,
$sel:protocols:DescribedServer' :: Maybe (NonEmpty Protocol)
protocols = forall a. Maybe a
Prelude.Nothing,
$sel:securityPolicyName:DescribedServer' :: Maybe Text
securityPolicyName = forall a. Maybe a
Prelude.Nothing,
$sel:serverId:DescribedServer' :: Maybe Text
serverId = forall a. Maybe a
Prelude.Nothing,
$sel:state:DescribedServer' :: Maybe State
state = forall a. Maybe a
Prelude.Nothing,
$sel:tags:DescribedServer' :: Maybe (NonEmpty Tag)
tags = forall a. Maybe a
Prelude.Nothing,
$sel:userCount:DescribedServer' :: Maybe Int
userCount = forall a. Maybe a
Prelude.Nothing,
$sel:workflowDetails:DescribedServer' :: Maybe WorkflowDetails
workflowDetails = forall a. Maybe a
Prelude.Nothing,
$sel:arn:DescribedServer' :: Text
arn = Text
pArn_
}
describedServer_certificate :: Lens.Lens' DescribedServer (Prelude.Maybe Prelude.Text)
describedServer_certificate :: Lens' DescribedServer (Maybe Text)
describedServer_certificate = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribedServer' {Maybe Text
certificate :: Maybe Text
$sel:certificate:DescribedServer' :: DescribedServer -> Maybe Text
certificate} -> Maybe Text
certificate) (\s :: DescribedServer
s@DescribedServer' {} Maybe Text
a -> DescribedServer
s {$sel:certificate:DescribedServer' :: Maybe Text
certificate = Maybe Text
a} :: DescribedServer)
describedServer_domain :: Lens.Lens' DescribedServer (Prelude.Maybe Domain)
describedServer_domain :: Lens' DescribedServer (Maybe Domain)
describedServer_domain = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribedServer' {Maybe Domain
domain :: Maybe Domain
$sel:domain:DescribedServer' :: DescribedServer -> Maybe Domain
domain} -> Maybe Domain
domain) (\s :: DescribedServer
s@DescribedServer' {} Maybe Domain
a -> DescribedServer
s {$sel:domain:DescribedServer' :: Maybe Domain
domain = Maybe Domain
a} :: DescribedServer)
describedServer_endpointDetails :: Lens.Lens' DescribedServer (Prelude.Maybe EndpointDetails)
describedServer_endpointDetails :: Lens' DescribedServer (Maybe EndpointDetails)
describedServer_endpointDetails = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribedServer' {Maybe EndpointDetails
endpointDetails :: Maybe EndpointDetails
$sel:endpointDetails:DescribedServer' :: DescribedServer -> Maybe EndpointDetails
endpointDetails} -> Maybe EndpointDetails
endpointDetails) (\s :: DescribedServer
s@DescribedServer' {} Maybe EndpointDetails
a -> DescribedServer
s {$sel:endpointDetails:DescribedServer' :: Maybe EndpointDetails
endpointDetails = Maybe EndpointDetails
a} :: DescribedServer)
describedServer_endpointType :: Lens.Lens' DescribedServer (Prelude.Maybe EndpointType)
describedServer_endpointType :: Lens' DescribedServer (Maybe EndpointType)
describedServer_endpointType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribedServer' {Maybe EndpointType
endpointType :: Maybe EndpointType
$sel:endpointType:DescribedServer' :: DescribedServer -> Maybe EndpointType
endpointType} -> Maybe EndpointType
endpointType) (\s :: DescribedServer
s@DescribedServer' {} Maybe EndpointType
a -> DescribedServer
s {$sel:endpointType:DescribedServer' :: Maybe EndpointType
endpointType = Maybe EndpointType
a} :: DescribedServer)
describedServer_hostKeyFingerprint :: Lens.Lens' DescribedServer (Prelude.Maybe Prelude.Text)
describedServer_hostKeyFingerprint :: Lens' DescribedServer (Maybe Text)
describedServer_hostKeyFingerprint = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribedServer' {Maybe Text
hostKeyFingerprint :: Maybe Text
$sel:hostKeyFingerprint:DescribedServer' :: DescribedServer -> Maybe Text
hostKeyFingerprint} -> Maybe Text
hostKeyFingerprint) (\s :: DescribedServer
s@DescribedServer' {} Maybe Text
a -> DescribedServer
s {$sel:hostKeyFingerprint:DescribedServer' :: Maybe Text
hostKeyFingerprint = Maybe Text
a} :: DescribedServer)
describedServer_identityProviderDetails :: Lens.Lens' DescribedServer (Prelude.Maybe IdentityProviderDetails)
describedServer_identityProviderDetails :: Lens' DescribedServer (Maybe IdentityProviderDetails)
describedServer_identityProviderDetails = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribedServer' {Maybe IdentityProviderDetails
identityProviderDetails :: Maybe IdentityProviderDetails
$sel:identityProviderDetails:DescribedServer' :: DescribedServer -> Maybe IdentityProviderDetails
identityProviderDetails} -> Maybe IdentityProviderDetails
identityProviderDetails) (\s :: DescribedServer
s@DescribedServer' {} Maybe IdentityProviderDetails
a -> DescribedServer
s {$sel:identityProviderDetails:DescribedServer' :: Maybe IdentityProviderDetails
identityProviderDetails = Maybe IdentityProviderDetails
a} :: DescribedServer)
describedServer_identityProviderType :: Lens.Lens' DescribedServer (Prelude.Maybe IdentityProviderType)
describedServer_identityProviderType :: Lens' DescribedServer (Maybe IdentityProviderType)
describedServer_identityProviderType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribedServer' {Maybe IdentityProviderType
identityProviderType :: Maybe IdentityProviderType
$sel:identityProviderType:DescribedServer' :: DescribedServer -> Maybe IdentityProviderType
identityProviderType} -> Maybe IdentityProviderType
identityProviderType) (\s :: DescribedServer
s@DescribedServer' {} Maybe IdentityProviderType
a -> DescribedServer
s {$sel:identityProviderType:DescribedServer' :: Maybe IdentityProviderType
identityProviderType = Maybe IdentityProviderType
a} :: DescribedServer)
describedServer_loggingRole :: Lens.Lens' DescribedServer (Prelude.Maybe Prelude.Text)
describedServer_loggingRole :: Lens' DescribedServer (Maybe Text)
describedServer_loggingRole = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribedServer' {Maybe Text
loggingRole :: Maybe Text
$sel:loggingRole:DescribedServer' :: DescribedServer -> Maybe Text
loggingRole} -> Maybe Text
loggingRole) (\s :: DescribedServer
s@DescribedServer' {} Maybe Text
a -> DescribedServer
s {$sel:loggingRole:DescribedServer' :: Maybe Text
loggingRole = Maybe Text
a} :: DescribedServer)
describedServer_postAuthenticationLoginBanner :: Lens.Lens' DescribedServer (Prelude.Maybe Prelude.Text)
describedServer_postAuthenticationLoginBanner :: Lens' DescribedServer (Maybe Text)
describedServer_postAuthenticationLoginBanner = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribedServer' {Maybe Text
postAuthenticationLoginBanner :: Maybe Text
$sel:postAuthenticationLoginBanner:DescribedServer' :: DescribedServer -> Maybe Text
postAuthenticationLoginBanner} -> Maybe Text
postAuthenticationLoginBanner) (\s :: DescribedServer
s@DescribedServer' {} Maybe Text
a -> DescribedServer
s {$sel:postAuthenticationLoginBanner:DescribedServer' :: Maybe Text
postAuthenticationLoginBanner = Maybe Text
a} :: DescribedServer)
describedServer_preAuthenticationLoginBanner :: Lens.Lens' DescribedServer (Prelude.Maybe Prelude.Text)
describedServer_preAuthenticationLoginBanner :: Lens' DescribedServer (Maybe Text)
describedServer_preAuthenticationLoginBanner = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribedServer' {Maybe Text
preAuthenticationLoginBanner :: Maybe Text
$sel:preAuthenticationLoginBanner:DescribedServer' :: DescribedServer -> Maybe Text
preAuthenticationLoginBanner} -> Maybe Text
preAuthenticationLoginBanner) (\s :: DescribedServer
s@DescribedServer' {} Maybe Text
a -> DescribedServer
s {$sel:preAuthenticationLoginBanner:DescribedServer' :: Maybe Text
preAuthenticationLoginBanner = Maybe Text
a} :: DescribedServer)
describedServer_protocolDetails :: Lens.Lens' DescribedServer (Prelude.Maybe ProtocolDetails)
describedServer_protocolDetails :: Lens' DescribedServer (Maybe ProtocolDetails)
describedServer_protocolDetails = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribedServer' {Maybe ProtocolDetails
protocolDetails :: Maybe ProtocolDetails
$sel:protocolDetails:DescribedServer' :: DescribedServer -> Maybe ProtocolDetails
protocolDetails} -> Maybe ProtocolDetails
protocolDetails) (\s :: DescribedServer
s@DescribedServer' {} Maybe ProtocolDetails
a -> DescribedServer
s {$sel:protocolDetails:DescribedServer' :: Maybe ProtocolDetails
protocolDetails = Maybe ProtocolDetails
a} :: DescribedServer)
describedServer_protocols :: Lens.Lens' DescribedServer (Prelude.Maybe (Prelude.NonEmpty Protocol))
describedServer_protocols :: Lens' DescribedServer (Maybe (NonEmpty Protocol))
describedServer_protocols = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribedServer' {Maybe (NonEmpty Protocol)
protocols :: Maybe (NonEmpty Protocol)
$sel:protocols:DescribedServer' :: DescribedServer -> Maybe (NonEmpty Protocol)
protocols} -> Maybe (NonEmpty Protocol)
protocols) (\s :: DescribedServer
s@DescribedServer' {} Maybe (NonEmpty Protocol)
a -> DescribedServer
s {$sel:protocols:DescribedServer' :: Maybe (NonEmpty Protocol)
protocols = Maybe (NonEmpty Protocol)
a} :: DescribedServer) 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
describedServer_securityPolicyName :: Lens.Lens' DescribedServer (Prelude.Maybe Prelude.Text)
describedServer_securityPolicyName :: Lens' DescribedServer (Maybe Text)
describedServer_securityPolicyName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribedServer' {Maybe Text
securityPolicyName :: Maybe Text
$sel:securityPolicyName:DescribedServer' :: DescribedServer -> Maybe Text
securityPolicyName} -> Maybe Text
securityPolicyName) (\s :: DescribedServer
s@DescribedServer' {} Maybe Text
a -> DescribedServer
s {$sel:securityPolicyName:DescribedServer' :: Maybe Text
securityPolicyName = Maybe Text
a} :: DescribedServer)
describedServer_serverId :: Lens.Lens' DescribedServer (Prelude.Maybe Prelude.Text)
describedServer_serverId :: Lens' DescribedServer (Maybe Text)
describedServer_serverId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribedServer' {Maybe Text
serverId :: Maybe Text
$sel:serverId:DescribedServer' :: DescribedServer -> Maybe Text
serverId} -> Maybe Text
serverId) (\s :: DescribedServer
s@DescribedServer' {} Maybe Text
a -> DescribedServer
s {$sel:serverId:DescribedServer' :: Maybe Text
serverId = Maybe Text
a} :: DescribedServer)
describedServer_state :: Lens.Lens' DescribedServer (Prelude.Maybe State)
describedServer_state :: Lens' DescribedServer (Maybe State)
describedServer_state = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribedServer' {Maybe State
state :: Maybe State
$sel:state:DescribedServer' :: DescribedServer -> Maybe State
state} -> Maybe State
state) (\s :: DescribedServer
s@DescribedServer' {} Maybe State
a -> DescribedServer
s {$sel:state:DescribedServer' :: Maybe State
state = Maybe State
a} :: DescribedServer)
describedServer_tags :: Lens.Lens' DescribedServer (Prelude.Maybe (Prelude.NonEmpty Tag))
describedServer_tags :: Lens' DescribedServer (Maybe (NonEmpty Tag))
describedServer_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribedServer' {Maybe (NonEmpty Tag)
tags :: Maybe (NonEmpty Tag)
$sel:tags:DescribedServer' :: DescribedServer -> Maybe (NonEmpty Tag)
tags} -> Maybe (NonEmpty Tag)
tags) (\s :: DescribedServer
s@DescribedServer' {} Maybe (NonEmpty Tag)
a -> DescribedServer
s {$sel:tags:DescribedServer' :: Maybe (NonEmpty Tag)
tags = Maybe (NonEmpty Tag)
a} :: DescribedServer) 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
describedServer_userCount :: Lens.Lens' DescribedServer (Prelude.Maybe Prelude.Int)
describedServer_userCount :: Lens' DescribedServer (Maybe Int)
describedServer_userCount = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribedServer' {Maybe Int
userCount :: Maybe Int
$sel:userCount:DescribedServer' :: DescribedServer -> Maybe Int
userCount} -> Maybe Int
userCount) (\s :: DescribedServer
s@DescribedServer' {} Maybe Int
a -> DescribedServer
s {$sel:userCount:DescribedServer' :: Maybe Int
userCount = Maybe Int
a} :: DescribedServer)
describedServer_workflowDetails :: Lens.Lens' DescribedServer (Prelude.Maybe WorkflowDetails)
describedServer_workflowDetails :: Lens' DescribedServer (Maybe WorkflowDetails)
describedServer_workflowDetails = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribedServer' {Maybe WorkflowDetails
workflowDetails :: Maybe WorkflowDetails
$sel:workflowDetails:DescribedServer' :: DescribedServer -> Maybe WorkflowDetails
workflowDetails} -> Maybe WorkflowDetails
workflowDetails) (\s :: DescribedServer
s@DescribedServer' {} Maybe WorkflowDetails
a -> DescribedServer
s {$sel:workflowDetails:DescribedServer' :: Maybe WorkflowDetails
workflowDetails = Maybe WorkflowDetails
a} :: DescribedServer)
describedServer_arn :: Lens.Lens' DescribedServer Prelude.Text
describedServer_arn :: Lens' DescribedServer Text
describedServer_arn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribedServer' {Text
arn :: Text
$sel:arn:DescribedServer' :: DescribedServer -> Text
arn} -> Text
arn) (\s :: DescribedServer
s@DescribedServer' {} Text
a -> DescribedServer
s {$sel:arn:DescribedServer' :: Text
arn = Text
a} :: DescribedServer)
instance Data.FromJSON DescribedServer where
parseJSON :: Value -> Parser DescribedServer
parseJSON =
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.withObject
String
"DescribedServer"
( \Object
x ->
Maybe Text
-> Maybe Domain
-> Maybe EndpointDetails
-> Maybe EndpointType
-> Maybe Text
-> Maybe IdentityProviderDetails
-> Maybe IdentityProviderType
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe ProtocolDetails
-> Maybe (NonEmpty Protocol)
-> Maybe Text
-> Maybe Text
-> Maybe State
-> Maybe (NonEmpty Tag)
-> Maybe Int
-> Maybe WorkflowDetails
-> Text
-> DescribedServer
DescribedServer'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"Certificate")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"Domain")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"EndpointDetails")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"EndpointType")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"HostKeyFingerprint")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"IdentityProviderDetails")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"IdentityProviderType")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"LoggingRole")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"PostAuthenticationLoginBanner")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"PreAuthenticationLoginBanner")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"ProtocolDetails")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"Protocols")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"SecurityPolicyName")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"ServerId")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"State")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"Tags")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"UserCount")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"WorkflowDetails")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser a
Data..: Key
"Arn")
)
instance Prelude.Hashable DescribedServer where
hashWithSalt :: Int -> DescribedServer -> Int
hashWithSalt Int
_salt DescribedServer' {Maybe Int
Maybe (NonEmpty Protocol)
Maybe (NonEmpty Tag)
Maybe Text
Maybe Domain
Maybe EndpointDetails
Maybe EndpointType
Maybe IdentityProviderDetails
Maybe IdentityProviderType
Maybe State
Maybe ProtocolDetails
Maybe WorkflowDetails
Text
arn :: Text
workflowDetails :: Maybe WorkflowDetails
userCount :: Maybe Int
tags :: Maybe (NonEmpty Tag)
state :: Maybe State
serverId :: Maybe Text
securityPolicyName :: Maybe Text
protocols :: Maybe (NonEmpty Protocol)
protocolDetails :: Maybe ProtocolDetails
preAuthenticationLoginBanner :: Maybe Text
postAuthenticationLoginBanner :: Maybe Text
loggingRole :: Maybe Text
identityProviderType :: Maybe IdentityProviderType
identityProviderDetails :: Maybe IdentityProviderDetails
hostKeyFingerprint :: Maybe Text
endpointType :: Maybe EndpointType
endpointDetails :: Maybe EndpointDetails
domain :: Maybe Domain
certificate :: Maybe Text
$sel:arn:DescribedServer' :: DescribedServer -> Text
$sel:workflowDetails:DescribedServer' :: DescribedServer -> Maybe WorkflowDetails
$sel:userCount:DescribedServer' :: DescribedServer -> Maybe Int
$sel:tags:DescribedServer' :: DescribedServer -> Maybe (NonEmpty Tag)
$sel:state:DescribedServer' :: DescribedServer -> Maybe State
$sel:serverId:DescribedServer' :: DescribedServer -> Maybe Text
$sel:securityPolicyName:DescribedServer' :: DescribedServer -> Maybe Text
$sel:protocols:DescribedServer' :: DescribedServer -> Maybe (NonEmpty Protocol)
$sel:protocolDetails:DescribedServer' :: DescribedServer -> Maybe ProtocolDetails
$sel:preAuthenticationLoginBanner:DescribedServer' :: DescribedServer -> Maybe Text
$sel:postAuthenticationLoginBanner:DescribedServer' :: DescribedServer -> Maybe Text
$sel:loggingRole:DescribedServer' :: DescribedServer -> Maybe Text
$sel:identityProviderType:DescribedServer' :: DescribedServer -> Maybe IdentityProviderType
$sel:identityProviderDetails:DescribedServer' :: DescribedServer -> Maybe IdentityProviderDetails
$sel:hostKeyFingerprint:DescribedServer' :: DescribedServer -> Maybe Text
$sel:endpointType:DescribedServer' :: DescribedServer -> Maybe EndpointType
$sel:endpointDetails:DescribedServer' :: DescribedServer -> Maybe EndpointDetails
$sel:domain:DescribedServer' :: DescribedServer -> Maybe Domain
$sel:certificate:DescribedServer' :: DescribedServer -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
certificate
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Domain
domain
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe EndpointDetails
endpointDetails
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe EndpointType
endpointType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
hostKeyFingerprint
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe IdentityProviderDetails
identityProviderDetails
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe IdentityProviderType
identityProviderType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
loggingRole
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
postAuthenticationLoginBanner
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
preAuthenticationLoginBanner
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ProtocolDetails
protocolDetails
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (NonEmpty Protocol)
protocols
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
securityPolicyName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
serverId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe State
state
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (NonEmpty Tag)
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
userCount
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe WorkflowDetails
workflowDetails
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
arn
instance Prelude.NFData DescribedServer where
rnf :: DescribedServer -> ()
rnf DescribedServer' {Maybe Int
Maybe (NonEmpty Protocol)
Maybe (NonEmpty Tag)
Maybe Text
Maybe Domain
Maybe EndpointDetails
Maybe EndpointType
Maybe IdentityProviderDetails
Maybe IdentityProviderType
Maybe State
Maybe ProtocolDetails
Maybe WorkflowDetails
Text
arn :: Text
workflowDetails :: Maybe WorkflowDetails
userCount :: Maybe Int
tags :: Maybe (NonEmpty Tag)
state :: Maybe State
serverId :: Maybe Text
securityPolicyName :: Maybe Text
protocols :: Maybe (NonEmpty Protocol)
protocolDetails :: Maybe ProtocolDetails
preAuthenticationLoginBanner :: Maybe Text
postAuthenticationLoginBanner :: Maybe Text
loggingRole :: Maybe Text
identityProviderType :: Maybe IdentityProviderType
identityProviderDetails :: Maybe IdentityProviderDetails
hostKeyFingerprint :: Maybe Text
endpointType :: Maybe EndpointType
endpointDetails :: Maybe EndpointDetails
domain :: Maybe Domain
certificate :: Maybe Text
$sel:arn:DescribedServer' :: DescribedServer -> Text
$sel:workflowDetails:DescribedServer' :: DescribedServer -> Maybe WorkflowDetails
$sel:userCount:DescribedServer' :: DescribedServer -> Maybe Int
$sel:tags:DescribedServer' :: DescribedServer -> Maybe (NonEmpty Tag)
$sel:state:DescribedServer' :: DescribedServer -> Maybe State
$sel:serverId:DescribedServer' :: DescribedServer -> Maybe Text
$sel:securityPolicyName:DescribedServer' :: DescribedServer -> Maybe Text
$sel:protocols:DescribedServer' :: DescribedServer -> Maybe (NonEmpty Protocol)
$sel:protocolDetails:DescribedServer' :: DescribedServer -> Maybe ProtocolDetails
$sel:preAuthenticationLoginBanner:DescribedServer' :: DescribedServer -> Maybe Text
$sel:postAuthenticationLoginBanner:DescribedServer' :: DescribedServer -> Maybe Text
$sel:loggingRole:DescribedServer' :: DescribedServer -> Maybe Text
$sel:identityProviderType:DescribedServer' :: DescribedServer -> Maybe IdentityProviderType
$sel:identityProviderDetails:DescribedServer' :: DescribedServer -> Maybe IdentityProviderDetails
$sel:hostKeyFingerprint:DescribedServer' :: DescribedServer -> Maybe Text
$sel:endpointType:DescribedServer' :: DescribedServer -> Maybe EndpointType
$sel:endpointDetails:DescribedServer' :: DescribedServer -> Maybe EndpointDetails
$sel:domain:DescribedServer' :: DescribedServer -> Maybe Domain
$sel:certificate:DescribedServer' :: DescribedServer -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
certificate
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Domain
domain
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe EndpointDetails
endpointDetails
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe EndpointType
endpointType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
hostKeyFingerprint
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe IdentityProviderDetails
identityProviderDetails
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe IdentityProviderType
identityProviderType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
loggingRole
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
postAuthenticationLoginBanner
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
preAuthenticationLoginBanner
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ProtocolDetails
protocolDetails
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (NonEmpty Protocol)
protocols
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
securityPolicyName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
serverId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe State
state
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (NonEmpty Tag)
tags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
userCount
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe WorkflowDetails
workflowDetails
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
arn