{-# 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.IoTRoboRunner.GetWorker
(
GetWorker (..),
newGetWorker,
getWorker_id,
GetWorkerResponse (..),
newGetWorkerResponse,
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
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)
newGetWorker ::
Prelude.Text ->
GetWorker
newGetWorker :: Text -> GetWorker
newGetWorker Text
pId_ = GetWorker' {$sel:id:GetWorker' :: Text
id = Text
pId_}
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]
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,
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)
newGetWorkerResponse ::
Prelude.Int ->
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
Prelude.UTCTime ->
Prelude.UTCTime ->
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_
}
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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
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
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