{-# 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.Lightsail.GetRelationalDatabaseLogStreams
(
GetRelationalDatabaseLogStreams (..),
newGetRelationalDatabaseLogStreams,
getRelationalDatabaseLogStreams_relationalDatabaseName,
GetRelationalDatabaseLogStreamsResponse (..),
newGetRelationalDatabaseLogStreamsResponse,
getRelationalDatabaseLogStreamsResponse_logStreams,
getRelationalDatabaseLogStreamsResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.Lightsail.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data GetRelationalDatabaseLogStreams = GetRelationalDatabaseLogStreams'
{
GetRelationalDatabaseLogStreams -> Text
relationalDatabaseName :: Prelude.Text
}
deriving (GetRelationalDatabaseLogStreams
-> GetRelationalDatabaseLogStreams -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetRelationalDatabaseLogStreams
-> GetRelationalDatabaseLogStreams -> Bool
$c/= :: GetRelationalDatabaseLogStreams
-> GetRelationalDatabaseLogStreams -> Bool
== :: GetRelationalDatabaseLogStreams
-> GetRelationalDatabaseLogStreams -> Bool
$c== :: GetRelationalDatabaseLogStreams
-> GetRelationalDatabaseLogStreams -> Bool
Prelude.Eq, ReadPrec [GetRelationalDatabaseLogStreams]
ReadPrec GetRelationalDatabaseLogStreams
Int -> ReadS GetRelationalDatabaseLogStreams
ReadS [GetRelationalDatabaseLogStreams]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetRelationalDatabaseLogStreams]
$creadListPrec :: ReadPrec [GetRelationalDatabaseLogStreams]
readPrec :: ReadPrec GetRelationalDatabaseLogStreams
$creadPrec :: ReadPrec GetRelationalDatabaseLogStreams
readList :: ReadS [GetRelationalDatabaseLogStreams]
$creadList :: ReadS [GetRelationalDatabaseLogStreams]
readsPrec :: Int -> ReadS GetRelationalDatabaseLogStreams
$creadsPrec :: Int -> ReadS GetRelationalDatabaseLogStreams
Prelude.Read, Int -> GetRelationalDatabaseLogStreams -> ShowS
[GetRelationalDatabaseLogStreams] -> ShowS
GetRelationalDatabaseLogStreams -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetRelationalDatabaseLogStreams] -> ShowS
$cshowList :: [GetRelationalDatabaseLogStreams] -> ShowS
show :: GetRelationalDatabaseLogStreams -> String
$cshow :: GetRelationalDatabaseLogStreams -> String
showsPrec :: Int -> GetRelationalDatabaseLogStreams -> ShowS
$cshowsPrec :: Int -> GetRelationalDatabaseLogStreams -> ShowS
Prelude.Show, forall x.
Rep GetRelationalDatabaseLogStreams x
-> GetRelationalDatabaseLogStreams
forall x.
GetRelationalDatabaseLogStreams
-> Rep GetRelationalDatabaseLogStreams x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetRelationalDatabaseLogStreams x
-> GetRelationalDatabaseLogStreams
$cfrom :: forall x.
GetRelationalDatabaseLogStreams
-> Rep GetRelationalDatabaseLogStreams x
Prelude.Generic)
newGetRelationalDatabaseLogStreams ::
Prelude.Text ->
GetRelationalDatabaseLogStreams
newGetRelationalDatabaseLogStreams :: Text -> GetRelationalDatabaseLogStreams
newGetRelationalDatabaseLogStreams
Text
pRelationalDatabaseName_ =
GetRelationalDatabaseLogStreams'
{ $sel:relationalDatabaseName:GetRelationalDatabaseLogStreams' :: Text
relationalDatabaseName =
Text
pRelationalDatabaseName_
}
getRelationalDatabaseLogStreams_relationalDatabaseName :: Lens.Lens' GetRelationalDatabaseLogStreams Prelude.Text
getRelationalDatabaseLogStreams_relationalDatabaseName :: Lens' GetRelationalDatabaseLogStreams Text
getRelationalDatabaseLogStreams_relationalDatabaseName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetRelationalDatabaseLogStreams' {Text
relationalDatabaseName :: Text
$sel:relationalDatabaseName:GetRelationalDatabaseLogStreams' :: GetRelationalDatabaseLogStreams -> Text
relationalDatabaseName} -> Text
relationalDatabaseName) (\s :: GetRelationalDatabaseLogStreams
s@GetRelationalDatabaseLogStreams' {} Text
a -> GetRelationalDatabaseLogStreams
s {$sel:relationalDatabaseName:GetRelationalDatabaseLogStreams' :: Text
relationalDatabaseName = Text
a} :: GetRelationalDatabaseLogStreams)
instance
Core.AWSRequest
GetRelationalDatabaseLogStreams
where
type
AWSResponse GetRelationalDatabaseLogStreams =
GetRelationalDatabaseLogStreamsResponse
request :: (Service -> Service)
-> GetRelationalDatabaseLogStreams
-> Request GetRelationalDatabaseLogStreams
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 GetRelationalDatabaseLogStreams
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse GetRelationalDatabaseLogStreams)))
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 -> GetRelationalDatabaseLogStreamsResponse
GetRelationalDatabaseLogStreamsResponse'
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
"logStreams" forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty)
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
GetRelationalDatabaseLogStreams
where
hashWithSalt :: Int -> GetRelationalDatabaseLogStreams -> Int
hashWithSalt
Int
_salt
GetRelationalDatabaseLogStreams' {Text
relationalDatabaseName :: Text
$sel:relationalDatabaseName:GetRelationalDatabaseLogStreams' :: GetRelationalDatabaseLogStreams -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
relationalDatabaseName
instance
Prelude.NFData
GetRelationalDatabaseLogStreams
where
rnf :: GetRelationalDatabaseLogStreams -> ()
rnf GetRelationalDatabaseLogStreams' {Text
relationalDatabaseName :: Text
$sel:relationalDatabaseName:GetRelationalDatabaseLogStreams' :: GetRelationalDatabaseLogStreams -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
relationalDatabaseName
instance
Data.ToHeaders
GetRelationalDatabaseLogStreams
where
toHeaders :: GetRelationalDatabaseLogStreams -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"Lightsail_20161128.GetRelationalDatabaseLogStreams" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON GetRelationalDatabaseLogStreams where
toJSON :: GetRelationalDatabaseLogStreams -> Value
toJSON GetRelationalDatabaseLogStreams' {Text
relationalDatabaseName :: Text
$sel:relationalDatabaseName:GetRelationalDatabaseLogStreams' :: GetRelationalDatabaseLogStreams -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just
( Key
"relationalDatabaseName"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
relationalDatabaseName
)
]
)
instance Data.ToPath GetRelationalDatabaseLogStreams where
toPath :: GetRelationalDatabaseLogStreams -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery GetRelationalDatabaseLogStreams where
toQuery :: GetRelationalDatabaseLogStreams -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data GetRelationalDatabaseLogStreamsResponse = GetRelationalDatabaseLogStreamsResponse'
{
GetRelationalDatabaseLogStreamsResponse -> Maybe [Text]
logStreams :: Prelude.Maybe [Prelude.Text],
GetRelationalDatabaseLogStreamsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (GetRelationalDatabaseLogStreamsResponse
-> GetRelationalDatabaseLogStreamsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetRelationalDatabaseLogStreamsResponse
-> GetRelationalDatabaseLogStreamsResponse -> Bool
$c/= :: GetRelationalDatabaseLogStreamsResponse
-> GetRelationalDatabaseLogStreamsResponse -> Bool
== :: GetRelationalDatabaseLogStreamsResponse
-> GetRelationalDatabaseLogStreamsResponse -> Bool
$c== :: GetRelationalDatabaseLogStreamsResponse
-> GetRelationalDatabaseLogStreamsResponse -> Bool
Prelude.Eq, ReadPrec [GetRelationalDatabaseLogStreamsResponse]
ReadPrec GetRelationalDatabaseLogStreamsResponse
Int -> ReadS GetRelationalDatabaseLogStreamsResponse
ReadS [GetRelationalDatabaseLogStreamsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetRelationalDatabaseLogStreamsResponse]
$creadListPrec :: ReadPrec [GetRelationalDatabaseLogStreamsResponse]
readPrec :: ReadPrec GetRelationalDatabaseLogStreamsResponse
$creadPrec :: ReadPrec GetRelationalDatabaseLogStreamsResponse
readList :: ReadS [GetRelationalDatabaseLogStreamsResponse]
$creadList :: ReadS [GetRelationalDatabaseLogStreamsResponse]
readsPrec :: Int -> ReadS GetRelationalDatabaseLogStreamsResponse
$creadsPrec :: Int -> ReadS GetRelationalDatabaseLogStreamsResponse
Prelude.Read, Int -> GetRelationalDatabaseLogStreamsResponse -> ShowS
[GetRelationalDatabaseLogStreamsResponse] -> ShowS
GetRelationalDatabaseLogStreamsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetRelationalDatabaseLogStreamsResponse] -> ShowS
$cshowList :: [GetRelationalDatabaseLogStreamsResponse] -> ShowS
show :: GetRelationalDatabaseLogStreamsResponse -> String
$cshow :: GetRelationalDatabaseLogStreamsResponse -> String
showsPrec :: Int -> GetRelationalDatabaseLogStreamsResponse -> ShowS
$cshowsPrec :: Int -> GetRelationalDatabaseLogStreamsResponse -> ShowS
Prelude.Show, forall x.
Rep GetRelationalDatabaseLogStreamsResponse x
-> GetRelationalDatabaseLogStreamsResponse
forall x.
GetRelationalDatabaseLogStreamsResponse
-> Rep GetRelationalDatabaseLogStreamsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetRelationalDatabaseLogStreamsResponse x
-> GetRelationalDatabaseLogStreamsResponse
$cfrom :: forall x.
GetRelationalDatabaseLogStreamsResponse
-> Rep GetRelationalDatabaseLogStreamsResponse x
Prelude.Generic)
newGetRelationalDatabaseLogStreamsResponse ::
Prelude.Int ->
GetRelationalDatabaseLogStreamsResponse
newGetRelationalDatabaseLogStreamsResponse :: Int -> GetRelationalDatabaseLogStreamsResponse
newGetRelationalDatabaseLogStreamsResponse
Int
pHttpStatus_ =
GetRelationalDatabaseLogStreamsResponse'
{ $sel:logStreams:GetRelationalDatabaseLogStreamsResponse' :: Maybe [Text]
logStreams =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GetRelationalDatabaseLogStreamsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
getRelationalDatabaseLogStreamsResponse_logStreams :: Lens.Lens' GetRelationalDatabaseLogStreamsResponse (Prelude.Maybe [Prelude.Text])
getRelationalDatabaseLogStreamsResponse_logStreams :: Lens' GetRelationalDatabaseLogStreamsResponse (Maybe [Text])
getRelationalDatabaseLogStreamsResponse_logStreams = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetRelationalDatabaseLogStreamsResponse' {Maybe [Text]
logStreams :: Maybe [Text]
$sel:logStreams:GetRelationalDatabaseLogStreamsResponse' :: GetRelationalDatabaseLogStreamsResponse -> Maybe [Text]
logStreams} -> Maybe [Text]
logStreams) (\s :: GetRelationalDatabaseLogStreamsResponse
s@GetRelationalDatabaseLogStreamsResponse' {} Maybe [Text]
a -> GetRelationalDatabaseLogStreamsResponse
s {$sel:logStreams:GetRelationalDatabaseLogStreamsResponse' :: Maybe [Text]
logStreams = Maybe [Text]
a} :: GetRelationalDatabaseLogStreamsResponse) 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
getRelationalDatabaseLogStreamsResponse_httpStatus :: Lens.Lens' GetRelationalDatabaseLogStreamsResponse Prelude.Int
getRelationalDatabaseLogStreamsResponse_httpStatus :: Lens' GetRelationalDatabaseLogStreamsResponse Int
getRelationalDatabaseLogStreamsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetRelationalDatabaseLogStreamsResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetRelationalDatabaseLogStreamsResponse' :: GetRelationalDatabaseLogStreamsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetRelationalDatabaseLogStreamsResponse
s@GetRelationalDatabaseLogStreamsResponse' {} Int
a -> GetRelationalDatabaseLogStreamsResponse
s {$sel:httpStatus:GetRelationalDatabaseLogStreamsResponse' :: Int
httpStatus = Int
a} :: GetRelationalDatabaseLogStreamsResponse)
instance
Prelude.NFData
GetRelationalDatabaseLogStreamsResponse
where
rnf :: GetRelationalDatabaseLogStreamsResponse -> ()
rnf GetRelationalDatabaseLogStreamsResponse' {Int
Maybe [Text]
httpStatus :: Int
logStreams :: Maybe [Text]
$sel:httpStatus:GetRelationalDatabaseLogStreamsResponse' :: GetRelationalDatabaseLogStreamsResponse -> Int
$sel:logStreams:GetRelationalDatabaseLogStreamsResponse' :: GetRelationalDatabaseLogStreamsResponse -> Maybe [Text]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
logStreams
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus