{-# 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.LakeFormation.GetResourceLFTags
(
GetResourceLFTags (..),
newGetResourceLFTags,
getResourceLFTags_catalogId,
getResourceLFTags_showAssignedLFTags,
getResourceLFTags_resource,
GetResourceLFTagsResponse (..),
newGetResourceLFTagsResponse,
getResourceLFTagsResponse_lFTagOnDatabase,
getResourceLFTagsResponse_lFTagsOnColumns,
getResourceLFTagsResponse_lFTagsOnTable,
getResourceLFTagsResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.LakeFormation.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data GetResourceLFTags = GetResourceLFTags'
{
GetResourceLFTags -> Maybe Text
catalogId :: Prelude.Maybe Prelude.Text,
GetResourceLFTags -> Maybe Bool
showAssignedLFTags :: Prelude.Maybe Prelude.Bool,
GetResourceLFTags -> Resource
resource :: Resource
}
deriving (GetResourceLFTags -> GetResourceLFTags -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetResourceLFTags -> GetResourceLFTags -> Bool
$c/= :: GetResourceLFTags -> GetResourceLFTags -> Bool
== :: GetResourceLFTags -> GetResourceLFTags -> Bool
$c== :: GetResourceLFTags -> GetResourceLFTags -> Bool
Prelude.Eq, ReadPrec [GetResourceLFTags]
ReadPrec GetResourceLFTags
Int -> ReadS GetResourceLFTags
ReadS [GetResourceLFTags]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetResourceLFTags]
$creadListPrec :: ReadPrec [GetResourceLFTags]
readPrec :: ReadPrec GetResourceLFTags
$creadPrec :: ReadPrec GetResourceLFTags
readList :: ReadS [GetResourceLFTags]
$creadList :: ReadS [GetResourceLFTags]
readsPrec :: Int -> ReadS GetResourceLFTags
$creadsPrec :: Int -> ReadS GetResourceLFTags
Prelude.Read, Int -> GetResourceLFTags -> ShowS
[GetResourceLFTags] -> ShowS
GetResourceLFTags -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetResourceLFTags] -> ShowS
$cshowList :: [GetResourceLFTags] -> ShowS
show :: GetResourceLFTags -> String
$cshow :: GetResourceLFTags -> String
showsPrec :: Int -> GetResourceLFTags -> ShowS
$cshowsPrec :: Int -> GetResourceLFTags -> ShowS
Prelude.Show, forall x. Rep GetResourceLFTags x -> GetResourceLFTags
forall x. GetResourceLFTags -> Rep GetResourceLFTags x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep GetResourceLFTags x -> GetResourceLFTags
$cfrom :: forall x. GetResourceLFTags -> Rep GetResourceLFTags x
Prelude.Generic)
newGetResourceLFTags ::
Resource ->
GetResourceLFTags
newGetResourceLFTags :: Resource -> GetResourceLFTags
newGetResourceLFTags Resource
pResource_ =
GetResourceLFTags'
{ $sel:catalogId:GetResourceLFTags' :: Maybe Text
catalogId = forall a. Maybe a
Prelude.Nothing,
$sel:showAssignedLFTags:GetResourceLFTags' :: Maybe Bool
showAssignedLFTags = forall a. Maybe a
Prelude.Nothing,
$sel:resource:GetResourceLFTags' :: Resource
resource = Resource
pResource_
}
getResourceLFTags_catalogId :: Lens.Lens' GetResourceLFTags (Prelude.Maybe Prelude.Text)
getResourceLFTags_catalogId :: Lens' GetResourceLFTags (Maybe Text)
getResourceLFTags_catalogId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetResourceLFTags' {Maybe Text
catalogId :: Maybe Text
$sel:catalogId:GetResourceLFTags' :: GetResourceLFTags -> Maybe Text
catalogId} -> Maybe Text
catalogId) (\s :: GetResourceLFTags
s@GetResourceLFTags' {} Maybe Text
a -> GetResourceLFTags
s {$sel:catalogId:GetResourceLFTags' :: Maybe Text
catalogId = Maybe Text
a} :: GetResourceLFTags)
getResourceLFTags_showAssignedLFTags :: Lens.Lens' GetResourceLFTags (Prelude.Maybe Prelude.Bool)
getResourceLFTags_showAssignedLFTags :: Lens' GetResourceLFTags (Maybe Bool)
getResourceLFTags_showAssignedLFTags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetResourceLFTags' {Maybe Bool
showAssignedLFTags :: Maybe Bool
$sel:showAssignedLFTags:GetResourceLFTags' :: GetResourceLFTags -> Maybe Bool
showAssignedLFTags} -> Maybe Bool
showAssignedLFTags) (\s :: GetResourceLFTags
s@GetResourceLFTags' {} Maybe Bool
a -> GetResourceLFTags
s {$sel:showAssignedLFTags:GetResourceLFTags' :: Maybe Bool
showAssignedLFTags = Maybe Bool
a} :: GetResourceLFTags)
getResourceLFTags_resource :: Lens.Lens' GetResourceLFTags Resource
getResourceLFTags_resource :: Lens' GetResourceLFTags Resource
getResourceLFTags_resource = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetResourceLFTags' {Resource
resource :: Resource
$sel:resource:GetResourceLFTags' :: GetResourceLFTags -> Resource
resource} -> Resource
resource) (\s :: GetResourceLFTags
s@GetResourceLFTags' {} Resource
a -> GetResourceLFTags
s {$sel:resource:GetResourceLFTags' :: Resource
resource = Resource
a} :: GetResourceLFTags)
instance Core.AWSRequest GetResourceLFTags where
type
AWSResponse GetResourceLFTags =
GetResourceLFTagsResponse
request :: (Service -> Service)
-> GetResourceLFTags -> Request GetResourceLFTags
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 GetResourceLFTags
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse GetResourceLFTags)))
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 (NonEmpty LFTagPair)
-> Maybe [ColumnLFTag]
-> Maybe (NonEmpty LFTagPair)
-> Int
-> GetResourceLFTagsResponse
GetResourceLFTagsResponse'
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
"LFTagOnDatabase")
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
"LFTagsOnColumns"
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.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"LFTagsOnTable")
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 GetResourceLFTags where
hashWithSalt :: Int -> GetResourceLFTags -> Int
hashWithSalt Int
_salt GetResourceLFTags' {Maybe Bool
Maybe Text
Resource
resource :: Resource
showAssignedLFTags :: Maybe Bool
catalogId :: Maybe Text
$sel:resource:GetResourceLFTags' :: GetResourceLFTags -> Resource
$sel:showAssignedLFTags:GetResourceLFTags' :: GetResourceLFTags -> Maybe Bool
$sel:catalogId:GetResourceLFTags' :: GetResourceLFTags -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
catalogId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
showAssignedLFTags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Resource
resource
instance Prelude.NFData GetResourceLFTags where
rnf :: GetResourceLFTags -> ()
rnf GetResourceLFTags' {Maybe Bool
Maybe Text
Resource
resource :: Resource
showAssignedLFTags :: Maybe Bool
catalogId :: Maybe Text
$sel:resource:GetResourceLFTags' :: GetResourceLFTags -> Resource
$sel:showAssignedLFTags:GetResourceLFTags' :: GetResourceLFTags -> Maybe Bool
$sel:catalogId:GetResourceLFTags' :: GetResourceLFTags -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
catalogId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
showAssignedLFTags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Resource
resource
instance Data.ToHeaders GetResourceLFTags where
toHeaders :: GetResourceLFTags -> 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 GetResourceLFTags where
toJSON :: GetResourceLFTags -> Value
toJSON GetResourceLFTags' {Maybe Bool
Maybe Text
Resource
resource :: Resource
showAssignedLFTags :: Maybe Bool
catalogId :: Maybe Text
$sel:resource:GetResourceLFTags' :: GetResourceLFTags -> Resource
$sel:showAssignedLFTags:GetResourceLFTags' :: GetResourceLFTags -> Maybe Bool
$sel:catalogId:GetResourceLFTags' :: GetResourceLFTags -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"CatalogId" 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 Text
catalogId,
(Key
"ShowAssignedLFTags" 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 Bool
showAssignedLFTags,
forall a. a -> Maybe a
Prelude.Just (Key
"Resource" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Resource
resource)
]
)
instance Data.ToPath GetResourceLFTags where
toPath :: GetResourceLFTags -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/GetResourceLFTags"
instance Data.ToQuery GetResourceLFTags where
toQuery :: GetResourceLFTags -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data GetResourceLFTagsResponse = GetResourceLFTagsResponse'
{
GetResourceLFTagsResponse -> Maybe (NonEmpty LFTagPair)
lFTagOnDatabase :: Prelude.Maybe (Prelude.NonEmpty LFTagPair),
GetResourceLFTagsResponse -> Maybe [ColumnLFTag]
lFTagsOnColumns :: Prelude.Maybe [ColumnLFTag],
GetResourceLFTagsResponse -> Maybe (NonEmpty LFTagPair)
lFTagsOnTable :: Prelude.Maybe (Prelude.NonEmpty LFTagPair),
GetResourceLFTagsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (GetResourceLFTagsResponse -> GetResourceLFTagsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetResourceLFTagsResponse -> GetResourceLFTagsResponse -> Bool
$c/= :: GetResourceLFTagsResponse -> GetResourceLFTagsResponse -> Bool
== :: GetResourceLFTagsResponse -> GetResourceLFTagsResponse -> Bool
$c== :: GetResourceLFTagsResponse -> GetResourceLFTagsResponse -> Bool
Prelude.Eq, ReadPrec [GetResourceLFTagsResponse]
ReadPrec GetResourceLFTagsResponse
Int -> ReadS GetResourceLFTagsResponse
ReadS [GetResourceLFTagsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetResourceLFTagsResponse]
$creadListPrec :: ReadPrec [GetResourceLFTagsResponse]
readPrec :: ReadPrec GetResourceLFTagsResponse
$creadPrec :: ReadPrec GetResourceLFTagsResponse
readList :: ReadS [GetResourceLFTagsResponse]
$creadList :: ReadS [GetResourceLFTagsResponse]
readsPrec :: Int -> ReadS GetResourceLFTagsResponse
$creadsPrec :: Int -> ReadS GetResourceLFTagsResponse
Prelude.Read, Int -> GetResourceLFTagsResponse -> ShowS
[GetResourceLFTagsResponse] -> ShowS
GetResourceLFTagsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetResourceLFTagsResponse] -> ShowS
$cshowList :: [GetResourceLFTagsResponse] -> ShowS
show :: GetResourceLFTagsResponse -> String
$cshow :: GetResourceLFTagsResponse -> String
showsPrec :: Int -> GetResourceLFTagsResponse -> ShowS
$cshowsPrec :: Int -> GetResourceLFTagsResponse -> ShowS
Prelude.Show, forall x.
Rep GetResourceLFTagsResponse x -> GetResourceLFTagsResponse
forall x.
GetResourceLFTagsResponse -> Rep GetResourceLFTagsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetResourceLFTagsResponse x -> GetResourceLFTagsResponse
$cfrom :: forall x.
GetResourceLFTagsResponse -> Rep GetResourceLFTagsResponse x
Prelude.Generic)
newGetResourceLFTagsResponse ::
Prelude.Int ->
GetResourceLFTagsResponse
newGetResourceLFTagsResponse :: Int -> GetResourceLFTagsResponse
newGetResourceLFTagsResponse Int
pHttpStatus_ =
GetResourceLFTagsResponse'
{ $sel:lFTagOnDatabase:GetResourceLFTagsResponse' :: Maybe (NonEmpty LFTagPair)
lFTagOnDatabase =
forall a. Maybe a
Prelude.Nothing,
$sel:lFTagsOnColumns:GetResourceLFTagsResponse' :: Maybe [ColumnLFTag]
lFTagsOnColumns = forall a. Maybe a
Prelude.Nothing,
$sel:lFTagsOnTable:GetResourceLFTagsResponse' :: Maybe (NonEmpty LFTagPair)
lFTagsOnTable = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GetResourceLFTagsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
getResourceLFTagsResponse_lFTagOnDatabase :: Lens.Lens' GetResourceLFTagsResponse (Prelude.Maybe (Prelude.NonEmpty LFTagPair))
getResourceLFTagsResponse_lFTagOnDatabase :: Lens' GetResourceLFTagsResponse (Maybe (NonEmpty LFTagPair))
getResourceLFTagsResponse_lFTagOnDatabase = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetResourceLFTagsResponse' {Maybe (NonEmpty LFTagPair)
lFTagOnDatabase :: Maybe (NonEmpty LFTagPair)
$sel:lFTagOnDatabase:GetResourceLFTagsResponse' :: GetResourceLFTagsResponse -> Maybe (NonEmpty LFTagPair)
lFTagOnDatabase} -> Maybe (NonEmpty LFTagPair)
lFTagOnDatabase) (\s :: GetResourceLFTagsResponse
s@GetResourceLFTagsResponse' {} Maybe (NonEmpty LFTagPair)
a -> GetResourceLFTagsResponse
s {$sel:lFTagOnDatabase:GetResourceLFTagsResponse' :: Maybe (NonEmpty LFTagPair)
lFTagOnDatabase = Maybe (NonEmpty LFTagPair)
a} :: GetResourceLFTagsResponse) 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
getResourceLFTagsResponse_lFTagsOnColumns :: Lens.Lens' GetResourceLFTagsResponse (Prelude.Maybe [ColumnLFTag])
getResourceLFTagsResponse_lFTagsOnColumns :: Lens' GetResourceLFTagsResponse (Maybe [ColumnLFTag])
getResourceLFTagsResponse_lFTagsOnColumns = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetResourceLFTagsResponse' {Maybe [ColumnLFTag]
lFTagsOnColumns :: Maybe [ColumnLFTag]
$sel:lFTagsOnColumns:GetResourceLFTagsResponse' :: GetResourceLFTagsResponse -> Maybe [ColumnLFTag]
lFTagsOnColumns} -> Maybe [ColumnLFTag]
lFTagsOnColumns) (\s :: GetResourceLFTagsResponse
s@GetResourceLFTagsResponse' {} Maybe [ColumnLFTag]
a -> GetResourceLFTagsResponse
s {$sel:lFTagsOnColumns:GetResourceLFTagsResponse' :: Maybe [ColumnLFTag]
lFTagsOnColumns = Maybe [ColumnLFTag]
a} :: GetResourceLFTagsResponse) 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
getResourceLFTagsResponse_lFTagsOnTable :: Lens.Lens' GetResourceLFTagsResponse (Prelude.Maybe (Prelude.NonEmpty LFTagPair))
getResourceLFTagsResponse_lFTagsOnTable :: Lens' GetResourceLFTagsResponse (Maybe (NonEmpty LFTagPair))
getResourceLFTagsResponse_lFTagsOnTable = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetResourceLFTagsResponse' {Maybe (NonEmpty LFTagPair)
lFTagsOnTable :: Maybe (NonEmpty LFTagPair)
$sel:lFTagsOnTable:GetResourceLFTagsResponse' :: GetResourceLFTagsResponse -> Maybe (NonEmpty LFTagPair)
lFTagsOnTable} -> Maybe (NonEmpty LFTagPair)
lFTagsOnTable) (\s :: GetResourceLFTagsResponse
s@GetResourceLFTagsResponse' {} Maybe (NonEmpty LFTagPair)
a -> GetResourceLFTagsResponse
s {$sel:lFTagsOnTable:GetResourceLFTagsResponse' :: Maybe (NonEmpty LFTagPair)
lFTagsOnTable = Maybe (NonEmpty LFTagPair)
a} :: GetResourceLFTagsResponse) 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
getResourceLFTagsResponse_httpStatus :: Lens.Lens' GetResourceLFTagsResponse Prelude.Int
getResourceLFTagsResponse_httpStatus :: Lens' GetResourceLFTagsResponse Int
getResourceLFTagsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetResourceLFTagsResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetResourceLFTagsResponse' :: GetResourceLFTagsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetResourceLFTagsResponse
s@GetResourceLFTagsResponse' {} Int
a -> GetResourceLFTagsResponse
s {$sel:httpStatus:GetResourceLFTagsResponse' :: Int
httpStatus = Int
a} :: GetResourceLFTagsResponse)
instance Prelude.NFData GetResourceLFTagsResponse where
rnf :: GetResourceLFTagsResponse -> ()
rnf GetResourceLFTagsResponse' {Int
Maybe [ColumnLFTag]
Maybe (NonEmpty LFTagPair)
httpStatus :: Int
lFTagsOnTable :: Maybe (NonEmpty LFTagPair)
lFTagsOnColumns :: Maybe [ColumnLFTag]
lFTagOnDatabase :: Maybe (NonEmpty LFTagPair)
$sel:httpStatus:GetResourceLFTagsResponse' :: GetResourceLFTagsResponse -> Int
$sel:lFTagsOnTable:GetResourceLFTagsResponse' :: GetResourceLFTagsResponse -> Maybe (NonEmpty LFTagPair)
$sel:lFTagsOnColumns:GetResourceLFTagsResponse' :: GetResourceLFTagsResponse -> Maybe [ColumnLFTag]
$sel:lFTagOnDatabase:GetResourceLFTagsResponse' :: GetResourceLFTagsResponse -> Maybe (NonEmpty LFTagPair)
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe (NonEmpty LFTagPair)
lFTagOnDatabase
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [ColumnLFTag]
lFTagsOnColumns
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (NonEmpty LFTagPair)
lFTagsOnTable
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus