{-# 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.DataSync.CreateAgent
(
CreateAgent (..),
newCreateAgent,
createAgent_agentName,
createAgent_securityGroupArns,
createAgent_subnetArns,
createAgent_tags,
createAgent_vpcEndpointId,
createAgent_activationKey,
CreateAgentResponse (..),
newCreateAgentResponse,
createAgentResponse_agentArn,
createAgentResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.DataSync.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data CreateAgent = CreateAgent'
{
CreateAgent -> Maybe Text
agentName :: Prelude.Maybe Prelude.Text,
CreateAgent -> Maybe (NonEmpty Text)
securityGroupArns :: Prelude.Maybe (Prelude.NonEmpty Prelude.Text),
CreateAgent -> Maybe (NonEmpty Text)
subnetArns :: Prelude.Maybe (Prelude.NonEmpty Prelude.Text),
CreateAgent -> Maybe [TagListEntry]
tags :: Prelude.Maybe [TagListEntry],
CreateAgent -> Maybe Text
vpcEndpointId :: Prelude.Maybe Prelude.Text,
CreateAgent -> Text
activationKey :: Prelude.Text
}
deriving (CreateAgent -> CreateAgent -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateAgent -> CreateAgent -> Bool
$c/= :: CreateAgent -> CreateAgent -> Bool
== :: CreateAgent -> CreateAgent -> Bool
$c== :: CreateAgent -> CreateAgent -> Bool
Prelude.Eq, ReadPrec [CreateAgent]
ReadPrec CreateAgent
Int -> ReadS CreateAgent
ReadS [CreateAgent]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateAgent]
$creadListPrec :: ReadPrec [CreateAgent]
readPrec :: ReadPrec CreateAgent
$creadPrec :: ReadPrec CreateAgent
readList :: ReadS [CreateAgent]
$creadList :: ReadS [CreateAgent]
readsPrec :: Int -> ReadS CreateAgent
$creadsPrec :: Int -> ReadS CreateAgent
Prelude.Read, Int -> CreateAgent -> ShowS
[CreateAgent] -> ShowS
CreateAgent -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateAgent] -> ShowS
$cshowList :: [CreateAgent] -> ShowS
show :: CreateAgent -> String
$cshow :: CreateAgent -> String
showsPrec :: Int -> CreateAgent -> ShowS
$cshowsPrec :: Int -> CreateAgent -> ShowS
Prelude.Show, forall x. Rep CreateAgent x -> CreateAgent
forall x. CreateAgent -> Rep CreateAgent x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateAgent x -> CreateAgent
$cfrom :: forall x. CreateAgent -> Rep CreateAgent x
Prelude.Generic)
newCreateAgent ::
Prelude.Text ->
CreateAgent
newCreateAgent :: Text -> CreateAgent
newCreateAgent Text
pActivationKey_ =
CreateAgent'
{ $sel:agentName:CreateAgent' :: Maybe Text
agentName = forall a. Maybe a
Prelude.Nothing,
$sel:securityGroupArns:CreateAgent' :: Maybe (NonEmpty Text)
securityGroupArns = forall a. Maybe a
Prelude.Nothing,
$sel:subnetArns:CreateAgent' :: Maybe (NonEmpty Text)
subnetArns = forall a. Maybe a
Prelude.Nothing,
$sel:tags:CreateAgent' :: Maybe [TagListEntry]
tags = forall a. Maybe a
Prelude.Nothing,
$sel:vpcEndpointId:CreateAgent' :: Maybe Text
vpcEndpointId = forall a. Maybe a
Prelude.Nothing,
$sel:activationKey:CreateAgent' :: Text
activationKey = Text
pActivationKey_
}
createAgent_agentName :: Lens.Lens' CreateAgent (Prelude.Maybe Prelude.Text)
createAgent_agentName :: Lens' CreateAgent (Maybe Text)
createAgent_agentName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAgent' {Maybe Text
agentName :: Maybe Text
$sel:agentName:CreateAgent' :: CreateAgent -> Maybe Text
agentName} -> Maybe Text
agentName) (\s :: CreateAgent
s@CreateAgent' {} Maybe Text
a -> CreateAgent
s {$sel:agentName:CreateAgent' :: Maybe Text
agentName = Maybe Text
a} :: CreateAgent)
createAgent_securityGroupArns :: Lens.Lens' CreateAgent (Prelude.Maybe (Prelude.NonEmpty Prelude.Text))
createAgent_securityGroupArns :: Lens' CreateAgent (Maybe (NonEmpty Text))
createAgent_securityGroupArns = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAgent' {Maybe (NonEmpty Text)
securityGroupArns :: Maybe (NonEmpty Text)
$sel:securityGroupArns:CreateAgent' :: CreateAgent -> Maybe (NonEmpty Text)
securityGroupArns} -> Maybe (NonEmpty Text)
securityGroupArns) (\s :: CreateAgent
s@CreateAgent' {} Maybe (NonEmpty Text)
a -> CreateAgent
s {$sel:securityGroupArns:CreateAgent' :: Maybe (NonEmpty Text)
securityGroupArns = Maybe (NonEmpty Text)
a} :: CreateAgent) 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
createAgent_subnetArns :: Lens.Lens' CreateAgent (Prelude.Maybe (Prelude.NonEmpty Prelude.Text))
createAgent_subnetArns :: Lens' CreateAgent (Maybe (NonEmpty Text))
createAgent_subnetArns = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAgent' {Maybe (NonEmpty Text)
subnetArns :: Maybe (NonEmpty Text)
$sel:subnetArns:CreateAgent' :: CreateAgent -> Maybe (NonEmpty Text)
subnetArns} -> Maybe (NonEmpty Text)
subnetArns) (\s :: CreateAgent
s@CreateAgent' {} Maybe (NonEmpty Text)
a -> CreateAgent
s {$sel:subnetArns:CreateAgent' :: Maybe (NonEmpty Text)
subnetArns = Maybe (NonEmpty Text)
a} :: CreateAgent) 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
createAgent_tags :: Lens.Lens' CreateAgent (Prelude.Maybe [TagListEntry])
createAgent_tags :: Lens' CreateAgent (Maybe [TagListEntry])
createAgent_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAgent' {Maybe [TagListEntry]
tags :: Maybe [TagListEntry]
$sel:tags:CreateAgent' :: CreateAgent -> Maybe [TagListEntry]
tags} -> Maybe [TagListEntry]
tags) (\s :: CreateAgent
s@CreateAgent' {} Maybe [TagListEntry]
a -> CreateAgent
s {$sel:tags:CreateAgent' :: Maybe [TagListEntry]
tags = Maybe [TagListEntry]
a} :: CreateAgent) 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
createAgent_vpcEndpointId :: Lens.Lens' CreateAgent (Prelude.Maybe Prelude.Text)
createAgent_vpcEndpointId :: Lens' CreateAgent (Maybe Text)
createAgent_vpcEndpointId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAgent' {Maybe Text
vpcEndpointId :: Maybe Text
$sel:vpcEndpointId:CreateAgent' :: CreateAgent -> Maybe Text
vpcEndpointId} -> Maybe Text
vpcEndpointId) (\s :: CreateAgent
s@CreateAgent' {} Maybe Text
a -> CreateAgent
s {$sel:vpcEndpointId:CreateAgent' :: Maybe Text
vpcEndpointId = Maybe Text
a} :: CreateAgent)
createAgent_activationKey :: Lens.Lens' CreateAgent Prelude.Text
createAgent_activationKey :: Lens' CreateAgent Text
createAgent_activationKey = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAgent' {Text
activationKey :: Text
$sel:activationKey:CreateAgent' :: CreateAgent -> Text
activationKey} -> Text
activationKey) (\s :: CreateAgent
s@CreateAgent' {} Text
a -> CreateAgent
s {$sel:activationKey:CreateAgent' :: Text
activationKey = Text
a} :: CreateAgent)
instance Core.AWSRequest CreateAgent where
type AWSResponse CreateAgent = CreateAgentResponse
request :: (Service -> Service) -> CreateAgent -> Request CreateAgent
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 CreateAgent
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse CreateAgent)))
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 Text -> Int -> CreateAgentResponse
CreateAgentResponse'
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
"AgentArn")
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 CreateAgent where
hashWithSalt :: Int -> CreateAgent -> Int
hashWithSalt Int
_salt CreateAgent' {Maybe [TagListEntry]
Maybe (NonEmpty Text)
Maybe Text
Text
activationKey :: Text
vpcEndpointId :: Maybe Text
tags :: Maybe [TagListEntry]
subnetArns :: Maybe (NonEmpty Text)
securityGroupArns :: Maybe (NonEmpty Text)
agentName :: Maybe Text
$sel:activationKey:CreateAgent' :: CreateAgent -> Text
$sel:vpcEndpointId:CreateAgent' :: CreateAgent -> Maybe Text
$sel:tags:CreateAgent' :: CreateAgent -> Maybe [TagListEntry]
$sel:subnetArns:CreateAgent' :: CreateAgent -> Maybe (NonEmpty Text)
$sel:securityGroupArns:CreateAgent' :: CreateAgent -> Maybe (NonEmpty Text)
$sel:agentName:CreateAgent' :: CreateAgent -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
agentName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (NonEmpty Text)
securityGroupArns
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (NonEmpty Text)
subnetArns
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [TagListEntry]
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
vpcEndpointId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
activationKey
instance Prelude.NFData CreateAgent where
rnf :: CreateAgent -> ()
rnf CreateAgent' {Maybe [TagListEntry]
Maybe (NonEmpty Text)
Maybe Text
Text
activationKey :: Text
vpcEndpointId :: Maybe Text
tags :: Maybe [TagListEntry]
subnetArns :: Maybe (NonEmpty Text)
securityGroupArns :: Maybe (NonEmpty Text)
agentName :: Maybe Text
$sel:activationKey:CreateAgent' :: CreateAgent -> Text
$sel:vpcEndpointId:CreateAgent' :: CreateAgent -> Maybe Text
$sel:tags:CreateAgent' :: CreateAgent -> Maybe [TagListEntry]
$sel:subnetArns:CreateAgent' :: CreateAgent -> Maybe (NonEmpty Text)
$sel:securityGroupArns:CreateAgent' :: CreateAgent -> Maybe (NonEmpty Text)
$sel:agentName:CreateAgent' :: CreateAgent -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
agentName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (NonEmpty Text)
securityGroupArns
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (NonEmpty Text)
subnetArns
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [TagListEntry]
tags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
vpcEndpointId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
activationKey
instance Data.ToHeaders CreateAgent where
toHeaders :: CreateAgent -> 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
"FmrsService.CreateAgent" :: 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 CreateAgent where
toJSON :: CreateAgent -> Value
toJSON CreateAgent' {Maybe [TagListEntry]
Maybe (NonEmpty Text)
Maybe Text
Text
activationKey :: Text
vpcEndpointId :: Maybe Text
tags :: Maybe [TagListEntry]
subnetArns :: Maybe (NonEmpty Text)
securityGroupArns :: Maybe (NonEmpty Text)
agentName :: Maybe Text
$sel:activationKey:CreateAgent' :: CreateAgent -> Text
$sel:vpcEndpointId:CreateAgent' :: CreateAgent -> Maybe Text
$sel:tags:CreateAgent' :: CreateAgent -> Maybe [TagListEntry]
$sel:subnetArns:CreateAgent' :: CreateAgent -> Maybe (NonEmpty Text)
$sel:securityGroupArns:CreateAgent' :: CreateAgent -> Maybe (NonEmpty Text)
$sel:agentName:CreateAgent' :: CreateAgent -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"AgentName" 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
agentName,
(Key
"SecurityGroupArns" 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 Text)
securityGroupArns,
(Key
"SubnetArns" 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 Text)
subnetArns,
(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 [TagListEntry]
tags,
(Key
"VpcEndpointId" 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
vpcEndpointId,
forall a. a -> Maybe a
Prelude.Just
(Key
"ActivationKey" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
activationKey)
]
)
instance Data.ToPath CreateAgent where
toPath :: CreateAgent -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery CreateAgent where
toQuery :: CreateAgent -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CreateAgentResponse = CreateAgentResponse'
{
CreateAgentResponse -> Maybe Text
agentArn :: Prelude.Maybe Prelude.Text,
CreateAgentResponse -> Int
httpStatus :: Prelude.Int
}
deriving (CreateAgentResponse -> CreateAgentResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateAgentResponse -> CreateAgentResponse -> Bool
$c/= :: CreateAgentResponse -> CreateAgentResponse -> Bool
== :: CreateAgentResponse -> CreateAgentResponse -> Bool
$c== :: CreateAgentResponse -> CreateAgentResponse -> Bool
Prelude.Eq, ReadPrec [CreateAgentResponse]
ReadPrec CreateAgentResponse
Int -> ReadS CreateAgentResponse
ReadS [CreateAgentResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateAgentResponse]
$creadListPrec :: ReadPrec [CreateAgentResponse]
readPrec :: ReadPrec CreateAgentResponse
$creadPrec :: ReadPrec CreateAgentResponse
readList :: ReadS [CreateAgentResponse]
$creadList :: ReadS [CreateAgentResponse]
readsPrec :: Int -> ReadS CreateAgentResponse
$creadsPrec :: Int -> ReadS CreateAgentResponse
Prelude.Read, Int -> CreateAgentResponse -> ShowS
[CreateAgentResponse] -> ShowS
CreateAgentResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateAgentResponse] -> ShowS
$cshowList :: [CreateAgentResponse] -> ShowS
show :: CreateAgentResponse -> String
$cshow :: CreateAgentResponse -> String
showsPrec :: Int -> CreateAgentResponse -> ShowS
$cshowsPrec :: Int -> CreateAgentResponse -> ShowS
Prelude.Show, forall x. Rep CreateAgentResponse x -> CreateAgentResponse
forall x. CreateAgentResponse -> Rep CreateAgentResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateAgentResponse x -> CreateAgentResponse
$cfrom :: forall x. CreateAgentResponse -> Rep CreateAgentResponse x
Prelude.Generic)
newCreateAgentResponse ::
Prelude.Int ->
CreateAgentResponse
newCreateAgentResponse :: Int -> CreateAgentResponse
newCreateAgentResponse Int
pHttpStatus_ =
CreateAgentResponse'
{ $sel:agentArn:CreateAgentResponse' :: Maybe Text
agentArn = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:CreateAgentResponse' :: Int
httpStatus = Int
pHttpStatus_
}
createAgentResponse_agentArn :: Lens.Lens' CreateAgentResponse (Prelude.Maybe Prelude.Text)
createAgentResponse_agentArn :: Lens' CreateAgentResponse (Maybe Text)
createAgentResponse_agentArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAgentResponse' {Maybe Text
agentArn :: Maybe Text
$sel:agentArn:CreateAgentResponse' :: CreateAgentResponse -> Maybe Text
agentArn} -> Maybe Text
agentArn) (\s :: CreateAgentResponse
s@CreateAgentResponse' {} Maybe Text
a -> CreateAgentResponse
s {$sel:agentArn:CreateAgentResponse' :: Maybe Text
agentArn = Maybe Text
a} :: CreateAgentResponse)
createAgentResponse_httpStatus :: Lens.Lens' CreateAgentResponse Prelude.Int
createAgentResponse_httpStatus :: Lens' CreateAgentResponse Int
createAgentResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAgentResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateAgentResponse' :: CreateAgentResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateAgentResponse
s@CreateAgentResponse' {} Int
a -> CreateAgentResponse
s {$sel:httpStatus:CreateAgentResponse' :: Int
httpStatus = Int
a} :: CreateAgentResponse)
instance Prelude.NFData CreateAgentResponse where
rnf :: CreateAgentResponse -> ()
rnf CreateAgentResponse' {Int
Maybe Text
httpStatus :: Int
agentArn :: Maybe Text
$sel:httpStatus:CreateAgentResponse' :: CreateAgentResponse -> Int
$sel:agentArn:CreateAgentResponse' :: CreateAgentResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
agentArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus