{-# 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.ECR.SetRepositoryPolicy
(
SetRepositoryPolicy (..),
newSetRepositoryPolicy,
setRepositoryPolicy_force,
setRepositoryPolicy_registryId,
setRepositoryPolicy_repositoryName,
setRepositoryPolicy_policyText,
SetRepositoryPolicyResponse (..),
newSetRepositoryPolicyResponse,
setRepositoryPolicyResponse_policyText,
setRepositoryPolicyResponse_registryId,
setRepositoryPolicyResponse_repositoryName,
setRepositoryPolicyResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.ECR.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data SetRepositoryPolicy = SetRepositoryPolicy'
{
SetRepositoryPolicy -> Maybe Bool
force :: Prelude.Maybe Prelude.Bool,
SetRepositoryPolicy -> Maybe Text
registryId :: Prelude.Maybe Prelude.Text,
SetRepositoryPolicy -> Text
repositoryName :: Prelude.Text,
SetRepositoryPolicy -> Text
policyText :: Prelude.Text
}
deriving (SetRepositoryPolicy -> SetRepositoryPolicy -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SetRepositoryPolicy -> SetRepositoryPolicy -> Bool
$c/= :: SetRepositoryPolicy -> SetRepositoryPolicy -> Bool
== :: SetRepositoryPolicy -> SetRepositoryPolicy -> Bool
$c== :: SetRepositoryPolicy -> SetRepositoryPolicy -> Bool
Prelude.Eq, ReadPrec [SetRepositoryPolicy]
ReadPrec SetRepositoryPolicy
Int -> ReadS SetRepositoryPolicy
ReadS [SetRepositoryPolicy]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [SetRepositoryPolicy]
$creadListPrec :: ReadPrec [SetRepositoryPolicy]
readPrec :: ReadPrec SetRepositoryPolicy
$creadPrec :: ReadPrec SetRepositoryPolicy
readList :: ReadS [SetRepositoryPolicy]
$creadList :: ReadS [SetRepositoryPolicy]
readsPrec :: Int -> ReadS SetRepositoryPolicy
$creadsPrec :: Int -> ReadS SetRepositoryPolicy
Prelude.Read, Int -> SetRepositoryPolicy -> ShowS
[SetRepositoryPolicy] -> ShowS
SetRepositoryPolicy -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SetRepositoryPolicy] -> ShowS
$cshowList :: [SetRepositoryPolicy] -> ShowS
show :: SetRepositoryPolicy -> String
$cshow :: SetRepositoryPolicy -> String
showsPrec :: Int -> SetRepositoryPolicy -> ShowS
$cshowsPrec :: Int -> SetRepositoryPolicy -> ShowS
Prelude.Show, forall x. Rep SetRepositoryPolicy x -> SetRepositoryPolicy
forall x. SetRepositoryPolicy -> Rep SetRepositoryPolicy x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep SetRepositoryPolicy x -> SetRepositoryPolicy
$cfrom :: forall x. SetRepositoryPolicy -> Rep SetRepositoryPolicy x
Prelude.Generic)
newSetRepositoryPolicy ::
Prelude.Text ->
Prelude.Text ->
SetRepositoryPolicy
newSetRepositoryPolicy :: Text -> Text -> SetRepositoryPolicy
newSetRepositoryPolicy Text
pRepositoryName_ Text
pPolicyText_ =
SetRepositoryPolicy'
{ $sel:force:SetRepositoryPolicy' :: Maybe Bool
force = forall a. Maybe a
Prelude.Nothing,
$sel:registryId:SetRepositoryPolicy' :: Maybe Text
registryId = forall a. Maybe a
Prelude.Nothing,
$sel:repositoryName:SetRepositoryPolicy' :: Text
repositoryName = Text
pRepositoryName_,
$sel:policyText:SetRepositoryPolicy' :: Text
policyText = Text
pPolicyText_
}
setRepositoryPolicy_force :: Lens.Lens' SetRepositoryPolicy (Prelude.Maybe Prelude.Bool)
setRepositoryPolicy_force :: Lens' SetRepositoryPolicy (Maybe Bool)
setRepositoryPolicy_force = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SetRepositoryPolicy' {Maybe Bool
force :: Maybe Bool
$sel:force:SetRepositoryPolicy' :: SetRepositoryPolicy -> Maybe Bool
force} -> Maybe Bool
force) (\s :: SetRepositoryPolicy
s@SetRepositoryPolicy' {} Maybe Bool
a -> SetRepositoryPolicy
s {$sel:force:SetRepositoryPolicy' :: Maybe Bool
force = Maybe Bool
a} :: SetRepositoryPolicy)
setRepositoryPolicy_registryId :: Lens.Lens' SetRepositoryPolicy (Prelude.Maybe Prelude.Text)
setRepositoryPolicy_registryId :: Lens' SetRepositoryPolicy (Maybe Text)
setRepositoryPolicy_registryId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SetRepositoryPolicy' {Maybe Text
registryId :: Maybe Text
$sel:registryId:SetRepositoryPolicy' :: SetRepositoryPolicy -> Maybe Text
registryId} -> Maybe Text
registryId) (\s :: SetRepositoryPolicy
s@SetRepositoryPolicy' {} Maybe Text
a -> SetRepositoryPolicy
s {$sel:registryId:SetRepositoryPolicy' :: Maybe Text
registryId = Maybe Text
a} :: SetRepositoryPolicy)
setRepositoryPolicy_repositoryName :: Lens.Lens' SetRepositoryPolicy Prelude.Text
setRepositoryPolicy_repositoryName :: Lens' SetRepositoryPolicy Text
setRepositoryPolicy_repositoryName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SetRepositoryPolicy' {Text
repositoryName :: Text
$sel:repositoryName:SetRepositoryPolicy' :: SetRepositoryPolicy -> Text
repositoryName} -> Text
repositoryName) (\s :: SetRepositoryPolicy
s@SetRepositoryPolicy' {} Text
a -> SetRepositoryPolicy
s {$sel:repositoryName:SetRepositoryPolicy' :: Text
repositoryName = Text
a} :: SetRepositoryPolicy)
setRepositoryPolicy_policyText :: Lens.Lens' SetRepositoryPolicy Prelude.Text
setRepositoryPolicy_policyText :: Lens' SetRepositoryPolicy Text
setRepositoryPolicy_policyText = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SetRepositoryPolicy' {Text
policyText :: Text
$sel:policyText:SetRepositoryPolicy' :: SetRepositoryPolicy -> Text
policyText} -> Text
policyText) (\s :: SetRepositoryPolicy
s@SetRepositoryPolicy' {} Text
a -> SetRepositoryPolicy
s {$sel:policyText:SetRepositoryPolicy' :: Text
policyText = Text
a} :: SetRepositoryPolicy)
instance Core.AWSRequest SetRepositoryPolicy where
type
AWSResponse SetRepositoryPolicy =
SetRepositoryPolicyResponse
request :: (Service -> Service)
-> SetRepositoryPolicy -> Request SetRepositoryPolicy
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 SetRepositoryPolicy
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse SetRepositoryPolicy)))
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
-> Maybe Text -> Maybe Text -> Int -> SetRepositoryPolicyResponse
SetRepositoryPolicyResponse'
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
"policyText")
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
"registryId")
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
"repositoryName")
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 SetRepositoryPolicy where
hashWithSalt :: Int -> SetRepositoryPolicy -> Int
hashWithSalt Int
_salt SetRepositoryPolicy' {Maybe Bool
Maybe Text
Text
policyText :: Text
repositoryName :: Text
registryId :: Maybe Text
force :: Maybe Bool
$sel:policyText:SetRepositoryPolicy' :: SetRepositoryPolicy -> Text
$sel:repositoryName:SetRepositoryPolicy' :: SetRepositoryPolicy -> Text
$sel:registryId:SetRepositoryPolicy' :: SetRepositoryPolicy -> Maybe Text
$sel:force:SetRepositoryPolicy' :: SetRepositoryPolicy -> Maybe Bool
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
force
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
registryId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
repositoryName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
policyText
instance Prelude.NFData SetRepositoryPolicy where
rnf :: SetRepositoryPolicy -> ()
rnf SetRepositoryPolicy' {Maybe Bool
Maybe Text
Text
policyText :: Text
repositoryName :: Text
registryId :: Maybe Text
force :: Maybe Bool
$sel:policyText:SetRepositoryPolicy' :: SetRepositoryPolicy -> Text
$sel:repositoryName:SetRepositoryPolicy' :: SetRepositoryPolicy -> Text
$sel:registryId:SetRepositoryPolicy' :: SetRepositoryPolicy -> Maybe Text
$sel:force:SetRepositoryPolicy' :: SetRepositoryPolicy -> Maybe Bool
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
force
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
registryId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
repositoryName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
policyText
instance Data.ToHeaders SetRepositoryPolicy where
toHeaders :: SetRepositoryPolicy -> 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
"AmazonEC2ContainerRegistry_V20150921.SetRepositoryPolicy" ::
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 SetRepositoryPolicy where
toJSON :: SetRepositoryPolicy -> Value
toJSON SetRepositoryPolicy' {Maybe Bool
Maybe Text
Text
policyText :: Text
repositoryName :: Text
registryId :: Maybe Text
force :: Maybe Bool
$sel:policyText:SetRepositoryPolicy' :: SetRepositoryPolicy -> Text
$sel:repositoryName:SetRepositoryPolicy' :: SetRepositoryPolicy -> Text
$sel:registryId:SetRepositoryPolicy' :: SetRepositoryPolicy -> Maybe Text
$sel:force:SetRepositoryPolicy' :: SetRepositoryPolicy -> Maybe Bool
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"force" 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 Bool
force,
(Key
"registryId" 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
registryId,
forall a. a -> Maybe a
Prelude.Just
(Key
"repositoryName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
repositoryName),
forall a. a -> Maybe a
Prelude.Just (Key
"policyText" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
policyText)
]
)
instance Data.ToPath SetRepositoryPolicy where
toPath :: SetRepositoryPolicy -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery SetRepositoryPolicy where
toQuery :: SetRepositoryPolicy -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data SetRepositoryPolicyResponse = SetRepositoryPolicyResponse'
{
SetRepositoryPolicyResponse -> Maybe Text
policyText :: Prelude.Maybe Prelude.Text,
SetRepositoryPolicyResponse -> Maybe Text
registryId :: Prelude.Maybe Prelude.Text,
SetRepositoryPolicyResponse -> Maybe Text
repositoryName :: Prelude.Maybe Prelude.Text,
SetRepositoryPolicyResponse -> Int
httpStatus :: Prelude.Int
}
deriving (SetRepositoryPolicyResponse -> SetRepositoryPolicyResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SetRepositoryPolicyResponse -> SetRepositoryPolicyResponse -> Bool
$c/= :: SetRepositoryPolicyResponse -> SetRepositoryPolicyResponse -> Bool
== :: SetRepositoryPolicyResponse -> SetRepositoryPolicyResponse -> Bool
$c== :: SetRepositoryPolicyResponse -> SetRepositoryPolicyResponse -> Bool
Prelude.Eq, ReadPrec [SetRepositoryPolicyResponse]
ReadPrec SetRepositoryPolicyResponse
Int -> ReadS SetRepositoryPolicyResponse
ReadS [SetRepositoryPolicyResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [SetRepositoryPolicyResponse]
$creadListPrec :: ReadPrec [SetRepositoryPolicyResponse]
readPrec :: ReadPrec SetRepositoryPolicyResponse
$creadPrec :: ReadPrec SetRepositoryPolicyResponse
readList :: ReadS [SetRepositoryPolicyResponse]
$creadList :: ReadS [SetRepositoryPolicyResponse]
readsPrec :: Int -> ReadS SetRepositoryPolicyResponse
$creadsPrec :: Int -> ReadS SetRepositoryPolicyResponse
Prelude.Read, Int -> SetRepositoryPolicyResponse -> ShowS
[SetRepositoryPolicyResponse] -> ShowS
SetRepositoryPolicyResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SetRepositoryPolicyResponse] -> ShowS
$cshowList :: [SetRepositoryPolicyResponse] -> ShowS
show :: SetRepositoryPolicyResponse -> String
$cshow :: SetRepositoryPolicyResponse -> String
showsPrec :: Int -> SetRepositoryPolicyResponse -> ShowS
$cshowsPrec :: Int -> SetRepositoryPolicyResponse -> ShowS
Prelude.Show, forall x.
Rep SetRepositoryPolicyResponse x -> SetRepositoryPolicyResponse
forall x.
SetRepositoryPolicyResponse -> Rep SetRepositoryPolicyResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep SetRepositoryPolicyResponse x -> SetRepositoryPolicyResponse
$cfrom :: forall x.
SetRepositoryPolicyResponse -> Rep SetRepositoryPolicyResponse x
Prelude.Generic)
newSetRepositoryPolicyResponse ::
Prelude.Int ->
SetRepositoryPolicyResponse
newSetRepositoryPolicyResponse :: Int -> SetRepositoryPolicyResponse
newSetRepositoryPolicyResponse Int
pHttpStatus_ =
SetRepositoryPolicyResponse'
{ $sel:policyText:SetRepositoryPolicyResponse' :: Maybe Text
policyText =
forall a. Maybe a
Prelude.Nothing,
$sel:registryId:SetRepositoryPolicyResponse' :: Maybe Text
registryId = forall a. Maybe a
Prelude.Nothing,
$sel:repositoryName:SetRepositoryPolicyResponse' :: Maybe Text
repositoryName = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:SetRepositoryPolicyResponse' :: Int
httpStatus = Int
pHttpStatus_
}
setRepositoryPolicyResponse_policyText :: Lens.Lens' SetRepositoryPolicyResponse (Prelude.Maybe Prelude.Text)
setRepositoryPolicyResponse_policyText :: Lens' SetRepositoryPolicyResponse (Maybe Text)
setRepositoryPolicyResponse_policyText = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SetRepositoryPolicyResponse' {Maybe Text
policyText :: Maybe Text
$sel:policyText:SetRepositoryPolicyResponse' :: SetRepositoryPolicyResponse -> Maybe Text
policyText} -> Maybe Text
policyText) (\s :: SetRepositoryPolicyResponse
s@SetRepositoryPolicyResponse' {} Maybe Text
a -> SetRepositoryPolicyResponse
s {$sel:policyText:SetRepositoryPolicyResponse' :: Maybe Text
policyText = Maybe Text
a} :: SetRepositoryPolicyResponse)
setRepositoryPolicyResponse_registryId :: Lens.Lens' SetRepositoryPolicyResponse (Prelude.Maybe Prelude.Text)
setRepositoryPolicyResponse_registryId :: Lens' SetRepositoryPolicyResponse (Maybe Text)
setRepositoryPolicyResponse_registryId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SetRepositoryPolicyResponse' {Maybe Text
registryId :: Maybe Text
$sel:registryId:SetRepositoryPolicyResponse' :: SetRepositoryPolicyResponse -> Maybe Text
registryId} -> Maybe Text
registryId) (\s :: SetRepositoryPolicyResponse
s@SetRepositoryPolicyResponse' {} Maybe Text
a -> SetRepositoryPolicyResponse
s {$sel:registryId:SetRepositoryPolicyResponse' :: Maybe Text
registryId = Maybe Text
a} :: SetRepositoryPolicyResponse)
setRepositoryPolicyResponse_repositoryName :: Lens.Lens' SetRepositoryPolicyResponse (Prelude.Maybe Prelude.Text)
setRepositoryPolicyResponse_repositoryName :: Lens' SetRepositoryPolicyResponse (Maybe Text)
setRepositoryPolicyResponse_repositoryName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SetRepositoryPolicyResponse' {Maybe Text
repositoryName :: Maybe Text
$sel:repositoryName:SetRepositoryPolicyResponse' :: SetRepositoryPolicyResponse -> Maybe Text
repositoryName} -> Maybe Text
repositoryName) (\s :: SetRepositoryPolicyResponse
s@SetRepositoryPolicyResponse' {} Maybe Text
a -> SetRepositoryPolicyResponse
s {$sel:repositoryName:SetRepositoryPolicyResponse' :: Maybe Text
repositoryName = Maybe Text
a} :: SetRepositoryPolicyResponse)
setRepositoryPolicyResponse_httpStatus :: Lens.Lens' SetRepositoryPolicyResponse Prelude.Int
setRepositoryPolicyResponse_httpStatus :: Lens' SetRepositoryPolicyResponse Int
setRepositoryPolicyResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SetRepositoryPolicyResponse' {Int
httpStatus :: Int
$sel:httpStatus:SetRepositoryPolicyResponse' :: SetRepositoryPolicyResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: SetRepositoryPolicyResponse
s@SetRepositoryPolicyResponse' {} Int
a -> SetRepositoryPolicyResponse
s {$sel:httpStatus:SetRepositoryPolicyResponse' :: Int
httpStatus = Int
a} :: SetRepositoryPolicyResponse)
instance Prelude.NFData SetRepositoryPolicyResponse where
rnf :: SetRepositoryPolicyResponse -> ()
rnf SetRepositoryPolicyResponse' {Int
Maybe Text
httpStatus :: Int
repositoryName :: Maybe Text
registryId :: Maybe Text
policyText :: Maybe Text
$sel:httpStatus:SetRepositoryPolicyResponse' :: SetRepositoryPolicyResponse -> Int
$sel:repositoryName:SetRepositoryPolicyResponse' :: SetRepositoryPolicyResponse -> Maybe Text
$sel:registryId:SetRepositoryPolicyResponse' :: SetRepositoryPolicyResponse -> Maybe Text
$sel:policyText:SetRepositoryPolicyResponse' :: SetRepositoryPolicyResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
policyText
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
registryId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
repositoryName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus