{-# 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.Amplify.GenerateAccessLogs
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Returns the website access logs for a specific time range using a
-- presigned URL.
module Amazonka.Amplify.GenerateAccessLogs
  ( -- * Creating a Request
    GenerateAccessLogs (..),
    newGenerateAccessLogs,

    -- * Request Lenses
    generateAccessLogs_endTime,
    generateAccessLogs_startTime,
    generateAccessLogs_domainName,
    generateAccessLogs_appId,

    -- * Destructuring the Response
    GenerateAccessLogsResponse (..),
    newGenerateAccessLogsResponse,

    -- * Response Lenses
    generateAccessLogsResponse_logUrl,
    generateAccessLogsResponse_httpStatus,
  )
where

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

-- | The request structure for the generate access logs request.
--
-- /See:/ 'newGenerateAccessLogs' smart constructor.
data GenerateAccessLogs = GenerateAccessLogs'
  { -- | The time at which the logs should end. The time range specified is
    -- inclusive of the end time.
    GenerateAccessLogs -> Maybe POSIX
endTime :: Prelude.Maybe Data.POSIX,
    -- | The time at which the logs should start. The time range specified is
    -- inclusive of the start time.
    GenerateAccessLogs -> Maybe POSIX
startTime :: Prelude.Maybe Data.POSIX,
    -- | The name of the domain.
    GenerateAccessLogs -> Text
domainName :: Prelude.Text,
    -- | The unique ID for an Amplify app.
    GenerateAccessLogs -> Text
appId :: Prelude.Text
  }
  deriving (GenerateAccessLogs -> GenerateAccessLogs -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GenerateAccessLogs -> GenerateAccessLogs -> Bool
$c/= :: GenerateAccessLogs -> GenerateAccessLogs -> Bool
== :: GenerateAccessLogs -> GenerateAccessLogs -> Bool
$c== :: GenerateAccessLogs -> GenerateAccessLogs -> Bool
Prelude.Eq, ReadPrec [GenerateAccessLogs]
ReadPrec GenerateAccessLogs
Int -> ReadS GenerateAccessLogs
ReadS [GenerateAccessLogs]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GenerateAccessLogs]
$creadListPrec :: ReadPrec [GenerateAccessLogs]
readPrec :: ReadPrec GenerateAccessLogs
$creadPrec :: ReadPrec GenerateAccessLogs
readList :: ReadS [GenerateAccessLogs]
$creadList :: ReadS [GenerateAccessLogs]
readsPrec :: Int -> ReadS GenerateAccessLogs
$creadsPrec :: Int -> ReadS GenerateAccessLogs
Prelude.Read, Int -> GenerateAccessLogs -> ShowS
[GenerateAccessLogs] -> ShowS
GenerateAccessLogs -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GenerateAccessLogs] -> ShowS
$cshowList :: [GenerateAccessLogs] -> ShowS
show :: GenerateAccessLogs -> String
$cshow :: GenerateAccessLogs -> String
showsPrec :: Int -> GenerateAccessLogs -> ShowS
$cshowsPrec :: Int -> GenerateAccessLogs -> ShowS
Prelude.Show, forall x. Rep GenerateAccessLogs x -> GenerateAccessLogs
forall x. GenerateAccessLogs -> Rep GenerateAccessLogs x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep GenerateAccessLogs x -> GenerateAccessLogs
$cfrom :: forall x. GenerateAccessLogs -> Rep GenerateAccessLogs x
Prelude.Generic)

-- |
-- Create a value of 'GenerateAccessLogs' 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:
--
-- 'endTime', 'generateAccessLogs_endTime' - The time at which the logs should end. The time range specified is
-- inclusive of the end time.
--
-- 'startTime', 'generateAccessLogs_startTime' - The time at which the logs should start. The time range specified is
-- inclusive of the start time.
--
-- 'domainName', 'generateAccessLogs_domainName' - The name of the domain.
--
-- 'appId', 'generateAccessLogs_appId' - The unique ID for an Amplify app.
newGenerateAccessLogs ::
  -- | 'domainName'
  Prelude.Text ->
  -- | 'appId'
  Prelude.Text ->
  GenerateAccessLogs
newGenerateAccessLogs :: Text -> Text -> GenerateAccessLogs
newGenerateAccessLogs Text
pDomainName_ Text
pAppId_ =
  GenerateAccessLogs'
    { $sel:endTime:GenerateAccessLogs' :: Maybe POSIX
endTime = forall a. Maybe a
Prelude.Nothing,
      $sel:startTime:GenerateAccessLogs' :: Maybe POSIX
startTime = forall a. Maybe a
Prelude.Nothing,
      $sel:domainName:GenerateAccessLogs' :: Text
domainName = Text
pDomainName_,
      $sel:appId:GenerateAccessLogs' :: Text
appId = Text
pAppId_
    }

-- | The time at which the logs should end. The time range specified is
-- inclusive of the end time.
generateAccessLogs_endTime :: Lens.Lens' GenerateAccessLogs (Prelude.Maybe Prelude.UTCTime)
generateAccessLogs_endTime :: Lens' GenerateAccessLogs (Maybe UTCTime)
generateAccessLogs_endTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GenerateAccessLogs' {Maybe POSIX
endTime :: Maybe POSIX
$sel:endTime:GenerateAccessLogs' :: GenerateAccessLogs -> Maybe POSIX
endTime} -> Maybe POSIX
endTime) (\s :: GenerateAccessLogs
s@GenerateAccessLogs' {} Maybe POSIX
a -> GenerateAccessLogs
s {$sel:endTime:GenerateAccessLogs' :: Maybe POSIX
endTime = Maybe POSIX
a} :: GenerateAccessLogs) 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 (a :: Format). Iso' (Time a) UTCTime
Data._Time

-- | The time at which the logs should start. The time range specified is
-- inclusive of the start time.
generateAccessLogs_startTime :: Lens.Lens' GenerateAccessLogs (Prelude.Maybe Prelude.UTCTime)
generateAccessLogs_startTime :: Lens' GenerateAccessLogs (Maybe UTCTime)
generateAccessLogs_startTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GenerateAccessLogs' {Maybe POSIX
startTime :: Maybe POSIX
$sel:startTime:GenerateAccessLogs' :: GenerateAccessLogs -> Maybe POSIX
startTime} -> Maybe POSIX
startTime) (\s :: GenerateAccessLogs
s@GenerateAccessLogs' {} Maybe POSIX
a -> GenerateAccessLogs
s {$sel:startTime:GenerateAccessLogs' :: Maybe POSIX
startTime = Maybe POSIX
a} :: GenerateAccessLogs) 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 (a :: Format). Iso' (Time a) UTCTime
Data._Time

-- | The name of the domain.
generateAccessLogs_domainName :: Lens.Lens' GenerateAccessLogs Prelude.Text
generateAccessLogs_domainName :: Lens' GenerateAccessLogs Text
generateAccessLogs_domainName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GenerateAccessLogs' {Text
domainName :: Text
$sel:domainName:GenerateAccessLogs' :: GenerateAccessLogs -> Text
domainName} -> Text
domainName) (\s :: GenerateAccessLogs
s@GenerateAccessLogs' {} Text
a -> GenerateAccessLogs
s {$sel:domainName:GenerateAccessLogs' :: Text
domainName = Text
a} :: GenerateAccessLogs)

-- | The unique ID for an Amplify app.
generateAccessLogs_appId :: Lens.Lens' GenerateAccessLogs Prelude.Text
generateAccessLogs_appId :: Lens' GenerateAccessLogs Text
generateAccessLogs_appId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GenerateAccessLogs' {Text
appId :: Text
$sel:appId:GenerateAccessLogs' :: GenerateAccessLogs -> Text
appId} -> Text
appId) (\s :: GenerateAccessLogs
s@GenerateAccessLogs' {} Text
a -> GenerateAccessLogs
s {$sel:appId:GenerateAccessLogs' :: Text
appId = Text
a} :: GenerateAccessLogs)

instance Core.AWSRequest GenerateAccessLogs where
  type
    AWSResponse GenerateAccessLogs =
      GenerateAccessLogsResponse
  request :: (Service -> Service)
-> GenerateAccessLogs -> Request GenerateAccessLogs
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 GenerateAccessLogs
-> ClientResponse ClientBody
-> m (Either
        Error (ClientResponse (AWSResponse GenerateAccessLogs)))
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 -> Int -> GenerateAccessLogsResponse
GenerateAccessLogsResponse'
            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
"logUrl")
            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 GenerateAccessLogs where
  hashWithSalt :: Int -> GenerateAccessLogs -> Int
hashWithSalt Int
_salt GenerateAccessLogs' {Maybe POSIX
Text
appId :: Text
domainName :: Text
startTime :: Maybe POSIX
endTime :: Maybe POSIX
$sel:appId:GenerateAccessLogs' :: GenerateAccessLogs -> Text
$sel:domainName:GenerateAccessLogs' :: GenerateAccessLogs -> Text
$sel:startTime:GenerateAccessLogs' :: GenerateAccessLogs -> Maybe POSIX
$sel:endTime:GenerateAccessLogs' :: GenerateAccessLogs -> Maybe POSIX
..} =
    Int
_salt
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe POSIX
endTime
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe POSIX
startTime
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
domainName
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
appId

instance Prelude.NFData GenerateAccessLogs where
  rnf :: GenerateAccessLogs -> ()
rnf GenerateAccessLogs' {Maybe POSIX
Text
appId :: Text
domainName :: Text
startTime :: Maybe POSIX
endTime :: Maybe POSIX
$sel:appId:GenerateAccessLogs' :: GenerateAccessLogs -> Text
$sel:domainName:GenerateAccessLogs' :: GenerateAccessLogs -> Text
$sel:startTime:GenerateAccessLogs' :: GenerateAccessLogs -> Maybe POSIX
$sel:endTime:GenerateAccessLogs' :: GenerateAccessLogs -> Maybe POSIX
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
endTime
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
startTime
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
domainName
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
appId

instance Data.ToHeaders GenerateAccessLogs where
  toHeaders :: GenerateAccessLogs -> 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 GenerateAccessLogs where
  toJSON :: GenerateAccessLogs -> Value
toJSON GenerateAccessLogs' {Maybe POSIX
Text
appId :: Text
domainName :: Text
startTime :: Maybe POSIX
endTime :: Maybe POSIX
$sel:appId:GenerateAccessLogs' :: GenerateAccessLogs -> Text
$sel:domainName:GenerateAccessLogs' :: GenerateAccessLogs -> Text
$sel:startTime:GenerateAccessLogs' :: GenerateAccessLogs -> Maybe POSIX
$sel:endTime:GenerateAccessLogs' :: GenerateAccessLogs -> Maybe POSIX
..} =
    [Pair] -> Value
Data.object
      ( forall a. [Maybe a] -> [a]
Prelude.catMaybes
          [ (Key
"endTime" 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 POSIX
endTime,
            (Key
"startTime" 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 POSIX
startTime,
            forall a. a -> Maybe a
Prelude.Just (Key
"domainName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
domainName)
          ]
      )

instance Data.ToPath GenerateAccessLogs where
  toPath :: GenerateAccessLogs -> ByteString
toPath GenerateAccessLogs' {Maybe POSIX
Text
appId :: Text
domainName :: Text
startTime :: Maybe POSIX
endTime :: Maybe POSIX
$sel:appId:GenerateAccessLogs' :: GenerateAccessLogs -> Text
$sel:domainName:GenerateAccessLogs' :: GenerateAccessLogs -> Text
$sel:startTime:GenerateAccessLogs' :: GenerateAccessLogs -> Maybe POSIX
$sel:endTime:GenerateAccessLogs' :: GenerateAccessLogs -> Maybe POSIX
..} =
    forall a. Monoid a => [a] -> a
Prelude.mconcat
      [ByteString
"/apps/", forall a. ToByteString a => a -> ByteString
Data.toBS Text
appId, ByteString
"/accesslogs"]

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

-- | The result structure for the generate access logs request.
--
-- /See:/ 'newGenerateAccessLogsResponse' smart constructor.
data GenerateAccessLogsResponse = GenerateAccessLogsResponse'
  { -- | The pre-signed URL for the requested access logs.
    GenerateAccessLogsResponse -> Maybe Text
logUrl :: Prelude.Maybe Prelude.Text,
    -- | The response's http status code.
    GenerateAccessLogsResponse -> Int
httpStatus :: Prelude.Int
  }
  deriving (GenerateAccessLogsResponse -> GenerateAccessLogsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GenerateAccessLogsResponse -> GenerateAccessLogsResponse -> Bool
$c/= :: GenerateAccessLogsResponse -> GenerateAccessLogsResponse -> Bool
== :: GenerateAccessLogsResponse -> GenerateAccessLogsResponse -> Bool
$c== :: GenerateAccessLogsResponse -> GenerateAccessLogsResponse -> Bool
Prelude.Eq, ReadPrec [GenerateAccessLogsResponse]
ReadPrec GenerateAccessLogsResponse
Int -> ReadS GenerateAccessLogsResponse
ReadS [GenerateAccessLogsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GenerateAccessLogsResponse]
$creadListPrec :: ReadPrec [GenerateAccessLogsResponse]
readPrec :: ReadPrec GenerateAccessLogsResponse
$creadPrec :: ReadPrec GenerateAccessLogsResponse
readList :: ReadS [GenerateAccessLogsResponse]
$creadList :: ReadS [GenerateAccessLogsResponse]
readsPrec :: Int -> ReadS GenerateAccessLogsResponse
$creadsPrec :: Int -> ReadS GenerateAccessLogsResponse
Prelude.Read, Int -> GenerateAccessLogsResponse -> ShowS
[GenerateAccessLogsResponse] -> ShowS
GenerateAccessLogsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GenerateAccessLogsResponse] -> ShowS
$cshowList :: [GenerateAccessLogsResponse] -> ShowS
show :: GenerateAccessLogsResponse -> String
$cshow :: GenerateAccessLogsResponse -> String
showsPrec :: Int -> GenerateAccessLogsResponse -> ShowS
$cshowsPrec :: Int -> GenerateAccessLogsResponse -> ShowS
Prelude.Show, forall x.
Rep GenerateAccessLogsResponse x -> GenerateAccessLogsResponse
forall x.
GenerateAccessLogsResponse -> Rep GenerateAccessLogsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GenerateAccessLogsResponse x -> GenerateAccessLogsResponse
$cfrom :: forall x.
GenerateAccessLogsResponse -> Rep GenerateAccessLogsResponse x
Prelude.Generic)

-- |
-- Create a value of 'GenerateAccessLogsResponse' 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:
--
-- 'logUrl', 'generateAccessLogsResponse_logUrl' - The pre-signed URL for the requested access logs.
--
-- 'httpStatus', 'generateAccessLogsResponse_httpStatus' - The response's http status code.
newGenerateAccessLogsResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  GenerateAccessLogsResponse
newGenerateAccessLogsResponse :: Int -> GenerateAccessLogsResponse
newGenerateAccessLogsResponse Int
pHttpStatus_ =
  GenerateAccessLogsResponse'
    { $sel:logUrl:GenerateAccessLogsResponse' :: Maybe Text
logUrl =
        forall a. Maybe a
Prelude.Nothing,
      $sel:httpStatus:GenerateAccessLogsResponse' :: Int
httpStatus = Int
pHttpStatus_
    }

-- | The pre-signed URL for the requested access logs.
generateAccessLogsResponse_logUrl :: Lens.Lens' GenerateAccessLogsResponse (Prelude.Maybe Prelude.Text)
generateAccessLogsResponse_logUrl :: Lens' GenerateAccessLogsResponse (Maybe Text)
generateAccessLogsResponse_logUrl = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GenerateAccessLogsResponse' {Maybe Text
logUrl :: Maybe Text
$sel:logUrl:GenerateAccessLogsResponse' :: GenerateAccessLogsResponse -> Maybe Text
logUrl} -> Maybe Text
logUrl) (\s :: GenerateAccessLogsResponse
s@GenerateAccessLogsResponse' {} Maybe Text
a -> GenerateAccessLogsResponse
s {$sel:logUrl:GenerateAccessLogsResponse' :: Maybe Text
logUrl = Maybe Text
a} :: GenerateAccessLogsResponse)

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

instance Prelude.NFData GenerateAccessLogsResponse where
  rnf :: GenerateAccessLogsResponse -> ()
rnf GenerateAccessLogsResponse' {Int
Maybe Text
httpStatus :: Int
logUrl :: Maybe Text
$sel:httpStatus:GenerateAccessLogsResponse' :: GenerateAccessLogsResponse -> Int
$sel:logUrl:GenerateAccessLogsResponse' :: GenerateAccessLogsResponse -> Maybe Text
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
logUrl
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus