{-# 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.Transfer.CreateServer
(
CreateServer (..),
newCreateServer,
createServer_certificate,
createServer_domain,
createServer_endpointDetails,
createServer_endpointType,
createServer_hostKey,
createServer_identityProviderDetails,
createServer_identityProviderType,
createServer_loggingRole,
createServer_postAuthenticationLoginBanner,
createServer_preAuthenticationLoginBanner,
createServer_protocolDetails,
createServer_protocols,
createServer_securityPolicyName,
createServer_tags,
createServer_workflowDetails,
CreateServerResponse (..),
newCreateServerResponse,
createServerResponse_httpStatus,
createServerResponse_serverId,
)
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.Transfer.Types
data CreateServer = CreateServer'
{
CreateServer -> Maybe Text
certificate :: Prelude.Maybe Prelude.Text,
CreateServer -> Maybe Domain
domain :: Prelude.Maybe Domain,
CreateServer -> Maybe EndpointDetails
endpointDetails :: Prelude.Maybe EndpointDetails,
CreateServer -> Maybe EndpointType
endpointType :: Prelude.Maybe EndpointType,
CreateServer -> Maybe (Sensitive Text)
hostKey :: Prelude.Maybe (Data.Sensitive Prelude.Text),
CreateServer -> Maybe IdentityProviderDetails
identityProviderDetails :: Prelude.Maybe IdentityProviderDetails,
CreateServer -> Maybe IdentityProviderType
identityProviderType :: Prelude.Maybe IdentityProviderType,
CreateServer -> Maybe Text
loggingRole :: Prelude.Maybe Prelude.Text,
CreateServer -> Maybe Text
postAuthenticationLoginBanner :: Prelude.Maybe Prelude.Text,
CreateServer -> Maybe Text
preAuthenticationLoginBanner :: Prelude.Maybe Prelude.Text,
CreateServer -> Maybe ProtocolDetails
protocolDetails :: Prelude.Maybe ProtocolDetails,
CreateServer -> Maybe (NonEmpty Protocol)
protocols :: Prelude.Maybe (Prelude.NonEmpty Protocol),
CreateServer -> Maybe Text
securityPolicyName :: Prelude.Maybe Prelude.Text,
CreateServer -> Maybe (NonEmpty Tag)
tags :: Prelude.Maybe (Prelude.NonEmpty Tag),
CreateServer -> Maybe WorkflowDetails
workflowDetails :: Prelude.Maybe WorkflowDetails
}
deriving (CreateServer -> CreateServer -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateServer -> CreateServer -> Bool
$c/= :: CreateServer -> CreateServer -> Bool
== :: CreateServer -> CreateServer -> Bool
$c== :: CreateServer -> CreateServer -> Bool
Prelude.Eq, Int -> CreateServer -> ShowS
[CreateServer] -> ShowS
CreateServer -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateServer] -> ShowS
$cshowList :: [CreateServer] -> ShowS
show :: CreateServer -> String
$cshow :: CreateServer -> String
showsPrec :: Int -> CreateServer -> ShowS
$cshowsPrec :: Int -> CreateServer -> ShowS
Prelude.Show, forall x. Rep CreateServer x -> CreateServer
forall x. CreateServer -> Rep CreateServer x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateServer x -> CreateServer
$cfrom :: forall x. CreateServer -> Rep CreateServer x
Prelude.Generic)
newCreateServer ::
CreateServer
newCreateServer :: CreateServer
newCreateServer =
CreateServer'
{ $sel:certificate:CreateServer' :: Maybe Text
certificate = forall a. Maybe a
Prelude.Nothing,
$sel:domain:CreateServer' :: Maybe Domain
domain = forall a. Maybe a
Prelude.Nothing,
$sel:endpointDetails:CreateServer' :: Maybe EndpointDetails
endpointDetails = forall a. Maybe a
Prelude.Nothing,
$sel:endpointType:CreateServer' :: Maybe EndpointType
endpointType = forall a. Maybe a
Prelude.Nothing,
$sel:hostKey:CreateServer' :: Maybe (Sensitive Text)
hostKey = forall a. Maybe a
Prelude.Nothing,
$sel:identityProviderDetails:CreateServer' :: Maybe IdentityProviderDetails
identityProviderDetails = forall a. Maybe a
Prelude.Nothing,
$sel:identityProviderType:CreateServer' :: Maybe IdentityProviderType
identityProviderType = forall a. Maybe a
Prelude.Nothing,
$sel:loggingRole:CreateServer' :: Maybe Text
loggingRole = forall a. Maybe a
Prelude.Nothing,
$sel:postAuthenticationLoginBanner:CreateServer' :: Maybe Text
postAuthenticationLoginBanner = forall a. Maybe a
Prelude.Nothing,
$sel:preAuthenticationLoginBanner:CreateServer' :: Maybe Text
preAuthenticationLoginBanner = forall a. Maybe a
Prelude.Nothing,
$sel:protocolDetails:CreateServer' :: Maybe ProtocolDetails
protocolDetails = forall a. Maybe a
Prelude.Nothing,
$sel:protocols:CreateServer' :: Maybe (NonEmpty Protocol)
protocols = forall a. Maybe a
Prelude.Nothing,
$sel:securityPolicyName:CreateServer' :: Maybe Text
securityPolicyName = forall a. Maybe a
Prelude.Nothing,
$sel:tags:CreateServer' :: Maybe (NonEmpty Tag)
tags = forall a. Maybe a
Prelude.Nothing,
$sel:workflowDetails:CreateServer' :: Maybe WorkflowDetails
workflowDetails = forall a. Maybe a
Prelude.Nothing
}
createServer_certificate :: Lens.Lens' CreateServer (Prelude.Maybe Prelude.Text)
createServer_certificate :: Lens' CreateServer (Maybe Text)
createServer_certificate = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateServer' {Maybe Text
certificate :: Maybe Text
$sel:certificate:CreateServer' :: CreateServer -> Maybe Text
certificate} -> Maybe Text
certificate) (\s :: CreateServer
s@CreateServer' {} Maybe Text
a -> CreateServer
s {$sel:certificate:CreateServer' :: Maybe Text
certificate = Maybe Text
a} :: CreateServer)
createServer_domain :: Lens.Lens' CreateServer (Prelude.Maybe Domain)
createServer_domain :: Lens' CreateServer (Maybe Domain)
createServer_domain = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateServer' {Maybe Domain
domain :: Maybe Domain
$sel:domain:CreateServer' :: CreateServer -> Maybe Domain
domain} -> Maybe Domain
domain) (\s :: CreateServer
s@CreateServer' {} Maybe Domain
a -> CreateServer
s {$sel:domain:CreateServer' :: Maybe Domain
domain = Maybe Domain
a} :: CreateServer)
createServer_endpointDetails :: Lens.Lens' CreateServer (Prelude.Maybe EndpointDetails)
createServer_endpointDetails :: Lens' CreateServer (Maybe EndpointDetails)
createServer_endpointDetails = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateServer' {Maybe EndpointDetails
endpointDetails :: Maybe EndpointDetails
$sel:endpointDetails:CreateServer' :: CreateServer -> Maybe EndpointDetails
endpointDetails} -> Maybe EndpointDetails
endpointDetails) (\s :: CreateServer
s@CreateServer' {} Maybe EndpointDetails
a -> CreateServer
s {$sel:endpointDetails:CreateServer' :: Maybe EndpointDetails
endpointDetails = Maybe EndpointDetails
a} :: CreateServer)
createServer_endpointType :: Lens.Lens' CreateServer (Prelude.Maybe EndpointType)
createServer_endpointType :: Lens' CreateServer (Maybe EndpointType)
createServer_endpointType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateServer' {Maybe EndpointType
endpointType :: Maybe EndpointType
$sel:endpointType:CreateServer' :: CreateServer -> Maybe EndpointType
endpointType} -> Maybe EndpointType
endpointType) (\s :: CreateServer
s@CreateServer' {} Maybe EndpointType
a -> CreateServer
s {$sel:endpointType:CreateServer' :: Maybe EndpointType
endpointType = Maybe EndpointType
a} :: CreateServer)
createServer_hostKey :: Lens.Lens' CreateServer (Prelude.Maybe Prelude.Text)
createServer_hostKey :: Lens' CreateServer (Maybe Text)
createServer_hostKey = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateServer' {Maybe (Sensitive Text)
hostKey :: Maybe (Sensitive Text)
$sel:hostKey:CreateServer' :: CreateServer -> Maybe (Sensitive Text)
hostKey} -> Maybe (Sensitive Text)
hostKey) (\s :: CreateServer
s@CreateServer' {} Maybe (Sensitive Text)
a -> CreateServer
s {$sel:hostKey:CreateServer' :: Maybe (Sensitive Text)
hostKey = Maybe (Sensitive Text)
a} :: CreateServer) 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 a. Iso' (Sensitive a) a
Data._Sensitive
createServer_identityProviderDetails :: Lens.Lens' CreateServer (Prelude.Maybe IdentityProviderDetails)
createServer_identityProviderDetails :: Lens' CreateServer (Maybe IdentityProviderDetails)
createServer_identityProviderDetails = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateServer' {Maybe IdentityProviderDetails
identityProviderDetails :: Maybe IdentityProviderDetails
$sel:identityProviderDetails:CreateServer' :: CreateServer -> Maybe IdentityProviderDetails
identityProviderDetails} -> Maybe IdentityProviderDetails
identityProviderDetails) (\s :: CreateServer
s@CreateServer' {} Maybe IdentityProviderDetails
a -> CreateServer
s {$sel:identityProviderDetails:CreateServer' :: Maybe IdentityProviderDetails
identityProviderDetails = Maybe IdentityProviderDetails
a} :: CreateServer)
createServer_identityProviderType :: Lens.Lens' CreateServer (Prelude.Maybe IdentityProviderType)
createServer_identityProviderType :: Lens' CreateServer (Maybe IdentityProviderType)
createServer_identityProviderType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateServer' {Maybe IdentityProviderType
identityProviderType :: Maybe IdentityProviderType
$sel:identityProviderType:CreateServer' :: CreateServer -> Maybe IdentityProviderType
identityProviderType} -> Maybe IdentityProviderType
identityProviderType) (\s :: CreateServer
s@CreateServer' {} Maybe IdentityProviderType
a -> CreateServer
s {$sel:identityProviderType:CreateServer' :: Maybe IdentityProviderType
identityProviderType = Maybe IdentityProviderType
a} :: CreateServer)
createServer_loggingRole :: Lens.Lens' CreateServer (Prelude.Maybe Prelude.Text)
createServer_loggingRole :: Lens' CreateServer (Maybe Text)
createServer_loggingRole = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateServer' {Maybe Text
loggingRole :: Maybe Text
$sel:loggingRole:CreateServer' :: CreateServer -> Maybe Text
loggingRole} -> Maybe Text
loggingRole) (\s :: CreateServer
s@CreateServer' {} Maybe Text
a -> CreateServer
s {$sel:loggingRole:CreateServer' :: Maybe Text
loggingRole = Maybe Text
a} :: CreateServer)
createServer_postAuthenticationLoginBanner :: Lens.Lens' CreateServer (Prelude.Maybe Prelude.Text)
createServer_postAuthenticationLoginBanner :: Lens' CreateServer (Maybe Text)
createServer_postAuthenticationLoginBanner = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateServer' {Maybe Text
postAuthenticationLoginBanner :: Maybe Text
$sel:postAuthenticationLoginBanner:CreateServer' :: CreateServer -> Maybe Text
postAuthenticationLoginBanner} -> Maybe Text
postAuthenticationLoginBanner) (\s :: CreateServer
s@CreateServer' {} Maybe Text
a -> CreateServer
s {$sel:postAuthenticationLoginBanner:CreateServer' :: Maybe Text
postAuthenticationLoginBanner = Maybe Text
a} :: CreateServer)
createServer_preAuthenticationLoginBanner :: Lens.Lens' CreateServer (Prelude.Maybe Prelude.Text)
createServer_preAuthenticationLoginBanner :: Lens' CreateServer (Maybe Text)
createServer_preAuthenticationLoginBanner = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateServer' {Maybe Text
preAuthenticationLoginBanner :: Maybe Text
$sel:preAuthenticationLoginBanner:CreateServer' :: CreateServer -> Maybe Text
preAuthenticationLoginBanner} -> Maybe Text
preAuthenticationLoginBanner) (\s :: CreateServer
s@CreateServer' {} Maybe Text
a -> CreateServer
s {$sel:preAuthenticationLoginBanner:CreateServer' :: Maybe Text
preAuthenticationLoginBanner = Maybe Text
a} :: CreateServer)
createServer_protocolDetails :: Lens.Lens' CreateServer (Prelude.Maybe ProtocolDetails)
createServer_protocolDetails :: Lens' CreateServer (Maybe ProtocolDetails)
createServer_protocolDetails = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateServer' {Maybe ProtocolDetails
protocolDetails :: Maybe ProtocolDetails
$sel:protocolDetails:CreateServer' :: CreateServer -> Maybe ProtocolDetails
protocolDetails} -> Maybe ProtocolDetails
protocolDetails) (\s :: CreateServer
s@CreateServer' {} Maybe ProtocolDetails
a -> CreateServer
s {$sel:protocolDetails:CreateServer' :: Maybe ProtocolDetails
protocolDetails = Maybe ProtocolDetails
a} :: CreateServer)
createServer_protocols :: Lens.Lens' CreateServer (Prelude.Maybe (Prelude.NonEmpty Protocol))
createServer_protocols :: Lens' CreateServer (Maybe (NonEmpty Protocol))
createServer_protocols = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateServer' {Maybe (NonEmpty Protocol)
protocols :: Maybe (NonEmpty Protocol)
$sel:protocols:CreateServer' :: CreateServer -> Maybe (NonEmpty Protocol)
protocols} -> Maybe (NonEmpty Protocol)
protocols) (\s :: CreateServer
s@CreateServer' {} Maybe (NonEmpty Protocol)
a -> CreateServer
s {$sel:protocols:CreateServer' :: Maybe (NonEmpty Protocol)
protocols = Maybe (NonEmpty Protocol)
a} :: CreateServer) 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
createServer_securityPolicyName :: Lens.Lens' CreateServer (Prelude.Maybe Prelude.Text)
createServer_securityPolicyName :: Lens' CreateServer (Maybe Text)
createServer_securityPolicyName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateServer' {Maybe Text
securityPolicyName :: Maybe Text
$sel:securityPolicyName:CreateServer' :: CreateServer -> Maybe Text
securityPolicyName} -> Maybe Text
securityPolicyName) (\s :: CreateServer
s@CreateServer' {} Maybe Text
a -> CreateServer
s {$sel:securityPolicyName:CreateServer' :: Maybe Text
securityPolicyName = Maybe Text
a} :: CreateServer)
createServer_tags :: Lens.Lens' CreateServer (Prelude.Maybe (Prelude.NonEmpty Tag))
createServer_tags :: Lens' CreateServer (Maybe (NonEmpty Tag))
createServer_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateServer' {Maybe (NonEmpty Tag)
tags :: Maybe (NonEmpty Tag)
$sel:tags:CreateServer' :: CreateServer -> Maybe (NonEmpty Tag)
tags} -> Maybe (NonEmpty Tag)
tags) (\s :: CreateServer
s@CreateServer' {} Maybe (NonEmpty Tag)
a -> CreateServer
s {$sel:tags:CreateServer' :: Maybe (NonEmpty Tag)
tags = Maybe (NonEmpty Tag)
a} :: CreateServer) 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
createServer_workflowDetails :: Lens.Lens' CreateServer (Prelude.Maybe WorkflowDetails)
createServer_workflowDetails :: Lens' CreateServer (Maybe WorkflowDetails)
createServer_workflowDetails = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateServer' {Maybe WorkflowDetails
workflowDetails :: Maybe WorkflowDetails
$sel:workflowDetails:CreateServer' :: CreateServer -> Maybe WorkflowDetails
workflowDetails} -> Maybe WorkflowDetails
workflowDetails) (\s :: CreateServer
s@CreateServer' {} Maybe WorkflowDetails
a -> CreateServer
s {$sel:workflowDetails:CreateServer' :: Maybe WorkflowDetails
workflowDetails = Maybe WorkflowDetails
a} :: CreateServer)
instance Core.AWSRequest CreateServer where
type AWSResponse CreateServer = CreateServerResponse
request :: (Service -> Service) -> CreateServer -> Request CreateServer
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 CreateServer
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse CreateServer)))
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 ->
Int -> Text -> CreateServerResponse
CreateServerResponse'
forall (f :: * -> *) a b. Functor 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))
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"ServerId")
)
instance Prelude.Hashable CreateServer where
hashWithSalt :: Int -> CreateServer -> Int
hashWithSalt Int
_salt CreateServer' {Maybe (NonEmpty Protocol)
Maybe (NonEmpty Tag)
Maybe Text
Maybe (Sensitive Text)
Maybe Domain
Maybe EndpointDetails
Maybe EndpointType
Maybe IdentityProviderDetails
Maybe IdentityProviderType
Maybe ProtocolDetails
Maybe WorkflowDetails
workflowDetails :: Maybe WorkflowDetails
tags :: Maybe (NonEmpty Tag)
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
hostKey :: Maybe (Sensitive Text)
endpointType :: Maybe EndpointType
endpointDetails :: Maybe EndpointDetails
domain :: Maybe Domain
certificate :: Maybe Text
$sel:workflowDetails:CreateServer' :: CreateServer -> Maybe WorkflowDetails
$sel:tags:CreateServer' :: CreateServer -> Maybe (NonEmpty Tag)
$sel:securityPolicyName:CreateServer' :: CreateServer -> Maybe Text
$sel:protocols:CreateServer' :: CreateServer -> Maybe (NonEmpty Protocol)
$sel:protocolDetails:CreateServer' :: CreateServer -> Maybe ProtocolDetails
$sel:preAuthenticationLoginBanner:CreateServer' :: CreateServer -> Maybe Text
$sel:postAuthenticationLoginBanner:CreateServer' :: CreateServer -> Maybe Text
$sel:loggingRole:CreateServer' :: CreateServer -> Maybe Text
$sel:identityProviderType:CreateServer' :: CreateServer -> Maybe IdentityProviderType
$sel:identityProviderDetails:CreateServer' :: CreateServer -> Maybe IdentityProviderDetails
$sel:hostKey:CreateServer' :: CreateServer -> Maybe (Sensitive Text)
$sel:endpointType:CreateServer' :: CreateServer -> Maybe EndpointType
$sel:endpointDetails:CreateServer' :: CreateServer -> Maybe EndpointDetails
$sel:domain:CreateServer' :: CreateServer -> Maybe Domain
$sel:certificate:CreateServer' :: CreateServer -> 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 (Sensitive Text)
hostKey
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 (NonEmpty Tag)
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe WorkflowDetails
workflowDetails
instance Prelude.NFData CreateServer where
rnf :: CreateServer -> ()
rnf CreateServer' {Maybe (NonEmpty Protocol)
Maybe (NonEmpty Tag)
Maybe Text
Maybe (Sensitive Text)
Maybe Domain
Maybe EndpointDetails
Maybe EndpointType
Maybe IdentityProviderDetails
Maybe IdentityProviderType
Maybe ProtocolDetails
Maybe WorkflowDetails
workflowDetails :: Maybe WorkflowDetails
tags :: Maybe (NonEmpty Tag)
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
hostKey :: Maybe (Sensitive Text)
endpointType :: Maybe EndpointType
endpointDetails :: Maybe EndpointDetails
domain :: Maybe Domain
certificate :: Maybe Text
$sel:workflowDetails:CreateServer' :: CreateServer -> Maybe WorkflowDetails
$sel:tags:CreateServer' :: CreateServer -> Maybe (NonEmpty Tag)
$sel:securityPolicyName:CreateServer' :: CreateServer -> Maybe Text
$sel:protocols:CreateServer' :: CreateServer -> Maybe (NonEmpty Protocol)
$sel:protocolDetails:CreateServer' :: CreateServer -> Maybe ProtocolDetails
$sel:preAuthenticationLoginBanner:CreateServer' :: CreateServer -> Maybe Text
$sel:postAuthenticationLoginBanner:CreateServer' :: CreateServer -> Maybe Text
$sel:loggingRole:CreateServer' :: CreateServer -> Maybe Text
$sel:identityProviderType:CreateServer' :: CreateServer -> Maybe IdentityProviderType
$sel:identityProviderDetails:CreateServer' :: CreateServer -> Maybe IdentityProviderDetails
$sel:hostKey:CreateServer' :: CreateServer -> Maybe (Sensitive Text)
$sel:endpointType:CreateServer' :: CreateServer -> Maybe EndpointType
$sel:endpointDetails:CreateServer' :: CreateServer -> Maybe EndpointDetails
$sel:domain:CreateServer' :: CreateServer -> Maybe Domain
$sel:certificate:CreateServer' :: CreateServer -> 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 (Sensitive Text)
hostKey
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 (NonEmpty Tag)
tags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe WorkflowDetails
workflowDetails
instance Data.ToHeaders CreateServer where
toHeaders :: CreateServer -> 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
"TransferService.CreateServer" ::
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 CreateServer where
toJSON :: CreateServer -> Value
toJSON CreateServer' {Maybe (NonEmpty Protocol)
Maybe (NonEmpty Tag)
Maybe Text
Maybe (Sensitive Text)
Maybe Domain
Maybe EndpointDetails
Maybe EndpointType
Maybe IdentityProviderDetails
Maybe IdentityProviderType
Maybe ProtocolDetails
Maybe WorkflowDetails
workflowDetails :: Maybe WorkflowDetails
tags :: Maybe (NonEmpty Tag)
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
hostKey :: Maybe (Sensitive Text)
endpointType :: Maybe EndpointType
endpointDetails :: Maybe EndpointDetails
domain :: Maybe Domain
certificate :: Maybe Text
$sel:workflowDetails:CreateServer' :: CreateServer -> Maybe WorkflowDetails
$sel:tags:CreateServer' :: CreateServer -> Maybe (NonEmpty Tag)
$sel:securityPolicyName:CreateServer' :: CreateServer -> Maybe Text
$sel:protocols:CreateServer' :: CreateServer -> Maybe (NonEmpty Protocol)
$sel:protocolDetails:CreateServer' :: CreateServer -> Maybe ProtocolDetails
$sel:preAuthenticationLoginBanner:CreateServer' :: CreateServer -> Maybe Text
$sel:postAuthenticationLoginBanner:CreateServer' :: CreateServer -> Maybe Text
$sel:loggingRole:CreateServer' :: CreateServer -> Maybe Text
$sel:identityProviderType:CreateServer' :: CreateServer -> Maybe IdentityProviderType
$sel:identityProviderDetails:CreateServer' :: CreateServer -> Maybe IdentityProviderDetails
$sel:hostKey:CreateServer' :: CreateServer -> Maybe (Sensitive Text)
$sel:endpointType:CreateServer' :: CreateServer -> Maybe EndpointType
$sel:endpointDetails:CreateServer' :: CreateServer -> Maybe EndpointDetails
$sel:domain:CreateServer' :: CreateServer -> Maybe Domain
$sel:certificate:CreateServer' :: CreateServer -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"Certificate" 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
certificate,
(Key
"Domain" 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 Domain
domain,
(Key
"EndpointDetails" 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 EndpointDetails
endpointDetails,
(Key
"EndpointType" 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 EndpointType
endpointType,
(Key
"HostKey" 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 (Sensitive Text)
hostKey,
(Key
"IdentityProviderDetails" 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 IdentityProviderDetails
identityProviderDetails,
(Key
"IdentityProviderType" 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 IdentityProviderType
identityProviderType,
(Key
"LoggingRole" 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
loggingRole,
(Key
"PostAuthenticationLoginBanner" 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
postAuthenticationLoginBanner,
(Key
"PreAuthenticationLoginBanner" 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
preAuthenticationLoginBanner,
(Key
"ProtocolDetails" 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 ProtocolDetails
protocolDetails,
(Key
"Protocols" 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 (NonEmpty Protocol)
protocols,
(Key
"SecurityPolicyName" 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
securityPolicyName,
(Key
"Tags" 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 (NonEmpty Tag)
tags,
(Key
"WorkflowDetails" 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 WorkflowDetails
workflowDetails
]
)
instance Data.ToPath CreateServer where
toPath :: CreateServer -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery CreateServer where
toQuery :: CreateServer -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CreateServerResponse = CreateServerResponse'
{
CreateServerResponse -> Int
httpStatus :: Prelude.Int,
CreateServerResponse -> Text
serverId :: Prelude.Text
}
deriving (CreateServerResponse -> CreateServerResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateServerResponse -> CreateServerResponse -> Bool
$c/= :: CreateServerResponse -> CreateServerResponse -> Bool
== :: CreateServerResponse -> CreateServerResponse -> Bool
$c== :: CreateServerResponse -> CreateServerResponse -> Bool
Prelude.Eq, ReadPrec [CreateServerResponse]
ReadPrec CreateServerResponse
Int -> ReadS CreateServerResponse
ReadS [CreateServerResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateServerResponse]
$creadListPrec :: ReadPrec [CreateServerResponse]
readPrec :: ReadPrec CreateServerResponse
$creadPrec :: ReadPrec CreateServerResponse
readList :: ReadS [CreateServerResponse]
$creadList :: ReadS [CreateServerResponse]
readsPrec :: Int -> ReadS CreateServerResponse
$creadsPrec :: Int -> ReadS CreateServerResponse
Prelude.Read, Int -> CreateServerResponse -> ShowS
[CreateServerResponse] -> ShowS
CreateServerResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateServerResponse] -> ShowS
$cshowList :: [CreateServerResponse] -> ShowS
show :: CreateServerResponse -> String
$cshow :: CreateServerResponse -> String
showsPrec :: Int -> CreateServerResponse -> ShowS
$cshowsPrec :: Int -> CreateServerResponse -> ShowS
Prelude.Show, forall x. Rep CreateServerResponse x -> CreateServerResponse
forall x. CreateServerResponse -> Rep CreateServerResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateServerResponse x -> CreateServerResponse
$cfrom :: forall x. CreateServerResponse -> Rep CreateServerResponse x
Prelude.Generic)
newCreateServerResponse ::
Prelude.Int ->
Prelude.Text ->
CreateServerResponse
newCreateServerResponse :: Int -> Text -> CreateServerResponse
newCreateServerResponse Int
pHttpStatus_ Text
pServerId_ =
CreateServerResponse'
{ $sel:httpStatus:CreateServerResponse' :: Int
httpStatus = Int
pHttpStatus_,
$sel:serverId:CreateServerResponse' :: Text
serverId = Text
pServerId_
}
createServerResponse_httpStatus :: Lens.Lens' CreateServerResponse Prelude.Int
createServerResponse_httpStatus :: Lens' CreateServerResponse Int
createServerResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateServerResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateServerResponse' :: CreateServerResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateServerResponse
s@CreateServerResponse' {} Int
a -> CreateServerResponse
s {$sel:httpStatus:CreateServerResponse' :: Int
httpStatus = Int
a} :: CreateServerResponse)
createServerResponse_serverId :: Lens.Lens' CreateServerResponse Prelude.Text
createServerResponse_serverId :: Lens' CreateServerResponse Text
createServerResponse_serverId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateServerResponse' {Text
serverId :: Text
$sel:serverId:CreateServerResponse' :: CreateServerResponse -> Text
serverId} -> Text
serverId) (\s :: CreateServerResponse
s@CreateServerResponse' {} Text
a -> CreateServerResponse
s {$sel:serverId:CreateServerResponse' :: Text
serverId = Text
a} :: CreateServerResponse)
instance Prelude.NFData CreateServerResponse where
rnf :: CreateServerResponse -> ()
rnf CreateServerResponse' {Int
Text
serverId :: Text
httpStatus :: Int
$sel:serverId:CreateServerResponse' :: CreateServerResponse -> Text
$sel:httpStatus:CreateServerResponse' :: CreateServerResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
serverId