{-# 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.IoTWireless.GetResourcePosition
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Get the position information for a given wireless device or a wireless
-- gateway resource. The postion information uses the
-- <https://gisgeography.com/wgs84-world-geodetic-system/ World Geodetic System (WGS84)>.
module Amazonka.IoTWireless.GetResourcePosition
  ( -- * Creating a Request
    GetResourcePosition (..),
    newGetResourcePosition,

    -- * Request Lenses
    getResourcePosition_resourceIdentifier,
    getResourcePosition_resourceType,

    -- * Destructuring the Response
    GetResourcePositionResponse (..),
    newGetResourcePositionResponse,

    -- * Response Lenses
    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

-- | /See:/ 'newGetResourcePosition' smart constructor.
data GetResourcePosition = GetResourcePosition'
  { -- | The identifier of the resource for which position information is
    -- retrieved. It can be the wireless device ID or the wireless gateway ID
    -- depending on the resource type.
    GetResourcePosition -> Text
resourceIdentifier :: Prelude.Text,
    -- | The type of resource for which position information is retrieved, which
    -- can be a wireless device or a wireless gateway.
    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)

-- |
-- Create a value of 'GetResourcePosition' 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:
--
-- 'resourceIdentifier', 'getResourcePosition_resourceIdentifier' - The identifier of the resource for which position information is
-- retrieved. It can be the wireless device ID or the wireless gateway ID
-- depending on the resource type.
--
-- 'resourceType', 'getResourcePosition_resourceType' - The type of resource for which position information is retrieved, which
-- can be a wireless device or a wireless gateway.
newGetResourcePosition ::
  -- | 'resourceIdentifier'
  Prelude.Text ->
  -- | 'resourceType'
  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_
      }

-- | The identifier of the resource for which position information is
-- retrieved. It can be the wireless device ID or the wireless gateway ID
-- depending on the resource type.
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)

-- | The type of resource for which position information is retrieved, which
-- can be a wireless device or a wireless gateway.
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]

-- | /See:/ 'newGetResourcePositionResponse' smart constructor.
data GetResourcePositionResponse = GetResourcePositionResponse'
  { -- | The position information of the resource, displayed as a JSON payload.
    -- The payload uses the GeoJSON format, which a format that\'s used to
    -- encode geographic data structures. For more information, see
    -- <https://geojson.org/ GeoJSON>.
    GetResourcePositionResponse -> Maybe ByteString
geoJsonPayload :: Prelude.Maybe Prelude.ByteString,
    -- | The response's http status code.
    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)

-- |
-- Create a value of 'GetResourcePositionResponse' 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:
--
-- 'geoJsonPayload', 'getResourcePositionResponse_geoJsonPayload' - The position information of the resource, displayed as a JSON payload.
-- The payload uses the GeoJSON format, which a format that\'s used to
-- encode geographic data structures. For more information, see
-- <https://geojson.org/ GeoJSON>.
--
-- 'httpStatus', 'getResourcePositionResponse_httpStatus' - The response's http status code.
newGetResourcePositionResponse ::
  -- | 'httpStatus'
  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_
    }

-- | The position information of the resource, displayed as a JSON payload.
-- The payload uses the GeoJSON format, which a format that\'s used to
-- encode geographic data structures. For more information, see
-- <https://geojson.org/ GeoJSON>.
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)

-- | The response's http status code.
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