{-# 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.IoTWireless.GetResourcePosition
(
GetResourcePosition (..),
newGetResourcePosition,
getResourcePosition_resourceIdentifier,
getResourcePosition_resourceType,
GetResourcePositionResponse (..),
newGetResourcePositionResponse,
getResourcePositionResponse_geoJsonPayload,
getResourcePositionResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.IoTWireless.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data GetResourcePosition = GetResourcePosition'
{
GetResourcePosition -> Text
resourceIdentifier :: Prelude.Text,
GetResourcePosition -> PositionResourceType
resourceType :: PositionResourceType
}
deriving (GetResourcePosition -> GetResourcePosition -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetResourcePosition -> GetResourcePosition -> Bool
$c/= :: GetResourcePosition -> GetResourcePosition -> Bool
== :: GetResourcePosition -> GetResourcePosition -> Bool
$c== :: GetResourcePosition -> GetResourcePosition -> Bool
Prelude.Eq, ReadPrec [GetResourcePosition]
ReadPrec GetResourcePosition
Int -> ReadS GetResourcePosition
ReadS [GetResourcePosition]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetResourcePosition]
$creadListPrec :: ReadPrec [GetResourcePosition]
readPrec :: ReadPrec GetResourcePosition
$creadPrec :: ReadPrec GetResourcePosition
readList :: ReadS [GetResourcePosition]
$creadList :: ReadS [GetResourcePosition]
readsPrec :: Int -> ReadS GetResourcePosition
$creadsPrec :: Int -> ReadS GetResourcePosition
Prelude.Read, Int -> GetResourcePosition -> ShowS
[GetResourcePosition] -> ShowS
GetResourcePosition -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetResourcePosition] -> ShowS
$cshowList :: [GetResourcePosition] -> ShowS
show :: GetResourcePosition -> String
$cshow :: GetResourcePosition -> String
showsPrec :: Int -> GetResourcePosition -> ShowS
$cshowsPrec :: Int -> GetResourcePosition -> ShowS
Prelude.Show, forall x. Rep GetResourcePosition x -> GetResourcePosition
forall x. GetResourcePosition -> Rep GetResourcePosition x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep GetResourcePosition x -> GetResourcePosition
$cfrom :: forall x. GetResourcePosition -> Rep GetResourcePosition x
Prelude.Generic)
newGetResourcePosition ::
Prelude.Text ->
PositionResourceType ->
GetResourcePosition
newGetResourcePosition :: Text -> PositionResourceType -> GetResourcePosition
newGetResourcePosition
Text
pResourceIdentifier_
PositionResourceType
pResourceType_ =
GetResourcePosition'
{ $sel:resourceIdentifier:GetResourcePosition' :: Text
resourceIdentifier =
Text
pResourceIdentifier_,
$sel:resourceType:GetResourcePosition' :: PositionResourceType
resourceType = PositionResourceType
pResourceType_
}
getResourcePosition_resourceIdentifier :: Lens.Lens' GetResourcePosition Prelude.Text
getResourcePosition_resourceIdentifier :: Lens' GetResourcePosition Text
getResourcePosition_resourceIdentifier = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetResourcePosition' {Text
resourceIdentifier :: Text
$sel:resourceIdentifier:GetResourcePosition' :: GetResourcePosition -> Text
resourceIdentifier} -> Text
resourceIdentifier) (\s :: GetResourcePosition
s@GetResourcePosition' {} Text
a -> GetResourcePosition
s {$sel:resourceIdentifier:GetResourcePosition' :: Text
resourceIdentifier = Text
a} :: GetResourcePosition)
getResourcePosition_resourceType :: Lens.Lens' GetResourcePosition PositionResourceType
getResourcePosition_resourceType :: Lens' GetResourcePosition PositionResourceType
getResourcePosition_resourceType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetResourcePosition' {PositionResourceType
resourceType :: PositionResourceType
$sel:resourceType:GetResourcePosition' :: GetResourcePosition -> PositionResourceType
resourceType} -> PositionResourceType
resourceType) (\s :: GetResourcePosition
s@GetResourcePosition' {} PositionResourceType
a -> GetResourcePosition
s {$sel:resourceType:GetResourcePosition' :: PositionResourceType
resourceType = PositionResourceType
a} :: GetResourcePosition)
instance Core.AWSRequest GetResourcePosition where
type
AWSResponse GetResourcePosition =
GetResourcePositionResponse
request :: (Service -> Service)
-> GetResourcePosition -> Request GetResourcePosition
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 GetResourcePosition
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse GetResourcePosition)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int
-> ResponseHeaders -> ByteString -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveBytes
( \Int
s ResponseHeaders
h ByteString
x ->
Maybe ByteString -> Int -> GetResourcePositionResponse
GetResourcePositionResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. a -> Maybe a
Prelude.Just (coerce :: forall a b. Coercible a b => a -> b
Prelude.coerce ByteString
x)))
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 GetResourcePosition where
hashWithSalt :: Int -> GetResourcePosition -> Int
hashWithSalt Int
_salt GetResourcePosition' {Text
PositionResourceType
resourceType :: PositionResourceType
resourceIdentifier :: Text
$sel:resourceType:GetResourcePosition' :: GetResourcePosition -> PositionResourceType
$sel:resourceIdentifier:GetResourcePosition' :: GetResourcePosition -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
resourceIdentifier
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` PositionResourceType
resourceType
instance Prelude.NFData GetResourcePosition where
rnf :: GetResourcePosition -> ()
rnf GetResourcePosition' {Text
PositionResourceType
resourceType :: PositionResourceType
resourceIdentifier :: Text
$sel:resourceType:GetResourcePosition' :: GetResourcePosition -> PositionResourceType
$sel:resourceIdentifier:GetResourcePosition' :: GetResourcePosition -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
resourceIdentifier
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf PositionResourceType
resourceType
instance Data.ToHeaders GetResourcePosition where
toHeaders :: GetResourcePosition -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath GetResourcePosition where
toPath :: GetResourcePosition -> ByteString
toPath GetResourcePosition' {Text
PositionResourceType
resourceType :: PositionResourceType
resourceIdentifier :: Text
$sel:resourceType:GetResourcePosition' :: GetResourcePosition -> PositionResourceType
$sel:resourceIdentifier:GetResourcePosition' :: GetResourcePosition -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/resource-positions/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
resourceIdentifier
]
instance Data.ToQuery GetResourcePosition where
toQuery :: GetResourcePosition -> QueryString
toQuery GetResourcePosition' {Text
PositionResourceType
resourceType :: PositionResourceType
resourceIdentifier :: Text
$sel:resourceType:GetResourcePosition' :: GetResourcePosition -> PositionResourceType
$sel:resourceIdentifier:GetResourcePosition' :: GetResourcePosition -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"resourceType" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: PositionResourceType
resourceType]
data GetResourcePositionResponse = GetResourcePositionResponse'
{
GetResourcePositionResponse -> Maybe ByteString
geoJsonPayload :: Prelude.Maybe Prelude.ByteString,
GetResourcePositionResponse -> Int
httpStatus :: Prelude.Int
}
deriving (GetResourcePositionResponse -> GetResourcePositionResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetResourcePositionResponse -> GetResourcePositionResponse -> Bool
$c/= :: GetResourcePositionResponse -> GetResourcePositionResponse -> Bool
== :: GetResourcePositionResponse -> GetResourcePositionResponse -> Bool
$c== :: GetResourcePositionResponse -> GetResourcePositionResponse -> Bool
Prelude.Eq, ReadPrec [GetResourcePositionResponse]
ReadPrec GetResourcePositionResponse
Int -> ReadS GetResourcePositionResponse
ReadS [GetResourcePositionResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetResourcePositionResponse]
$creadListPrec :: ReadPrec [GetResourcePositionResponse]
readPrec :: ReadPrec GetResourcePositionResponse
$creadPrec :: ReadPrec GetResourcePositionResponse
readList :: ReadS [GetResourcePositionResponse]
$creadList :: ReadS [GetResourcePositionResponse]
readsPrec :: Int -> ReadS GetResourcePositionResponse
$creadsPrec :: Int -> ReadS GetResourcePositionResponse
Prelude.Read, Int -> GetResourcePositionResponse -> ShowS
[GetResourcePositionResponse] -> ShowS
GetResourcePositionResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetResourcePositionResponse] -> ShowS
$cshowList :: [GetResourcePositionResponse] -> ShowS
show :: GetResourcePositionResponse -> String
$cshow :: GetResourcePositionResponse -> String
showsPrec :: Int -> GetResourcePositionResponse -> ShowS
$cshowsPrec :: Int -> GetResourcePositionResponse -> ShowS
Prelude.Show, forall x.
Rep GetResourcePositionResponse x -> GetResourcePositionResponse
forall x.
GetResourcePositionResponse -> Rep GetResourcePositionResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetResourcePositionResponse x -> GetResourcePositionResponse
$cfrom :: forall x.
GetResourcePositionResponse -> Rep GetResourcePositionResponse x
Prelude.Generic)
newGetResourcePositionResponse ::
Prelude.Int ->
GetResourcePositionResponse
newGetResourcePositionResponse :: Int -> GetResourcePositionResponse
newGetResourcePositionResponse Int
pHttpStatus_ =
GetResourcePositionResponse'
{ $sel:geoJsonPayload:GetResourcePositionResponse' :: Maybe ByteString
geoJsonPayload =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GetResourcePositionResponse' :: Int
httpStatus = Int
pHttpStatus_
}
getResourcePositionResponse_geoJsonPayload :: Lens.Lens' GetResourcePositionResponse (Prelude.Maybe Prelude.ByteString)
getResourcePositionResponse_geoJsonPayload :: Lens' GetResourcePositionResponse (Maybe ByteString)
getResourcePositionResponse_geoJsonPayload = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetResourcePositionResponse' {Maybe ByteString
geoJsonPayload :: Maybe ByteString
$sel:geoJsonPayload:GetResourcePositionResponse' :: GetResourcePositionResponse -> Maybe ByteString
geoJsonPayload} -> Maybe ByteString
geoJsonPayload) (\s :: GetResourcePositionResponse
s@GetResourcePositionResponse' {} Maybe ByteString
a -> GetResourcePositionResponse
s {$sel:geoJsonPayload:GetResourcePositionResponse' :: Maybe ByteString
geoJsonPayload = Maybe ByteString
a} :: GetResourcePositionResponse)
getResourcePositionResponse_httpStatus :: Lens.Lens' GetResourcePositionResponse Prelude.Int
getResourcePositionResponse_httpStatus :: Lens' GetResourcePositionResponse Int
getResourcePositionResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetResourcePositionResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetResourcePositionResponse' :: GetResourcePositionResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetResourcePositionResponse
s@GetResourcePositionResponse' {} Int
a -> GetResourcePositionResponse
s {$sel:httpStatus:GetResourcePositionResponse' :: Int
httpStatus = Int
a} :: GetResourcePositionResponse)
instance Prelude.NFData GetResourcePositionResponse where
rnf :: GetResourcePositionResponse -> ()
rnf GetResourcePositionResponse' {Int
Maybe ByteString
httpStatus :: Int
geoJsonPayload :: Maybe ByteString
$sel:httpStatus:GetResourcePositionResponse' :: GetResourcePositionResponse -> Int
$sel:geoJsonPayload:GetResourcePositionResponse' :: GetResourcePositionResponse -> Maybe ByteString
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe ByteString
geoJsonPayload
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus