{-# 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.Panorama.CreatePackage
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Creates a package and storage location in an Amazon S3 access point.
module Amazonka.Panorama.CreatePackage
  ( -- * Creating a Request
    CreatePackage (..),
    newCreatePackage,

    -- * Request Lenses
    createPackage_tags,
    createPackage_packageName,

    -- * Destructuring the Response
    CreatePackageResponse (..),
    newCreatePackageResponse,

    -- * Response Lenses
    createPackageResponse_arn,
    createPackageResponse_packageId,
    createPackageResponse_httpStatus,
    createPackageResponse_storageLocation,
  )
where

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

-- | /See:/ 'newCreatePackage' smart constructor.
data CreatePackage = CreatePackage'
  { -- | Tags for the package.
    CreatePackage -> Maybe (HashMap Text Text)
tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
    -- | A name for the package.
    CreatePackage -> Text
packageName :: Prelude.Text
  }
  deriving (CreatePackage -> CreatePackage -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreatePackage -> CreatePackage -> Bool
$c/= :: CreatePackage -> CreatePackage -> Bool
== :: CreatePackage -> CreatePackage -> Bool
$c== :: CreatePackage -> CreatePackage -> Bool
Prelude.Eq, ReadPrec [CreatePackage]
ReadPrec CreatePackage
Int -> ReadS CreatePackage
ReadS [CreatePackage]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreatePackage]
$creadListPrec :: ReadPrec [CreatePackage]
readPrec :: ReadPrec CreatePackage
$creadPrec :: ReadPrec CreatePackage
readList :: ReadS [CreatePackage]
$creadList :: ReadS [CreatePackage]
readsPrec :: Int -> ReadS CreatePackage
$creadsPrec :: Int -> ReadS CreatePackage
Prelude.Read, Int -> CreatePackage -> ShowS
[CreatePackage] -> ShowS
CreatePackage -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreatePackage] -> ShowS
$cshowList :: [CreatePackage] -> ShowS
show :: CreatePackage -> String
$cshow :: CreatePackage -> String
showsPrec :: Int -> CreatePackage -> ShowS
$cshowsPrec :: Int -> CreatePackage -> ShowS
Prelude.Show, forall x. Rep CreatePackage x -> CreatePackage
forall x. CreatePackage -> Rep CreatePackage x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreatePackage x -> CreatePackage
$cfrom :: forall x. CreatePackage -> Rep CreatePackage x
Prelude.Generic)

-- |
-- Create a value of 'CreatePackage' 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:
--
-- 'tags', 'createPackage_tags' - Tags for the package.
--
-- 'packageName', 'createPackage_packageName' - A name for the package.
newCreatePackage ::
  -- | 'packageName'
  Prelude.Text ->
  CreatePackage
newCreatePackage :: Text -> CreatePackage
newCreatePackage Text
pPackageName_ =
  CreatePackage'
    { $sel:tags:CreatePackage' :: Maybe (HashMap Text Text)
tags = forall a. Maybe a
Prelude.Nothing,
      $sel:packageName:CreatePackage' :: Text
packageName = Text
pPackageName_
    }

-- | Tags for the package.
createPackage_tags :: Lens.Lens' CreatePackage (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
createPackage_tags :: Lens' CreatePackage (Maybe (HashMap Text Text))
createPackage_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreatePackage' {Maybe (HashMap Text Text)
tags :: Maybe (HashMap Text Text)
$sel:tags:CreatePackage' :: CreatePackage -> Maybe (HashMap Text Text)
tags} -> Maybe (HashMap Text Text)
tags) (\s :: CreatePackage
s@CreatePackage' {} Maybe (HashMap Text Text)
a -> CreatePackage
s {$sel:tags:CreatePackage' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
a} :: CreatePackage) 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 name for the package.
createPackage_packageName :: Lens.Lens' CreatePackage Prelude.Text
createPackage_packageName :: Lens' CreatePackage Text
createPackage_packageName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreatePackage' {Text
packageName :: Text
$sel:packageName:CreatePackage' :: CreatePackage -> Text
packageName} -> Text
packageName) (\s :: CreatePackage
s@CreatePackage' {} Text
a -> CreatePackage
s {$sel:packageName:CreatePackage' :: Text
packageName = Text
a} :: CreatePackage)

instance Core.AWSRequest CreatePackage where
  type
    AWSResponse CreatePackage =
      CreatePackageResponse
  request :: (Service -> Service) -> CreatePackage -> Request CreatePackage
request Service -> Service
overrides =
    forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
  response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy CreatePackage
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse CreatePackage)))
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 -> Int -> StorageLocation -> CreatePackageResponse
CreatePackageResponse'
            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
"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 (Maybe a)
Data..?> Key
"PackageId")
            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
"StorageLocation")
      )

instance Prelude.Hashable CreatePackage where
  hashWithSalt :: Int -> CreatePackage -> Int
hashWithSalt Int
_salt CreatePackage' {Maybe (HashMap Text Text)
Text
packageName :: Text
tags :: Maybe (HashMap Text Text)
$sel:packageName:CreatePackage' :: CreatePackage -> Text
$sel:tags:CreatePackage' :: CreatePackage -> Maybe (HashMap Text Text)
..} =
    Int
_salt
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (HashMap Text Text)
tags
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
packageName

instance Prelude.NFData CreatePackage where
  rnf :: CreatePackage -> ()
rnf CreatePackage' {Maybe (HashMap Text Text)
Text
packageName :: Text
tags :: Maybe (HashMap Text Text)
$sel:packageName:CreatePackage' :: CreatePackage -> Text
$sel:tags:CreatePackage' :: CreatePackage -> Maybe (HashMap Text Text)
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text Text)
tags
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
packageName

instance Data.ToHeaders CreatePackage where
  toHeaders :: CreatePackage -> 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.ToJSON CreatePackage where
  toJSON :: CreatePackage -> Value
toJSON CreatePackage' {Maybe (HashMap Text Text)
Text
packageName :: Text
tags :: Maybe (HashMap Text Text)
$sel:packageName:CreatePackage' :: CreatePackage -> Text
$sel:tags:CreatePackage' :: CreatePackage -> Maybe (HashMap Text Text)
..} =
    [Pair] -> Value
Data.object
      ( forall a. [Maybe a] -> [a]
Prelude.catMaybes
          [ (Key
"Tags" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (HashMap Text Text)
tags,
            forall a. a -> Maybe a
Prelude.Just (Key
"PackageName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
packageName)
          ]
      )

instance Data.ToPath CreatePackage where
  toPath :: CreatePackage -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/packages"

instance Data.ToQuery CreatePackage where
  toQuery :: CreatePackage -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty

-- | /See:/ 'newCreatePackageResponse' smart constructor.
data CreatePackageResponse = CreatePackageResponse'
  { -- | The package\'s ARN.
    CreatePackageResponse -> Maybe Text
arn :: Prelude.Maybe Prelude.Text,
    -- | The package\'s ID.
    CreatePackageResponse -> Maybe Text
packageId :: Prelude.Maybe Prelude.Text,
    -- | The response's http status code.
    CreatePackageResponse -> Int
httpStatus :: Prelude.Int,
    -- | The package\'s storage location.
    CreatePackageResponse -> StorageLocation
storageLocation :: StorageLocation
  }
  deriving (CreatePackageResponse -> CreatePackageResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreatePackageResponse -> CreatePackageResponse -> Bool
$c/= :: CreatePackageResponse -> CreatePackageResponse -> Bool
== :: CreatePackageResponse -> CreatePackageResponse -> Bool
$c== :: CreatePackageResponse -> CreatePackageResponse -> Bool
Prelude.Eq, ReadPrec [CreatePackageResponse]
ReadPrec CreatePackageResponse
Int -> ReadS CreatePackageResponse
ReadS [CreatePackageResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreatePackageResponse]
$creadListPrec :: ReadPrec [CreatePackageResponse]
readPrec :: ReadPrec CreatePackageResponse
$creadPrec :: ReadPrec CreatePackageResponse
readList :: ReadS [CreatePackageResponse]
$creadList :: ReadS [CreatePackageResponse]
readsPrec :: Int -> ReadS CreatePackageResponse
$creadsPrec :: Int -> ReadS CreatePackageResponse
Prelude.Read, Int -> CreatePackageResponse -> ShowS
[CreatePackageResponse] -> ShowS
CreatePackageResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreatePackageResponse] -> ShowS
$cshowList :: [CreatePackageResponse] -> ShowS
show :: CreatePackageResponse -> String
$cshow :: CreatePackageResponse -> String
showsPrec :: Int -> CreatePackageResponse -> ShowS
$cshowsPrec :: Int -> CreatePackageResponse -> ShowS
Prelude.Show, forall x. Rep CreatePackageResponse x -> CreatePackageResponse
forall x. CreatePackageResponse -> Rep CreatePackageResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreatePackageResponse x -> CreatePackageResponse
$cfrom :: forall x. CreatePackageResponse -> Rep CreatePackageResponse x
Prelude.Generic)

-- |
-- Create a value of 'CreatePackageResponse' 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:
--
-- 'arn', 'createPackageResponse_arn' - The package\'s ARN.
--
-- 'packageId', 'createPackageResponse_packageId' - The package\'s ID.
--
-- 'httpStatus', 'createPackageResponse_httpStatus' - The response's http status code.
--
-- 'storageLocation', 'createPackageResponse_storageLocation' - The package\'s storage location.
newCreatePackageResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  -- | 'storageLocation'
  StorageLocation ->
  CreatePackageResponse
newCreatePackageResponse :: Int -> StorageLocation -> CreatePackageResponse
newCreatePackageResponse
  Int
pHttpStatus_
  StorageLocation
pStorageLocation_ =
    CreatePackageResponse'
      { $sel:arn:CreatePackageResponse' :: Maybe Text
arn = forall a. Maybe a
Prelude.Nothing,
        $sel:packageId:CreatePackageResponse' :: Maybe Text
packageId = forall a. Maybe a
Prelude.Nothing,
        $sel:httpStatus:CreatePackageResponse' :: Int
httpStatus = Int
pHttpStatus_,
        $sel:storageLocation:CreatePackageResponse' :: StorageLocation
storageLocation = StorageLocation
pStorageLocation_
      }

-- | The package\'s ARN.
createPackageResponse_arn :: Lens.Lens' CreatePackageResponse (Prelude.Maybe Prelude.Text)
createPackageResponse_arn :: Lens' CreatePackageResponse (Maybe Text)
createPackageResponse_arn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreatePackageResponse' {Maybe Text
arn :: Maybe Text
$sel:arn:CreatePackageResponse' :: CreatePackageResponse -> Maybe Text
arn} -> Maybe Text
arn) (\s :: CreatePackageResponse
s@CreatePackageResponse' {} Maybe Text
a -> CreatePackageResponse
s {$sel:arn:CreatePackageResponse' :: Maybe Text
arn = Maybe Text
a} :: CreatePackageResponse)

-- | The package\'s ID.
createPackageResponse_packageId :: Lens.Lens' CreatePackageResponse (Prelude.Maybe Prelude.Text)
createPackageResponse_packageId :: Lens' CreatePackageResponse (Maybe Text)
createPackageResponse_packageId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreatePackageResponse' {Maybe Text
packageId :: Maybe Text
$sel:packageId:CreatePackageResponse' :: CreatePackageResponse -> Maybe Text
packageId} -> Maybe Text
packageId) (\s :: CreatePackageResponse
s@CreatePackageResponse' {} Maybe Text
a -> CreatePackageResponse
s {$sel:packageId:CreatePackageResponse' :: Maybe Text
packageId = Maybe Text
a} :: CreatePackageResponse)

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

-- | The package\'s storage location.
createPackageResponse_storageLocation :: Lens.Lens' CreatePackageResponse StorageLocation
createPackageResponse_storageLocation :: Lens' CreatePackageResponse StorageLocation
createPackageResponse_storageLocation = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreatePackageResponse' {StorageLocation
storageLocation :: StorageLocation
$sel:storageLocation:CreatePackageResponse' :: CreatePackageResponse -> StorageLocation
storageLocation} -> StorageLocation
storageLocation) (\s :: CreatePackageResponse
s@CreatePackageResponse' {} StorageLocation
a -> CreatePackageResponse
s {$sel:storageLocation:CreatePackageResponse' :: StorageLocation
storageLocation = StorageLocation
a} :: CreatePackageResponse)

instance Prelude.NFData CreatePackageResponse where
  rnf :: CreatePackageResponse -> ()
rnf CreatePackageResponse' {Int
Maybe Text
StorageLocation
storageLocation :: StorageLocation
httpStatus :: Int
packageId :: Maybe Text
arn :: Maybe Text
$sel:storageLocation:CreatePackageResponse' :: CreatePackageResponse -> StorageLocation
$sel:httpStatus:CreatePackageResponse' :: CreatePackageResponse -> Int
$sel:packageId:CreatePackageResponse' :: CreatePackageResponse -> Maybe Text
$sel:arn:CreatePackageResponse' :: CreatePackageResponse -> Maybe Text
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
arn
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
packageId
      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 StorageLocation
storageLocation