{-# 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.Amplify.GenerateAccessLogs
(
GenerateAccessLogs (..),
newGenerateAccessLogs,
generateAccessLogs_endTime,
generateAccessLogs_startTime,
generateAccessLogs_domainName,
generateAccessLogs_appId,
GenerateAccessLogsResponse (..),
newGenerateAccessLogsResponse,
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
data GenerateAccessLogs = GenerateAccessLogs'
{
GenerateAccessLogs -> Maybe POSIX
endTime :: Prelude.Maybe Data.POSIX,
GenerateAccessLogs -> Maybe POSIX
startTime :: Prelude.Maybe Data.POSIX,
GenerateAccessLogs -> Text
domainName :: Prelude.Text,
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)
newGenerateAccessLogs ::
Prelude.Text ->
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_
}
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
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
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)
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
data GenerateAccessLogsResponse = GenerateAccessLogsResponse'
{
GenerateAccessLogsResponse -> Maybe Text
logUrl :: Prelude.Maybe Prelude.Text,
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)
newGenerateAccessLogsResponse ::
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_
}
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)
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