{-# 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.ECRPublic.DescribeImageTags
(
DescribeImageTags (..),
newDescribeImageTags,
describeImageTags_maxResults,
describeImageTags_nextToken,
describeImageTags_registryId,
describeImageTags_repositoryName,
DescribeImageTagsResponse (..),
newDescribeImageTagsResponse,
describeImageTagsResponse_imageTagDetails,
describeImageTagsResponse_nextToken,
describeImageTagsResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.ECRPublic.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DescribeImageTags = DescribeImageTags'
{
DescribeImageTags -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
DescribeImageTags -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
DescribeImageTags -> Maybe Text
registryId :: Prelude.Maybe Prelude.Text,
DescribeImageTags -> Text
repositoryName :: Prelude.Text
}
deriving (DescribeImageTags -> DescribeImageTags -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeImageTags -> DescribeImageTags -> Bool
$c/= :: DescribeImageTags -> DescribeImageTags -> Bool
== :: DescribeImageTags -> DescribeImageTags -> Bool
$c== :: DescribeImageTags -> DescribeImageTags -> Bool
Prelude.Eq, ReadPrec [DescribeImageTags]
ReadPrec DescribeImageTags
Int -> ReadS DescribeImageTags
ReadS [DescribeImageTags]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeImageTags]
$creadListPrec :: ReadPrec [DescribeImageTags]
readPrec :: ReadPrec DescribeImageTags
$creadPrec :: ReadPrec DescribeImageTags
readList :: ReadS [DescribeImageTags]
$creadList :: ReadS [DescribeImageTags]
readsPrec :: Int -> ReadS DescribeImageTags
$creadsPrec :: Int -> ReadS DescribeImageTags
Prelude.Read, Int -> DescribeImageTags -> ShowS
[DescribeImageTags] -> ShowS
DescribeImageTags -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeImageTags] -> ShowS
$cshowList :: [DescribeImageTags] -> ShowS
show :: DescribeImageTags -> String
$cshow :: DescribeImageTags -> String
showsPrec :: Int -> DescribeImageTags -> ShowS
$cshowsPrec :: Int -> DescribeImageTags -> ShowS
Prelude.Show, forall x. Rep DescribeImageTags x -> DescribeImageTags
forall x. DescribeImageTags -> Rep DescribeImageTags x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DescribeImageTags x -> DescribeImageTags
$cfrom :: forall x. DescribeImageTags -> Rep DescribeImageTags x
Prelude.Generic)
newDescribeImageTags ::
Prelude.Text ->
DescribeImageTags
newDescribeImageTags :: Text -> DescribeImageTags
newDescribeImageTags Text
pRepositoryName_ =
DescribeImageTags'
{ $sel:maxResults:DescribeImageTags' :: Maybe Natural
maxResults = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:DescribeImageTags' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:registryId:DescribeImageTags' :: Maybe Text
registryId = forall a. Maybe a
Prelude.Nothing,
$sel:repositoryName:DescribeImageTags' :: Text
repositoryName = Text
pRepositoryName_
}
describeImageTags_maxResults :: Lens.Lens' DescribeImageTags (Prelude.Maybe Prelude.Natural)
describeImageTags_maxResults :: Lens' DescribeImageTags (Maybe Natural)
describeImageTags_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeImageTags' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:DescribeImageTags' :: DescribeImageTags -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: DescribeImageTags
s@DescribeImageTags' {} Maybe Natural
a -> DescribeImageTags
s {$sel:maxResults:DescribeImageTags' :: Maybe Natural
maxResults = Maybe Natural
a} :: DescribeImageTags)
describeImageTags_nextToken :: Lens.Lens' DescribeImageTags (Prelude.Maybe Prelude.Text)
describeImageTags_nextToken :: Lens' DescribeImageTags (Maybe Text)
describeImageTags_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeImageTags' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:DescribeImageTags' :: DescribeImageTags -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: DescribeImageTags
s@DescribeImageTags' {} Maybe Text
a -> DescribeImageTags
s {$sel:nextToken:DescribeImageTags' :: Maybe Text
nextToken = Maybe Text
a} :: DescribeImageTags)
describeImageTags_registryId :: Lens.Lens' DescribeImageTags (Prelude.Maybe Prelude.Text)
describeImageTags_registryId :: Lens' DescribeImageTags (Maybe Text)
describeImageTags_registryId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeImageTags' {Maybe Text
registryId :: Maybe Text
$sel:registryId:DescribeImageTags' :: DescribeImageTags -> Maybe Text
registryId} -> Maybe Text
registryId) (\s :: DescribeImageTags
s@DescribeImageTags' {} Maybe Text
a -> DescribeImageTags
s {$sel:registryId:DescribeImageTags' :: Maybe Text
registryId = Maybe Text
a} :: DescribeImageTags)
describeImageTags_repositoryName :: Lens.Lens' DescribeImageTags Prelude.Text
describeImageTags_repositoryName :: Lens' DescribeImageTags Text
describeImageTags_repositoryName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeImageTags' {Text
repositoryName :: Text
$sel:repositoryName:DescribeImageTags' :: DescribeImageTags -> Text
repositoryName} -> Text
repositoryName) (\s :: DescribeImageTags
s@DescribeImageTags' {} Text
a -> DescribeImageTags
s {$sel:repositoryName:DescribeImageTags' :: Text
repositoryName = Text
a} :: DescribeImageTags)
instance Core.AWSPager DescribeImageTags where
page :: DescribeImageTags
-> AWSResponse DescribeImageTags -> Maybe DescribeImageTags
page DescribeImageTags
rq AWSResponse DescribeImageTags
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse DescribeImageTags
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeImageTagsResponse (Maybe Text)
describeImageTagsResponse_nextToken
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
) =
forall a. Maybe a
Prelude.Nothing
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse DescribeImageTags
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeImageTagsResponse (Maybe [ImageTagDetail])
describeImageTagsResponse_imageTagDetails
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
) =
forall a. Maybe a
Prelude.Nothing
| Bool
Prelude.otherwise =
forall a. a -> Maybe a
Prelude.Just
forall a b. (a -> b) -> a -> b
Prelude.$ DescribeImageTags
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' DescribeImageTags (Maybe Text)
describeImageTags_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse DescribeImageTags
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeImageTagsResponse (Maybe Text)
describeImageTagsResponse_nextToken
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
instance Core.AWSRequest DescribeImageTags where
type
AWSResponse DescribeImageTags =
DescribeImageTagsResponse
request :: (Service -> Service)
-> DescribeImageTags -> Request DescribeImageTags
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 DescribeImageTags
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeImageTags)))
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 [ImageTagDetail]
-> Maybe Text -> Int -> DescribeImageTagsResponse
DescribeImageTagsResponse'
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
"imageTagDetails"
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty
)
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
"nextToken")
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 DescribeImageTags where
hashWithSalt :: Int -> DescribeImageTags -> Int
hashWithSalt Int
_salt DescribeImageTags' {Maybe Natural
Maybe Text
Text
repositoryName :: Text
registryId :: Maybe Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:repositoryName:DescribeImageTags' :: DescribeImageTags -> Text
$sel:registryId:DescribeImageTags' :: DescribeImageTags -> Maybe Text
$sel:nextToken:DescribeImageTags' :: DescribeImageTags -> Maybe Text
$sel:maxResults:DescribeImageTags' :: DescribeImageTags -> Maybe Natural
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
maxResults
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
registryId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
repositoryName
instance Prelude.NFData DescribeImageTags where
rnf :: DescribeImageTags -> ()
rnf DescribeImageTags' {Maybe Natural
Maybe Text
Text
repositoryName :: Text
registryId :: Maybe Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:repositoryName:DescribeImageTags' :: DescribeImageTags -> Text
$sel:registryId:DescribeImageTags' :: DescribeImageTags -> Maybe Text
$sel:nextToken:DescribeImageTags' :: DescribeImageTags -> Maybe Text
$sel:maxResults:DescribeImageTags' :: DescribeImageTags -> Maybe Natural
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
maxResults
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
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
instance Data.ToHeaders DescribeImageTags where
toHeaders :: DescribeImageTags -> 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
"SpencerFrontendService.DescribeImageTags" ::
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 DescribeImageTags where
toJSON :: DescribeImageTags -> Value
toJSON DescribeImageTags' {Maybe Natural
Maybe Text
Text
repositoryName :: Text
registryId :: Maybe Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:repositoryName:DescribeImageTags' :: DescribeImageTags -> Text
$sel:registryId:DescribeImageTags' :: DescribeImageTags -> Maybe Text
$sel:nextToken:DescribeImageTags' :: DescribeImageTags -> Maybe Text
$sel:maxResults:DescribeImageTags' :: DescribeImageTags -> Maybe Natural
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"maxResults" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Natural
maxResults,
(Key
"nextToken" 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
nextToken,
(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)
]
)
instance Data.ToPath DescribeImageTags where
toPath :: DescribeImageTags -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DescribeImageTags where
toQuery :: DescribeImageTags -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeImageTagsResponse = DescribeImageTagsResponse'
{
DescribeImageTagsResponse -> Maybe [ImageTagDetail]
imageTagDetails :: Prelude.Maybe [ImageTagDetail],
DescribeImageTagsResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
DescribeImageTagsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeImageTagsResponse -> DescribeImageTagsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeImageTagsResponse -> DescribeImageTagsResponse -> Bool
$c/= :: DescribeImageTagsResponse -> DescribeImageTagsResponse -> Bool
== :: DescribeImageTagsResponse -> DescribeImageTagsResponse -> Bool
$c== :: DescribeImageTagsResponse -> DescribeImageTagsResponse -> Bool
Prelude.Eq, ReadPrec [DescribeImageTagsResponse]
ReadPrec DescribeImageTagsResponse
Int -> ReadS DescribeImageTagsResponse
ReadS [DescribeImageTagsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeImageTagsResponse]
$creadListPrec :: ReadPrec [DescribeImageTagsResponse]
readPrec :: ReadPrec DescribeImageTagsResponse
$creadPrec :: ReadPrec DescribeImageTagsResponse
readList :: ReadS [DescribeImageTagsResponse]
$creadList :: ReadS [DescribeImageTagsResponse]
readsPrec :: Int -> ReadS DescribeImageTagsResponse
$creadsPrec :: Int -> ReadS DescribeImageTagsResponse
Prelude.Read, Int -> DescribeImageTagsResponse -> ShowS
[DescribeImageTagsResponse] -> ShowS
DescribeImageTagsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeImageTagsResponse] -> ShowS
$cshowList :: [DescribeImageTagsResponse] -> ShowS
show :: DescribeImageTagsResponse -> String
$cshow :: DescribeImageTagsResponse -> String
showsPrec :: Int -> DescribeImageTagsResponse -> ShowS
$cshowsPrec :: Int -> DescribeImageTagsResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeImageTagsResponse x -> DescribeImageTagsResponse
forall x.
DescribeImageTagsResponse -> Rep DescribeImageTagsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeImageTagsResponse x -> DescribeImageTagsResponse
$cfrom :: forall x.
DescribeImageTagsResponse -> Rep DescribeImageTagsResponse x
Prelude.Generic)
newDescribeImageTagsResponse ::
Prelude.Int ->
DescribeImageTagsResponse
newDescribeImageTagsResponse :: Int -> DescribeImageTagsResponse
newDescribeImageTagsResponse Int
pHttpStatus_ =
DescribeImageTagsResponse'
{ $sel:imageTagDetails:DescribeImageTagsResponse' :: Maybe [ImageTagDetail]
imageTagDetails =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:DescribeImageTagsResponse' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeImageTagsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeImageTagsResponse_imageTagDetails :: Lens.Lens' DescribeImageTagsResponse (Prelude.Maybe [ImageTagDetail])
describeImageTagsResponse_imageTagDetails :: Lens' DescribeImageTagsResponse (Maybe [ImageTagDetail])
describeImageTagsResponse_imageTagDetails = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeImageTagsResponse' {Maybe [ImageTagDetail]
imageTagDetails :: Maybe [ImageTagDetail]
$sel:imageTagDetails:DescribeImageTagsResponse' :: DescribeImageTagsResponse -> Maybe [ImageTagDetail]
imageTagDetails} -> Maybe [ImageTagDetail]
imageTagDetails) (\s :: DescribeImageTagsResponse
s@DescribeImageTagsResponse' {} Maybe [ImageTagDetail]
a -> DescribeImageTagsResponse
s {$sel:imageTagDetails:DescribeImageTagsResponse' :: Maybe [ImageTagDetail]
imageTagDetails = Maybe [ImageTagDetail]
a} :: DescribeImageTagsResponse) 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
describeImageTagsResponse_nextToken :: Lens.Lens' DescribeImageTagsResponse (Prelude.Maybe Prelude.Text)
describeImageTagsResponse_nextToken :: Lens' DescribeImageTagsResponse (Maybe Text)
describeImageTagsResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeImageTagsResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:DescribeImageTagsResponse' :: DescribeImageTagsResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: DescribeImageTagsResponse
s@DescribeImageTagsResponse' {} Maybe Text
a -> DescribeImageTagsResponse
s {$sel:nextToken:DescribeImageTagsResponse' :: Maybe Text
nextToken = Maybe Text
a} :: DescribeImageTagsResponse)
describeImageTagsResponse_httpStatus :: Lens.Lens' DescribeImageTagsResponse Prelude.Int
describeImageTagsResponse_httpStatus :: Lens' DescribeImageTagsResponse Int
describeImageTagsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeImageTagsResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeImageTagsResponse' :: DescribeImageTagsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeImageTagsResponse
s@DescribeImageTagsResponse' {} Int
a -> DescribeImageTagsResponse
s {$sel:httpStatus:DescribeImageTagsResponse' :: Int
httpStatus = Int
a} :: DescribeImageTagsResponse)
instance Prelude.NFData DescribeImageTagsResponse where
rnf :: DescribeImageTagsResponse -> ()
rnf DescribeImageTagsResponse' {Int
Maybe [ImageTagDetail]
Maybe Text
httpStatus :: Int
nextToken :: Maybe Text
imageTagDetails :: Maybe [ImageTagDetail]
$sel:httpStatus:DescribeImageTagsResponse' :: DescribeImageTagsResponse -> Int
$sel:nextToken:DescribeImageTagsResponse' :: DescribeImageTagsResponse -> Maybe Text
$sel:imageTagDetails:DescribeImageTagsResponse' :: DescribeImageTagsResponse -> Maybe [ImageTagDetail]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [ImageTagDetail]
imageTagDetails
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus