{-# 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.MediaLive.ListInputDeviceTransfers
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- List input devices that are currently being transferred. List input
-- devices that you are transferring from your AWS account or input devices
-- that another AWS account is transferring to you.
--
-- This operation returns paginated results.
module Amazonka.MediaLive.ListInputDeviceTransfers
  ( -- * Creating a Request
    ListInputDeviceTransfers (..),
    newListInputDeviceTransfers,

    -- * Request Lenses
    listInputDeviceTransfers_maxResults,
    listInputDeviceTransfers_nextToken,
    listInputDeviceTransfers_transferType,

    -- * Destructuring the Response
    ListInputDeviceTransfersResponse (..),
    newListInputDeviceTransfersResponse,

    -- * Response Lenses
    listInputDeviceTransfersResponse_inputDeviceTransfers,
    listInputDeviceTransfersResponse_nextToken,
    listInputDeviceTransfersResponse_httpStatus,
  )
where

import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.MediaLive.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response

-- | Placeholder documentation for ListInputDeviceTransfersRequest
--
-- /See:/ 'newListInputDeviceTransfers' smart constructor.
data ListInputDeviceTransfers = ListInputDeviceTransfers'
  { ListInputDeviceTransfers -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
    ListInputDeviceTransfers -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
    ListInputDeviceTransfers -> Text
transferType :: Prelude.Text
  }
  deriving (ListInputDeviceTransfers -> ListInputDeviceTransfers -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListInputDeviceTransfers -> ListInputDeviceTransfers -> Bool
$c/= :: ListInputDeviceTransfers -> ListInputDeviceTransfers -> Bool
== :: ListInputDeviceTransfers -> ListInputDeviceTransfers -> Bool
$c== :: ListInputDeviceTransfers -> ListInputDeviceTransfers -> Bool
Prelude.Eq, ReadPrec [ListInputDeviceTransfers]
ReadPrec ListInputDeviceTransfers
Int -> ReadS ListInputDeviceTransfers
ReadS [ListInputDeviceTransfers]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListInputDeviceTransfers]
$creadListPrec :: ReadPrec [ListInputDeviceTransfers]
readPrec :: ReadPrec ListInputDeviceTransfers
$creadPrec :: ReadPrec ListInputDeviceTransfers
readList :: ReadS [ListInputDeviceTransfers]
$creadList :: ReadS [ListInputDeviceTransfers]
readsPrec :: Int -> ReadS ListInputDeviceTransfers
$creadsPrec :: Int -> ReadS ListInputDeviceTransfers
Prelude.Read, Int -> ListInputDeviceTransfers -> ShowS
[ListInputDeviceTransfers] -> ShowS
ListInputDeviceTransfers -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListInputDeviceTransfers] -> ShowS
$cshowList :: [ListInputDeviceTransfers] -> ShowS
show :: ListInputDeviceTransfers -> String
$cshow :: ListInputDeviceTransfers -> String
showsPrec :: Int -> ListInputDeviceTransfers -> ShowS
$cshowsPrec :: Int -> ListInputDeviceTransfers -> ShowS
Prelude.Show, forall x.
Rep ListInputDeviceTransfers x -> ListInputDeviceTransfers
forall x.
ListInputDeviceTransfers -> Rep ListInputDeviceTransfers x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListInputDeviceTransfers x -> ListInputDeviceTransfers
$cfrom :: forall x.
ListInputDeviceTransfers -> Rep ListInputDeviceTransfers x
Prelude.Generic)

-- |
-- Create a value of 'ListInputDeviceTransfers' 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:
--
-- 'maxResults', 'listInputDeviceTransfers_maxResults' - Undocumented member.
--
-- 'nextToken', 'listInputDeviceTransfers_nextToken' - Undocumented member.
--
-- 'transferType', 'listInputDeviceTransfers_transferType' - Undocumented member.
newListInputDeviceTransfers ::
  -- | 'transferType'
  Prelude.Text ->
  ListInputDeviceTransfers
newListInputDeviceTransfers :: Text -> ListInputDeviceTransfers
newListInputDeviceTransfers Text
pTransferType_ =
  ListInputDeviceTransfers'
    { $sel:maxResults:ListInputDeviceTransfers' :: Maybe Natural
maxResults =
        forall a. Maybe a
Prelude.Nothing,
      $sel:nextToken:ListInputDeviceTransfers' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
      $sel:transferType:ListInputDeviceTransfers' :: Text
transferType = Text
pTransferType_
    }

-- | Undocumented member.
listInputDeviceTransfers_maxResults :: Lens.Lens' ListInputDeviceTransfers (Prelude.Maybe Prelude.Natural)
listInputDeviceTransfers_maxResults :: Lens' ListInputDeviceTransfers (Maybe Natural)
listInputDeviceTransfers_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListInputDeviceTransfers' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:ListInputDeviceTransfers' :: ListInputDeviceTransfers -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: ListInputDeviceTransfers
s@ListInputDeviceTransfers' {} Maybe Natural
a -> ListInputDeviceTransfers
s {$sel:maxResults:ListInputDeviceTransfers' :: Maybe Natural
maxResults = Maybe Natural
a} :: ListInputDeviceTransfers)

-- | Undocumented member.
listInputDeviceTransfers_nextToken :: Lens.Lens' ListInputDeviceTransfers (Prelude.Maybe Prelude.Text)
listInputDeviceTransfers_nextToken :: Lens' ListInputDeviceTransfers (Maybe Text)
listInputDeviceTransfers_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListInputDeviceTransfers' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListInputDeviceTransfers' :: ListInputDeviceTransfers -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListInputDeviceTransfers
s@ListInputDeviceTransfers' {} Maybe Text
a -> ListInputDeviceTransfers
s {$sel:nextToken:ListInputDeviceTransfers' :: Maybe Text
nextToken = Maybe Text
a} :: ListInputDeviceTransfers)

-- | Undocumented member.
listInputDeviceTransfers_transferType :: Lens.Lens' ListInputDeviceTransfers Prelude.Text
listInputDeviceTransfers_transferType :: Lens' ListInputDeviceTransfers Text
listInputDeviceTransfers_transferType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListInputDeviceTransfers' {Text
transferType :: Text
$sel:transferType:ListInputDeviceTransfers' :: ListInputDeviceTransfers -> Text
transferType} -> Text
transferType) (\s :: ListInputDeviceTransfers
s@ListInputDeviceTransfers' {} Text
a -> ListInputDeviceTransfers
s {$sel:transferType:ListInputDeviceTransfers' :: Text
transferType = Text
a} :: ListInputDeviceTransfers)

instance Core.AWSPager ListInputDeviceTransfers where
  page :: ListInputDeviceTransfers
-> AWSResponse ListInputDeviceTransfers
-> Maybe ListInputDeviceTransfers
page ListInputDeviceTransfers
rq AWSResponse ListInputDeviceTransfers
rs
    | forall a. AWSTruncated a => a -> Bool
Core.stop
        ( AWSResponse ListInputDeviceTransfers
rs
            forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListInputDeviceTransfersResponse (Maybe Text)
listInputDeviceTransfersResponse_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 ListInputDeviceTransfers
rs
            forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens'
  ListInputDeviceTransfersResponse
  (Maybe [TransferringInputDeviceSummary])
listInputDeviceTransfersResponse_inputDeviceTransfers
            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.$ ListInputDeviceTransfers
rq
          forall a b. a -> (a -> b) -> b
Prelude.& Lens' ListInputDeviceTransfers (Maybe Text)
listInputDeviceTransfers_nextToken
          forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse ListInputDeviceTransfers
rs
          forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListInputDeviceTransfersResponse (Maybe Text)
listInputDeviceTransfersResponse_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 ListInputDeviceTransfers where
  type
    AWSResponse ListInputDeviceTransfers =
      ListInputDeviceTransfersResponse
  request :: (Service -> Service)
-> ListInputDeviceTransfers -> Request ListInputDeviceTransfers
request Service -> Service
overrides =
    forall a. ToRequest a => Service -> a -> Request a
Request.get (Service -> Service
overrides Service
defaultService)
  response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy ListInputDeviceTransfers
-> ClientResponse ClientBody
-> m (Either
        Error (ClientResponse (AWSResponse ListInputDeviceTransfers)))
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 [TransferringInputDeviceSummary]
-> Maybe Text -> Int -> ListInputDeviceTransfersResponse
ListInputDeviceTransfersResponse'
            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
"inputDeviceTransfers"
                            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 ListInputDeviceTransfers where
  hashWithSalt :: Int -> ListInputDeviceTransfers -> Int
hashWithSalt Int
_salt ListInputDeviceTransfers' {Maybe Natural
Maybe Text
Text
transferType :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:transferType:ListInputDeviceTransfers' :: ListInputDeviceTransfers -> Text
$sel:nextToken:ListInputDeviceTransfers' :: ListInputDeviceTransfers -> Maybe Text
$sel:maxResults:ListInputDeviceTransfers' :: ListInputDeviceTransfers -> 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` Text
transferType

instance Prelude.NFData ListInputDeviceTransfers where
  rnf :: ListInputDeviceTransfers -> ()
rnf ListInputDeviceTransfers' {Maybe Natural
Maybe Text
Text
transferType :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:transferType:ListInputDeviceTransfers' :: ListInputDeviceTransfers -> Text
$sel:nextToken:ListInputDeviceTransfers' :: ListInputDeviceTransfers -> Maybe Text
$sel:maxResults:ListInputDeviceTransfers' :: ListInputDeviceTransfers -> 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 Text
transferType

instance Data.ToHeaders ListInputDeviceTransfers where
  toHeaders :: ListInputDeviceTransfers -> 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.ToPath ListInputDeviceTransfers where
  toPath :: ListInputDeviceTransfers -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/prod/inputDeviceTransfers"

instance Data.ToQuery ListInputDeviceTransfers where
  toQuery :: ListInputDeviceTransfers -> QueryString
toQuery ListInputDeviceTransfers' {Maybe Natural
Maybe Text
Text
transferType :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:transferType:ListInputDeviceTransfers' :: ListInputDeviceTransfers -> Text
$sel:nextToken:ListInputDeviceTransfers' :: ListInputDeviceTransfers -> Maybe Text
$sel:maxResults:ListInputDeviceTransfers' :: ListInputDeviceTransfers -> Maybe Natural
..} =
    forall a. Monoid a => [a] -> a
Prelude.mconcat
      [ ByteString
"maxResults" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Natural
maxResults,
        ByteString
"nextToken" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
nextToken,
        ByteString
"transferType" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
transferType
      ]

-- | Placeholder documentation for ListInputDeviceTransfersResponse
--
-- /See:/ 'newListInputDeviceTransfersResponse' smart constructor.
data ListInputDeviceTransfersResponse = ListInputDeviceTransfersResponse'
  { -- | The list of devices that you are transferring or are being transferred
    -- to you.
    ListInputDeviceTransfersResponse
-> Maybe [TransferringInputDeviceSummary]
inputDeviceTransfers :: Prelude.Maybe [TransferringInputDeviceSummary],
    -- | A token to get additional list results.
    ListInputDeviceTransfersResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
    -- | The response's http status code.
    ListInputDeviceTransfersResponse -> Int
httpStatus :: Prelude.Int
  }
  deriving (ListInputDeviceTransfersResponse
-> ListInputDeviceTransfersResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListInputDeviceTransfersResponse
-> ListInputDeviceTransfersResponse -> Bool
$c/= :: ListInputDeviceTransfersResponse
-> ListInputDeviceTransfersResponse -> Bool
== :: ListInputDeviceTransfersResponse
-> ListInputDeviceTransfersResponse -> Bool
$c== :: ListInputDeviceTransfersResponse
-> ListInputDeviceTransfersResponse -> Bool
Prelude.Eq, ReadPrec [ListInputDeviceTransfersResponse]
ReadPrec ListInputDeviceTransfersResponse
Int -> ReadS ListInputDeviceTransfersResponse
ReadS [ListInputDeviceTransfersResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListInputDeviceTransfersResponse]
$creadListPrec :: ReadPrec [ListInputDeviceTransfersResponse]
readPrec :: ReadPrec ListInputDeviceTransfersResponse
$creadPrec :: ReadPrec ListInputDeviceTransfersResponse
readList :: ReadS [ListInputDeviceTransfersResponse]
$creadList :: ReadS [ListInputDeviceTransfersResponse]
readsPrec :: Int -> ReadS ListInputDeviceTransfersResponse
$creadsPrec :: Int -> ReadS ListInputDeviceTransfersResponse
Prelude.Read, Int -> ListInputDeviceTransfersResponse -> ShowS
[ListInputDeviceTransfersResponse] -> ShowS
ListInputDeviceTransfersResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListInputDeviceTransfersResponse] -> ShowS
$cshowList :: [ListInputDeviceTransfersResponse] -> ShowS
show :: ListInputDeviceTransfersResponse -> String
$cshow :: ListInputDeviceTransfersResponse -> String
showsPrec :: Int -> ListInputDeviceTransfersResponse -> ShowS
$cshowsPrec :: Int -> ListInputDeviceTransfersResponse -> ShowS
Prelude.Show, forall x.
Rep ListInputDeviceTransfersResponse x
-> ListInputDeviceTransfersResponse
forall x.
ListInputDeviceTransfersResponse
-> Rep ListInputDeviceTransfersResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListInputDeviceTransfersResponse x
-> ListInputDeviceTransfersResponse
$cfrom :: forall x.
ListInputDeviceTransfersResponse
-> Rep ListInputDeviceTransfersResponse x
Prelude.Generic)

-- |
-- Create a value of 'ListInputDeviceTransfersResponse' 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:
--
-- 'inputDeviceTransfers', 'listInputDeviceTransfersResponse_inputDeviceTransfers' - The list of devices that you are transferring or are being transferred
-- to you.
--
-- 'nextToken', 'listInputDeviceTransfersResponse_nextToken' - A token to get additional list results.
--
-- 'httpStatus', 'listInputDeviceTransfersResponse_httpStatus' - The response's http status code.
newListInputDeviceTransfersResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  ListInputDeviceTransfersResponse
newListInputDeviceTransfersResponse :: Int -> ListInputDeviceTransfersResponse
newListInputDeviceTransfersResponse Int
pHttpStatus_ =
  ListInputDeviceTransfersResponse'
    { $sel:inputDeviceTransfers:ListInputDeviceTransfersResponse' :: Maybe [TransferringInputDeviceSummary]
inputDeviceTransfers =
        forall a. Maybe a
Prelude.Nothing,
      $sel:nextToken:ListInputDeviceTransfersResponse' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
      $sel:httpStatus:ListInputDeviceTransfersResponse' :: Int
httpStatus = Int
pHttpStatus_
    }

-- | The list of devices that you are transferring or are being transferred
-- to you.
listInputDeviceTransfersResponse_inputDeviceTransfers :: Lens.Lens' ListInputDeviceTransfersResponse (Prelude.Maybe [TransferringInputDeviceSummary])
listInputDeviceTransfersResponse_inputDeviceTransfers :: Lens'
  ListInputDeviceTransfersResponse
  (Maybe [TransferringInputDeviceSummary])
listInputDeviceTransfersResponse_inputDeviceTransfers = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListInputDeviceTransfersResponse' {Maybe [TransferringInputDeviceSummary]
inputDeviceTransfers :: Maybe [TransferringInputDeviceSummary]
$sel:inputDeviceTransfers:ListInputDeviceTransfersResponse' :: ListInputDeviceTransfersResponse
-> Maybe [TransferringInputDeviceSummary]
inputDeviceTransfers} -> Maybe [TransferringInputDeviceSummary]
inputDeviceTransfers) (\s :: ListInputDeviceTransfersResponse
s@ListInputDeviceTransfersResponse' {} Maybe [TransferringInputDeviceSummary]
a -> ListInputDeviceTransfersResponse
s {$sel:inputDeviceTransfers:ListInputDeviceTransfersResponse' :: Maybe [TransferringInputDeviceSummary]
inputDeviceTransfers = Maybe [TransferringInputDeviceSummary]
a} :: ListInputDeviceTransfersResponse) 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

-- | A token to get additional list results.
listInputDeviceTransfersResponse_nextToken :: Lens.Lens' ListInputDeviceTransfersResponse (Prelude.Maybe Prelude.Text)
listInputDeviceTransfersResponse_nextToken :: Lens' ListInputDeviceTransfersResponse (Maybe Text)
listInputDeviceTransfersResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListInputDeviceTransfersResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListInputDeviceTransfersResponse' :: ListInputDeviceTransfersResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListInputDeviceTransfersResponse
s@ListInputDeviceTransfersResponse' {} Maybe Text
a -> ListInputDeviceTransfersResponse
s {$sel:nextToken:ListInputDeviceTransfersResponse' :: Maybe Text
nextToken = Maybe Text
a} :: ListInputDeviceTransfersResponse)

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

instance
  Prelude.NFData
    ListInputDeviceTransfersResponse
  where
  rnf :: ListInputDeviceTransfersResponse -> ()
rnf ListInputDeviceTransfersResponse' {Int
Maybe [TransferringInputDeviceSummary]
Maybe Text
httpStatus :: Int
nextToken :: Maybe Text
inputDeviceTransfers :: Maybe [TransferringInputDeviceSummary]
$sel:httpStatus:ListInputDeviceTransfersResponse' :: ListInputDeviceTransfersResponse -> Int
$sel:nextToken:ListInputDeviceTransfersResponse' :: ListInputDeviceTransfersResponse -> Maybe Text
$sel:inputDeviceTransfers:ListInputDeviceTransfersResponse' :: ListInputDeviceTransfersResponse
-> Maybe [TransferringInputDeviceSummary]
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe [TransferringInputDeviceSummary]
inputDeviceTransfers
      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