{-# 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 #-}

-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- |
-- Module      : Amazonka.SupportApp.ListSlackWorkspaceConfigurations
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Lists the Slack workspace configurations for an Amazon Web Services
-- account.
module Amazonka.SupportApp.ListSlackWorkspaceConfigurations
  ( -- * Creating a Request
    ListSlackWorkspaceConfigurations (..),
    newListSlackWorkspaceConfigurations,

    -- * Request Lenses
    listSlackWorkspaceConfigurations_nextToken,

    -- * Destructuring the Response
    ListSlackWorkspaceConfigurationsResponse (..),
    newListSlackWorkspaceConfigurationsResponse,

    -- * Response Lenses
    listSlackWorkspaceConfigurationsResponse_nextToken,
    listSlackWorkspaceConfigurationsResponse_slackWorkspaceConfigurations,
    listSlackWorkspaceConfigurationsResponse_httpStatus,
  )
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.SupportApp.Types

-- | /See:/ 'newListSlackWorkspaceConfigurations' smart constructor.
data ListSlackWorkspaceConfigurations = ListSlackWorkspaceConfigurations'
  { -- | If the results of a search are large, the API only returns a portion of
    -- the results and includes a @nextToken@ pagination token in the response.
    -- To retrieve the next batch of results, reissue the search request and
    -- include the returned token. When the API returns the last set of
    -- results, the response doesn\'t include a pagination token value.
    ListSlackWorkspaceConfigurations -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text
  }
  deriving (ListSlackWorkspaceConfigurations
-> ListSlackWorkspaceConfigurations -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListSlackWorkspaceConfigurations
-> ListSlackWorkspaceConfigurations -> Bool
$c/= :: ListSlackWorkspaceConfigurations
-> ListSlackWorkspaceConfigurations -> Bool
== :: ListSlackWorkspaceConfigurations
-> ListSlackWorkspaceConfigurations -> Bool
$c== :: ListSlackWorkspaceConfigurations
-> ListSlackWorkspaceConfigurations -> Bool
Prelude.Eq, ReadPrec [ListSlackWorkspaceConfigurations]
ReadPrec ListSlackWorkspaceConfigurations
Int -> ReadS ListSlackWorkspaceConfigurations
ReadS [ListSlackWorkspaceConfigurations]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListSlackWorkspaceConfigurations]
$creadListPrec :: ReadPrec [ListSlackWorkspaceConfigurations]
readPrec :: ReadPrec ListSlackWorkspaceConfigurations
$creadPrec :: ReadPrec ListSlackWorkspaceConfigurations
readList :: ReadS [ListSlackWorkspaceConfigurations]
$creadList :: ReadS [ListSlackWorkspaceConfigurations]
readsPrec :: Int -> ReadS ListSlackWorkspaceConfigurations
$creadsPrec :: Int -> ReadS ListSlackWorkspaceConfigurations
Prelude.Read, Int -> ListSlackWorkspaceConfigurations -> ShowS
[ListSlackWorkspaceConfigurations] -> ShowS
ListSlackWorkspaceConfigurations -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListSlackWorkspaceConfigurations] -> ShowS
$cshowList :: [ListSlackWorkspaceConfigurations] -> ShowS
show :: ListSlackWorkspaceConfigurations -> String
$cshow :: ListSlackWorkspaceConfigurations -> String
showsPrec :: Int -> ListSlackWorkspaceConfigurations -> ShowS
$cshowsPrec :: Int -> ListSlackWorkspaceConfigurations -> ShowS
Prelude.Show, forall x.
Rep ListSlackWorkspaceConfigurations x
-> ListSlackWorkspaceConfigurations
forall x.
ListSlackWorkspaceConfigurations
-> Rep ListSlackWorkspaceConfigurations x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListSlackWorkspaceConfigurations x
-> ListSlackWorkspaceConfigurations
$cfrom :: forall x.
ListSlackWorkspaceConfigurations
-> Rep ListSlackWorkspaceConfigurations x
Prelude.Generic)

-- |
-- Create a value of 'ListSlackWorkspaceConfigurations' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'nextToken', 'listSlackWorkspaceConfigurations_nextToken' - If the results of a search are large, the API only returns a portion of
-- the results and includes a @nextToken@ pagination token in the response.
-- To retrieve the next batch of results, reissue the search request and
-- include the returned token. When the API returns the last set of
-- results, the response doesn\'t include a pagination token value.
newListSlackWorkspaceConfigurations ::
  ListSlackWorkspaceConfigurations
newListSlackWorkspaceConfigurations :: ListSlackWorkspaceConfigurations
newListSlackWorkspaceConfigurations =
  ListSlackWorkspaceConfigurations'
    { $sel:nextToken:ListSlackWorkspaceConfigurations' :: Maybe Text
nextToken =
        forall a. Maybe a
Prelude.Nothing
    }

-- | If the results of a search are large, the API only returns a portion of
-- the results and includes a @nextToken@ pagination token in the response.
-- To retrieve the next batch of results, reissue the search request and
-- include the returned token. When the API returns the last set of
-- results, the response doesn\'t include a pagination token value.
listSlackWorkspaceConfigurations_nextToken :: Lens.Lens' ListSlackWorkspaceConfigurations (Prelude.Maybe Prelude.Text)
listSlackWorkspaceConfigurations_nextToken :: Lens' ListSlackWorkspaceConfigurations (Maybe Text)
listSlackWorkspaceConfigurations_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListSlackWorkspaceConfigurations' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListSlackWorkspaceConfigurations' :: ListSlackWorkspaceConfigurations -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListSlackWorkspaceConfigurations
s@ListSlackWorkspaceConfigurations' {} Maybe Text
a -> ListSlackWorkspaceConfigurations
s {$sel:nextToken:ListSlackWorkspaceConfigurations' :: Maybe Text
nextToken = Maybe Text
a} :: ListSlackWorkspaceConfigurations)

instance
  Core.AWSRequest
    ListSlackWorkspaceConfigurations
  where
  type
    AWSResponse ListSlackWorkspaceConfigurations =
      ListSlackWorkspaceConfigurationsResponse
  request :: (Service -> Service)
-> ListSlackWorkspaceConfigurations
-> Request ListSlackWorkspaceConfigurations
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 ListSlackWorkspaceConfigurations
-> ClientResponse ClientBody
-> m (Either
        Error
        (ClientResponse (AWSResponse ListSlackWorkspaceConfigurations)))
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 [SlackWorkspaceConfiguration]
-> Int
-> ListSlackWorkspaceConfigurationsResponse
ListSlackWorkspaceConfigurationsResponse'
            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
"nextToken")
            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
"slackWorkspaceConfigurations"
                            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.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
      )

instance
  Prelude.Hashable
    ListSlackWorkspaceConfigurations
  where
  hashWithSalt :: Int -> ListSlackWorkspaceConfigurations -> Int
hashWithSalt
    Int
_salt
    ListSlackWorkspaceConfigurations' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListSlackWorkspaceConfigurations' :: ListSlackWorkspaceConfigurations -> Maybe Text
..} =
      Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken

instance
  Prelude.NFData
    ListSlackWorkspaceConfigurations
  where
  rnf :: ListSlackWorkspaceConfigurations -> ()
rnf ListSlackWorkspaceConfigurations' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListSlackWorkspaceConfigurations' :: ListSlackWorkspaceConfigurations -> Maybe Text
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken

instance
  Data.ToHeaders
    ListSlackWorkspaceConfigurations
  where
  toHeaders :: ListSlackWorkspaceConfigurations -> ResponseHeaders
toHeaders =
    forall a b. a -> b -> a
Prelude.const
      ( forall a. Monoid a => [a] -> a
Prelude.mconcat
          [ HeaderName
"Content-Type"
              forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
                          Prelude.ByteString
                      )
          ]
      )

instance Data.ToJSON ListSlackWorkspaceConfigurations where
  toJSON :: ListSlackWorkspaceConfigurations -> Value
toJSON ListSlackWorkspaceConfigurations' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListSlackWorkspaceConfigurations' :: ListSlackWorkspaceConfigurations -> Maybe Text
..} =
    [Pair] -> Value
Data.object
      ( forall a. [Maybe a] -> [a]
Prelude.catMaybes
          [(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]
      )

instance Data.ToPath ListSlackWorkspaceConfigurations where
  toPath :: ListSlackWorkspaceConfigurations -> ByteString
toPath =
    forall a b. a -> b -> a
Prelude.const
      ByteString
"/control/list-slack-workspace-configurations"

instance
  Data.ToQuery
    ListSlackWorkspaceConfigurations
  where
  toQuery :: ListSlackWorkspaceConfigurations -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty

-- | /See:/ 'newListSlackWorkspaceConfigurationsResponse' smart constructor.
data ListSlackWorkspaceConfigurationsResponse = ListSlackWorkspaceConfigurationsResponse'
  { -- | The point where pagination should resume when the response returns only
    -- partial results.
    ListSlackWorkspaceConfigurationsResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
    -- | The configurations for a Slack workspace.
    ListSlackWorkspaceConfigurationsResponse
-> Maybe [SlackWorkspaceConfiguration]
slackWorkspaceConfigurations :: Prelude.Maybe [SlackWorkspaceConfiguration],
    -- | The response's http status code.
    ListSlackWorkspaceConfigurationsResponse -> Int
httpStatus :: Prelude.Int
  }
  deriving (ListSlackWorkspaceConfigurationsResponse
-> ListSlackWorkspaceConfigurationsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListSlackWorkspaceConfigurationsResponse
-> ListSlackWorkspaceConfigurationsResponse -> Bool
$c/= :: ListSlackWorkspaceConfigurationsResponse
-> ListSlackWorkspaceConfigurationsResponse -> Bool
== :: ListSlackWorkspaceConfigurationsResponse
-> ListSlackWorkspaceConfigurationsResponse -> Bool
$c== :: ListSlackWorkspaceConfigurationsResponse
-> ListSlackWorkspaceConfigurationsResponse -> Bool
Prelude.Eq, ReadPrec [ListSlackWorkspaceConfigurationsResponse]
ReadPrec ListSlackWorkspaceConfigurationsResponse
Int -> ReadS ListSlackWorkspaceConfigurationsResponse
ReadS [ListSlackWorkspaceConfigurationsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListSlackWorkspaceConfigurationsResponse]
$creadListPrec :: ReadPrec [ListSlackWorkspaceConfigurationsResponse]
readPrec :: ReadPrec ListSlackWorkspaceConfigurationsResponse
$creadPrec :: ReadPrec ListSlackWorkspaceConfigurationsResponse
readList :: ReadS [ListSlackWorkspaceConfigurationsResponse]
$creadList :: ReadS [ListSlackWorkspaceConfigurationsResponse]
readsPrec :: Int -> ReadS ListSlackWorkspaceConfigurationsResponse
$creadsPrec :: Int -> ReadS ListSlackWorkspaceConfigurationsResponse
Prelude.Read, Int -> ListSlackWorkspaceConfigurationsResponse -> ShowS
[ListSlackWorkspaceConfigurationsResponse] -> ShowS
ListSlackWorkspaceConfigurationsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListSlackWorkspaceConfigurationsResponse] -> ShowS
$cshowList :: [ListSlackWorkspaceConfigurationsResponse] -> ShowS
show :: ListSlackWorkspaceConfigurationsResponse -> String
$cshow :: ListSlackWorkspaceConfigurationsResponse -> String
showsPrec :: Int -> ListSlackWorkspaceConfigurationsResponse -> ShowS
$cshowsPrec :: Int -> ListSlackWorkspaceConfigurationsResponse -> ShowS
Prelude.Show, forall x.
Rep ListSlackWorkspaceConfigurationsResponse x
-> ListSlackWorkspaceConfigurationsResponse
forall x.
ListSlackWorkspaceConfigurationsResponse
-> Rep ListSlackWorkspaceConfigurationsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListSlackWorkspaceConfigurationsResponse x
-> ListSlackWorkspaceConfigurationsResponse
$cfrom :: forall x.
ListSlackWorkspaceConfigurationsResponse
-> Rep ListSlackWorkspaceConfigurationsResponse x
Prelude.Generic)

-- |
-- Create a value of 'ListSlackWorkspaceConfigurationsResponse' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'nextToken', 'listSlackWorkspaceConfigurationsResponse_nextToken' - The point where pagination should resume when the response returns only
-- partial results.
--
-- 'slackWorkspaceConfigurations', 'listSlackWorkspaceConfigurationsResponse_slackWorkspaceConfigurations' - The configurations for a Slack workspace.
--
-- 'httpStatus', 'listSlackWorkspaceConfigurationsResponse_httpStatus' - The response's http status code.
newListSlackWorkspaceConfigurationsResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  ListSlackWorkspaceConfigurationsResponse
newListSlackWorkspaceConfigurationsResponse :: Int -> ListSlackWorkspaceConfigurationsResponse
newListSlackWorkspaceConfigurationsResponse
  Int
pHttpStatus_ =
    ListSlackWorkspaceConfigurationsResponse'
      { $sel:nextToken:ListSlackWorkspaceConfigurationsResponse' :: Maybe Text
nextToken =
          forall a. Maybe a
Prelude.Nothing,
        $sel:slackWorkspaceConfigurations:ListSlackWorkspaceConfigurationsResponse' :: Maybe [SlackWorkspaceConfiguration]
slackWorkspaceConfigurations =
          forall a. Maybe a
Prelude.Nothing,
        $sel:httpStatus:ListSlackWorkspaceConfigurationsResponse' :: Int
httpStatus = Int
pHttpStatus_
      }

-- | The point where pagination should resume when the response returns only
-- partial results.
listSlackWorkspaceConfigurationsResponse_nextToken :: Lens.Lens' ListSlackWorkspaceConfigurationsResponse (Prelude.Maybe Prelude.Text)
listSlackWorkspaceConfigurationsResponse_nextToken :: Lens' ListSlackWorkspaceConfigurationsResponse (Maybe Text)
listSlackWorkspaceConfigurationsResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListSlackWorkspaceConfigurationsResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListSlackWorkspaceConfigurationsResponse' :: ListSlackWorkspaceConfigurationsResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListSlackWorkspaceConfigurationsResponse
s@ListSlackWorkspaceConfigurationsResponse' {} Maybe Text
a -> ListSlackWorkspaceConfigurationsResponse
s {$sel:nextToken:ListSlackWorkspaceConfigurationsResponse' :: Maybe Text
nextToken = Maybe Text
a} :: ListSlackWorkspaceConfigurationsResponse)

-- | The configurations for a Slack workspace.
listSlackWorkspaceConfigurationsResponse_slackWorkspaceConfigurations :: Lens.Lens' ListSlackWorkspaceConfigurationsResponse (Prelude.Maybe [SlackWorkspaceConfiguration])
listSlackWorkspaceConfigurationsResponse_slackWorkspaceConfigurations :: Lens'
  ListSlackWorkspaceConfigurationsResponse
  (Maybe [SlackWorkspaceConfiguration])
listSlackWorkspaceConfigurationsResponse_slackWorkspaceConfigurations = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListSlackWorkspaceConfigurationsResponse' {Maybe [SlackWorkspaceConfiguration]
slackWorkspaceConfigurations :: Maybe [SlackWorkspaceConfiguration]
$sel:slackWorkspaceConfigurations:ListSlackWorkspaceConfigurationsResponse' :: ListSlackWorkspaceConfigurationsResponse
-> Maybe [SlackWorkspaceConfiguration]
slackWorkspaceConfigurations} -> Maybe [SlackWorkspaceConfiguration]
slackWorkspaceConfigurations) (\s :: ListSlackWorkspaceConfigurationsResponse
s@ListSlackWorkspaceConfigurationsResponse' {} Maybe [SlackWorkspaceConfiguration]
a -> ListSlackWorkspaceConfigurationsResponse
s {$sel:slackWorkspaceConfigurations:ListSlackWorkspaceConfigurationsResponse' :: Maybe [SlackWorkspaceConfiguration]
slackWorkspaceConfigurations = Maybe [SlackWorkspaceConfiguration]
a} :: ListSlackWorkspaceConfigurationsResponse) 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

-- | The response's http status code.
listSlackWorkspaceConfigurationsResponse_httpStatus :: Lens.Lens' ListSlackWorkspaceConfigurationsResponse Prelude.Int
listSlackWorkspaceConfigurationsResponse_httpStatus :: Lens' ListSlackWorkspaceConfigurationsResponse Int
listSlackWorkspaceConfigurationsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListSlackWorkspaceConfigurationsResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListSlackWorkspaceConfigurationsResponse' :: ListSlackWorkspaceConfigurationsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListSlackWorkspaceConfigurationsResponse
s@ListSlackWorkspaceConfigurationsResponse' {} Int
a -> ListSlackWorkspaceConfigurationsResponse
s {$sel:httpStatus:ListSlackWorkspaceConfigurationsResponse' :: Int
httpStatus = Int
a} :: ListSlackWorkspaceConfigurationsResponse)

instance
  Prelude.NFData
    ListSlackWorkspaceConfigurationsResponse
  where
  rnf :: ListSlackWorkspaceConfigurationsResponse -> ()
rnf ListSlackWorkspaceConfigurationsResponse' {Int
Maybe [SlackWorkspaceConfiguration]
Maybe Text
httpStatus :: Int
slackWorkspaceConfigurations :: Maybe [SlackWorkspaceConfiguration]
nextToken :: Maybe Text
$sel:httpStatus:ListSlackWorkspaceConfigurationsResponse' :: ListSlackWorkspaceConfigurationsResponse -> Int
$sel:slackWorkspaceConfigurations:ListSlackWorkspaceConfigurationsResponse' :: ListSlackWorkspaceConfigurationsResponse
-> Maybe [SlackWorkspaceConfiguration]
$sel:nextToken:ListSlackWorkspaceConfigurationsResponse' :: ListSlackWorkspaceConfigurationsResponse -> Maybe Text
..} =
    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 [SlackWorkspaceConfiguration]
slackWorkspaceConfigurations
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus