{-# 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.IoTRoboRunner.GetWorker
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Grants permission to get a worker
module Amazonka.IoTRoboRunner.GetWorker
  ( -- * Creating a Request
    GetWorker (..),
    newGetWorker,

    -- * Request Lenses
    getWorker_id,

    -- * Destructuring the Response
    GetWorkerResponse (..),
    newGetWorkerResponse,

    -- * Response Lenses
    getWorkerResponse_additionalFixedProperties,
    getWorkerResponse_additionalTransientProperties,
    getWorkerResponse_orientation,
    getWorkerResponse_position,
    getWorkerResponse_vendorProperties,
    getWorkerResponse_httpStatus,
    getWorkerResponse_arn,
    getWorkerResponse_id,
    getWorkerResponse_fleet,
    getWorkerResponse_site,
    getWorkerResponse_createdAt,
    getWorkerResponse_updatedAt,
    getWorkerResponse_name,
  )
where

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

-- | /See:/ 'newGetWorker' smart constructor.
data GetWorker = GetWorker'
  { GetWorker -> Text
id :: Prelude.Text
  }
  deriving (GetWorker -> GetWorker -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetWorker -> GetWorker -> Bool
$c/= :: GetWorker -> GetWorker -> Bool
== :: GetWorker -> GetWorker -> Bool
$c== :: GetWorker -> GetWorker -> Bool
Prelude.Eq, ReadPrec [GetWorker]
ReadPrec GetWorker
Int -> ReadS GetWorker
ReadS [GetWorker]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetWorker]
$creadListPrec :: ReadPrec [GetWorker]
readPrec :: ReadPrec GetWorker
$creadPrec :: ReadPrec GetWorker
readList :: ReadS [GetWorker]
$creadList :: ReadS [GetWorker]
readsPrec :: Int -> ReadS GetWorker
$creadsPrec :: Int -> ReadS GetWorker
Prelude.Read, Int -> GetWorker -> ShowS
[GetWorker] -> ShowS
GetWorker -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetWorker] -> ShowS
$cshowList :: [GetWorker] -> ShowS
show :: GetWorker -> String
$cshow :: GetWorker -> String
showsPrec :: Int -> GetWorker -> ShowS
$cshowsPrec :: Int -> GetWorker -> ShowS
Prelude.Show, forall x. Rep GetWorker x -> GetWorker
forall x. GetWorker -> Rep GetWorker x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep GetWorker x -> GetWorker
$cfrom :: forall x. GetWorker -> Rep GetWorker x
Prelude.Generic)

-- |
-- Create a value of 'GetWorker' 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:
--
-- 'id', 'getWorker_id' - Undocumented member.
newGetWorker ::
  -- | 'id'
  Prelude.Text ->
  GetWorker
newGetWorker :: Text -> GetWorker
newGetWorker Text
pId_ = GetWorker' {$sel:id:GetWorker' :: Text
id = Text
pId_}

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

instance Core.AWSRequest GetWorker where
  type AWSResponse GetWorker = GetWorkerResponse
  request :: (Service -> Service) -> GetWorker -> Request GetWorker
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 GetWorker
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse GetWorker)))
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 Orientation
-> Maybe PositionCoordinates
-> Maybe VendorProperties
-> Int
-> Text
-> Text
-> Text
-> Text
-> POSIX
-> POSIX
-> Text
-> GetWorkerResponse
GetWorkerResponse'
            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
"additionalFixedProperties")
            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
"additionalTransientProperties")
            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
"orientation")
            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
"position")
            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
"vendorProperties")
            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))
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"arn")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"id")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"fleet")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"site")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"createdAt")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"updatedAt")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"name")
      )

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

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

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

instance Data.ToQuery GetWorker where
  toQuery :: GetWorker -> QueryString
toQuery GetWorker' {Text
id :: Text
$sel:id:GetWorker' :: GetWorker -> Text
..} =
    forall a. Monoid a => [a] -> a
Prelude.mconcat [ByteString
"id" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
id]

-- | /See:/ 'newGetWorkerResponse' smart constructor.
data GetWorkerResponse = GetWorkerResponse'
  { GetWorkerResponse -> Maybe Text
additionalFixedProperties :: Prelude.Maybe Prelude.Text,
    GetWorkerResponse -> Maybe Text
additionalTransientProperties :: Prelude.Maybe Prelude.Text,
    GetWorkerResponse -> Maybe Orientation
orientation :: Prelude.Maybe Orientation,
    GetWorkerResponse -> Maybe PositionCoordinates
position :: Prelude.Maybe PositionCoordinates,
    GetWorkerResponse -> Maybe VendorProperties
vendorProperties :: Prelude.Maybe VendorProperties,
    -- | The response's http status code.
    GetWorkerResponse -> Int
httpStatus :: Prelude.Int,
    GetWorkerResponse -> Text
arn :: Prelude.Text,
    GetWorkerResponse -> Text
id :: Prelude.Text,
    GetWorkerResponse -> Text
fleet :: Prelude.Text,
    GetWorkerResponse -> Text
site :: Prelude.Text,
    GetWorkerResponse -> POSIX
createdAt :: Data.POSIX,
    GetWorkerResponse -> POSIX
updatedAt :: Data.POSIX,
    GetWorkerResponse -> Text
name :: Prelude.Text
  }
  deriving (GetWorkerResponse -> GetWorkerResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetWorkerResponse -> GetWorkerResponse -> Bool
$c/= :: GetWorkerResponse -> GetWorkerResponse -> Bool
== :: GetWorkerResponse -> GetWorkerResponse -> Bool
$c== :: GetWorkerResponse -> GetWorkerResponse -> Bool
Prelude.Eq, ReadPrec [GetWorkerResponse]
ReadPrec GetWorkerResponse
Int -> ReadS GetWorkerResponse
ReadS [GetWorkerResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetWorkerResponse]
$creadListPrec :: ReadPrec [GetWorkerResponse]
readPrec :: ReadPrec GetWorkerResponse
$creadPrec :: ReadPrec GetWorkerResponse
readList :: ReadS [GetWorkerResponse]
$creadList :: ReadS [GetWorkerResponse]
readsPrec :: Int -> ReadS GetWorkerResponse
$creadsPrec :: Int -> ReadS GetWorkerResponse
Prelude.Read, Int -> GetWorkerResponse -> ShowS
[GetWorkerResponse] -> ShowS
GetWorkerResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetWorkerResponse] -> ShowS
$cshowList :: [GetWorkerResponse] -> ShowS
show :: GetWorkerResponse -> String
$cshow :: GetWorkerResponse -> String
showsPrec :: Int -> GetWorkerResponse -> ShowS
$cshowsPrec :: Int -> GetWorkerResponse -> ShowS
Prelude.Show, forall x. Rep GetWorkerResponse x -> GetWorkerResponse
forall x. GetWorkerResponse -> Rep GetWorkerResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep GetWorkerResponse x -> GetWorkerResponse
$cfrom :: forall x. GetWorkerResponse -> Rep GetWorkerResponse x
Prelude.Generic)

-- |
-- Create a value of 'GetWorkerResponse' 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:
--
-- 'additionalFixedProperties', 'getWorkerResponse_additionalFixedProperties' - Undocumented member.
--
-- 'additionalTransientProperties', 'getWorkerResponse_additionalTransientProperties' - Undocumented member.
--
-- 'orientation', 'getWorkerResponse_orientation' - Undocumented member.
--
-- 'position', 'getWorkerResponse_position' - Undocumented member.
--
-- 'vendorProperties', 'getWorkerResponse_vendorProperties' - Undocumented member.
--
-- 'httpStatus', 'getWorkerResponse_httpStatus' - The response's http status code.
--
-- 'arn', 'getWorkerResponse_arn' - Undocumented member.
--
-- 'id', 'getWorkerResponse_id' - Undocumented member.
--
-- 'fleet', 'getWorkerResponse_fleet' - Undocumented member.
--
-- 'site', 'getWorkerResponse_site' - Undocumented member.
--
-- 'createdAt', 'getWorkerResponse_createdAt' - Undocumented member.
--
-- 'updatedAt', 'getWorkerResponse_updatedAt' - Undocumented member.
--
-- 'name', 'getWorkerResponse_name' - Undocumented member.
newGetWorkerResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  -- | 'arn'
  Prelude.Text ->
  -- | 'id'
  Prelude.Text ->
  -- | 'fleet'
  Prelude.Text ->
  -- | 'site'
  Prelude.Text ->
  -- | 'createdAt'
  Prelude.UTCTime ->
  -- | 'updatedAt'
  Prelude.UTCTime ->
  -- | 'name'
  Prelude.Text ->
  GetWorkerResponse
newGetWorkerResponse :: Int
-> Text
-> Text
-> Text
-> Text
-> UTCTime
-> UTCTime
-> Text
-> GetWorkerResponse
newGetWorkerResponse
  Int
pHttpStatus_
  Text
pArn_
  Text
pId_
  Text
pFleet_
  Text
pSite_
  UTCTime
pCreatedAt_
  UTCTime
pUpdatedAt_
  Text
pName_ =
    GetWorkerResponse'
      { $sel:additionalFixedProperties:GetWorkerResponse' :: Maybe Text
additionalFixedProperties =
          forall a. Maybe a
Prelude.Nothing,
        $sel:additionalTransientProperties:GetWorkerResponse' :: Maybe Text
additionalTransientProperties = forall a. Maybe a
Prelude.Nothing,
        $sel:orientation:GetWorkerResponse' :: Maybe Orientation
orientation = forall a. Maybe a
Prelude.Nothing,
        $sel:position:GetWorkerResponse' :: Maybe PositionCoordinates
position = forall a. Maybe a
Prelude.Nothing,
        $sel:vendorProperties:GetWorkerResponse' :: Maybe VendorProperties
vendorProperties = forall a. Maybe a
Prelude.Nothing,
        $sel:httpStatus:GetWorkerResponse' :: Int
httpStatus = Int
pHttpStatus_,
        $sel:arn:GetWorkerResponse' :: Text
arn = Text
pArn_,
        $sel:id:GetWorkerResponse' :: Text
id = Text
pId_,
        $sel:fleet:GetWorkerResponse' :: Text
fleet = Text
pFleet_,
        $sel:site:GetWorkerResponse' :: Text
site = Text
pSite_,
        $sel:createdAt:GetWorkerResponse' :: POSIX
createdAt = forall (a :: Format). Iso' (Time a) UTCTime
Data._Time forall t b. AReview t b -> b -> t
Lens.# UTCTime
pCreatedAt_,
        $sel:updatedAt:GetWorkerResponse' :: POSIX
updatedAt = forall (a :: Format). Iso' (Time a) UTCTime
Data._Time forall t b. AReview t b -> b -> t
Lens.# UTCTime
pUpdatedAt_,
        $sel:name:GetWorkerResponse' :: Text
name = Text
pName_
      }

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

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

-- | Undocumented member.
getWorkerResponse_orientation :: Lens.Lens' GetWorkerResponse (Prelude.Maybe Orientation)
getWorkerResponse_orientation :: Lens' GetWorkerResponse (Maybe Orientation)
getWorkerResponse_orientation = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetWorkerResponse' {Maybe Orientation
orientation :: Maybe Orientation
$sel:orientation:GetWorkerResponse' :: GetWorkerResponse -> Maybe Orientation
orientation} -> Maybe Orientation
orientation) (\s :: GetWorkerResponse
s@GetWorkerResponse' {} Maybe Orientation
a -> GetWorkerResponse
s {$sel:orientation:GetWorkerResponse' :: Maybe Orientation
orientation = Maybe Orientation
a} :: GetWorkerResponse)

-- | Undocumented member.
getWorkerResponse_position :: Lens.Lens' GetWorkerResponse (Prelude.Maybe PositionCoordinates)
getWorkerResponse_position :: Lens' GetWorkerResponse (Maybe PositionCoordinates)
getWorkerResponse_position = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetWorkerResponse' {Maybe PositionCoordinates
position :: Maybe PositionCoordinates
$sel:position:GetWorkerResponse' :: GetWorkerResponse -> Maybe PositionCoordinates
position} -> Maybe PositionCoordinates
position) (\s :: GetWorkerResponse
s@GetWorkerResponse' {} Maybe PositionCoordinates
a -> GetWorkerResponse
s {$sel:position:GetWorkerResponse' :: Maybe PositionCoordinates
position = Maybe PositionCoordinates
a} :: GetWorkerResponse)

-- | Undocumented member.
getWorkerResponse_vendorProperties :: Lens.Lens' GetWorkerResponse (Prelude.Maybe VendorProperties)
getWorkerResponse_vendorProperties :: Lens' GetWorkerResponse (Maybe VendorProperties)
getWorkerResponse_vendorProperties = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetWorkerResponse' {Maybe VendorProperties
vendorProperties :: Maybe VendorProperties
$sel:vendorProperties:GetWorkerResponse' :: GetWorkerResponse -> Maybe VendorProperties
vendorProperties} -> Maybe VendorProperties
vendorProperties) (\s :: GetWorkerResponse
s@GetWorkerResponse' {} Maybe VendorProperties
a -> GetWorkerResponse
s {$sel:vendorProperties:GetWorkerResponse' :: Maybe VendorProperties
vendorProperties = Maybe VendorProperties
a} :: GetWorkerResponse)

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

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

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

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

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

-- | Undocumented member.
getWorkerResponse_createdAt :: Lens.Lens' GetWorkerResponse Prelude.UTCTime
getWorkerResponse_createdAt :: Lens' GetWorkerResponse UTCTime
getWorkerResponse_createdAt = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetWorkerResponse' {POSIX
createdAt :: POSIX
$sel:createdAt:GetWorkerResponse' :: GetWorkerResponse -> POSIX
createdAt} -> POSIX
createdAt) (\s :: GetWorkerResponse
s@GetWorkerResponse' {} POSIX
a -> GetWorkerResponse
s {$sel:createdAt:GetWorkerResponse' :: POSIX
createdAt = POSIX
a} :: GetWorkerResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (a :: Format). Iso' (Time a) UTCTime
Data._Time

-- | Undocumented member.
getWorkerResponse_updatedAt :: Lens.Lens' GetWorkerResponse Prelude.UTCTime
getWorkerResponse_updatedAt :: Lens' GetWorkerResponse UTCTime
getWorkerResponse_updatedAt = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetWorkerResponse' {POSIX
updatedAt :: POSIX
$sel:updatedAt:GetWorkerResponse' :: GetWorkerResponse -> POSIX
updatedAt} -> POSIX
updatedAt) (\s :: GetWorkerResponse
s@GetWorkerResponse' {} POSIX
a -> GetWorkerResponse
s {$sel:updatedAt:GetWorkerResponse' :: POSIX
updatedAt = POSIX
a} :: GetWorkerResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (a :: Format). Iso' (Time a) UTCTime
Data._Time

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

instance Prelude.NFData GetWorkerResponse where
  rnf :: GetWorkerResponse -> ()
rnf GetWorkerResponse' {Int
Maybe Text
Maybe Orientation
Maybe PositionCoordinates
Maybe VendorProperties
Text
POSIX
name :: Text
updatedAt :: POSIX
createdAt :: POSIX
site :: Text
fleet :: Text
id :: Text
arn :: Text
httpStatus :: Int
vendorProperties :: Maybe VendorProperties
position :: Maybe PositionCoordinates
orientation :: Maybe Orientation
additionalTransientProperties :: Maybe Text
additionalFixedProperties :: Maybe Text
$sel:name:GetWorkerResponse' :: GetWorkerResponse -> Text
$sel:updatedAt:GetWorkerResponse' :: GetWorkerResponse -> POSIX
$sel:createdAt:GetWorkerResponse' :: GetWorkerResponse -> POSIX
$sel:site:GetWorkerResponse' :: GetWorkerResponse -> Text
$sel:fleet:GetWorkerResponse' :: GetWorkerResponse -> Text
$sel:id:GetWorkerResponse' :: GetWorkerResponse -> Text
$sel:arn:GetWorkerResponse' :: GetWorkerResponse -> Text
$sel:httpStatus:GetWorkerResponse' :: GetWorkerResponse -> Int
$sel:vendorProperties:GetWorkerResponse' :: GetWorkerResponse -> Maybe VendorProperties
$sel:position:GetWorkerResponse' :: GetWorkerResponse -> Maybe PositionCoordinates
$sel:orientation:GetWorkerResponse' :: GetWorkerResponse -> Maybe Orientation
$sel:additionalTransientProperties:GetWorkerResponse' :: GetWorkerResponse -> Maybe Text
$sel:additionalFixedProperties:GetWorkerResponse' :: GetWorkerResponse -> Maybe Text
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
additionalFixedProperties
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
additionalTransientProperties
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Orientation
orientation
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe PositionCoordinates
position
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe VendorProperties
vendorProperties
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
arn
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
id
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
fleet
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
site
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf POSIX
createdAt
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf POSIX
updatedAt
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
name