{-# 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.Glue.UpdateCrawler
(
UpdateCrawler (..),
newUpdateCrawler,
updateCrawler_classifiers,
updateCrawler_configuration,
updateCrawler_crawlerSecurityConfiguration,
updateCrawler_databaseName,
updateCrawler_description,
updateCrawler_lakeFormationConfiguration,
updateCrawler_lineageConfiguration,
updateCrawler_recrawlPolicy,
updateCrawler_role,
updateCrawler_schedule,
updateCrawler_schemaChangePolicy,
updateCrawler_tablePrefix,
updateCrawler_targets,
updateCrawler_name,
UpdateCrawlerResponse (..),
newUpdateCrawlerResponse,
updateCrawlerResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.Glue.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data UpdateCrawler = UpdateCrawler'
{
UpdateCrawler -> Maybe [Text]
classifiers :: Prelude.Maybe [Prelude.Text],
UpdateCrawler -> Maybe Text
configuration :: Prelude.Maybe Prelude.Text,
UpdateCrawler -> Maybe Text
crawlerSecurityConfiguration :: Prelude.Maybe Prelude.Text,
UpdateCrawler -> Maybe Text
databaseName :: Prelude.Maybe Prelude.Text,
UpdateCrawler -> Maybe Text
description :: Prelude.Maybe Prelude.Text,
UpdateCrawler -> Maybe LakeFormationConfiguration
lakeFormationConfiguration :: Prelude.Maybe LakeFormationConfiguration,
UpdateCrawler -> Maybe LineageConfiguration
lineageConfiguration :: Prelude.Maybe LineageConfiguration,
UpdateCrawler -> Maybe RecrawlPolicy
recrawlPolicy :: Prelude.Maybe RecrawlPolicy,
UpdateCrawler -> Maybe Text
role' :: Prelude.Maybe Prelude.Text,
UpdateCrawler -> Maybe Text
schedule :: Prelude.Maybe Prelude.Text,
UpdateCrawler -> Maybe SchemaChangePolicy
schemaChangePolicy :: Prelude.Maybe SchemaChangePolicy,
UpdateCrawler -> Maybe Text
tablePrefix :: Prelude.Maybe Prelude.Text,
UpdateCrawler -> Maybe CrawlerTargets
targets :: Prelude.Maybe CrawlerTargets,
UpdateCrawler -> Text
name :: Prelude.Text
}
deriving (UpdateCrawler -> UpdateCrawler -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateCrawler -> UpdateCrawler -> Bool
$c/= :: UpdateCrawler -> UpdateCrawler -> Bool
== :: UpdateCrawler -> UpdateCrawler -> Bool
$c== :: UpdateCrawler -> UpdateCrawler -> Bool
Prelude.Eq, ReadPrec [UpdateCrawler]
ReadPrec UpdateCrawler
Int -> ReadS UpdateCrawler
ReadS [UpdateCrawler]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateCrawler]
$creadListPrec :: ReadPrec [UpdateCrawler]
readPrec :: ReadPrec UpdateCrawler
$creadPrec :: ReadPrec UpdateCrawler
readList :: ReadS [UpdateCrawler]
$creadList :: ReadS [UpdateCrawler]
readsPrec :: Int -> ReadS UpdateCrawler
$creadsPrec :: Int -> ReadS UpdateCrawler
Prelude.Read, Int -> UpdateCrawler -> ShowS
[UpdateCrawler] -> ShowS
UpdateCrawler -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateCrawler] -> ShowS
$cshowList :: [UpdateCrawler] -> ShowS
show :: UpdateCrawler -> String
$cshow :: UpdateCrawler -> String
showsPrec :: Int -> UpdateCrawler -> ShowS
$cshowsPrec :: Int -> UpdateCrawler -> ShowS
Prelude.Show, forall x. Rep UpdateCrawler x -> UpdateCrawler
forall x. UpdateCrawler -> Rep UpdateCrawler x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep UpdateCrawler x -> UpdateCrawler
$cfrom :: forall x. UpdateCrawler -> Rep UpdateCrawler x
Prelude.Generic)
newUpdateCrawler ::
Prelude.Text ->
UpdateCrawler
newUpdateCrawler :: Text -> UpdateCrawler
newUpdateCrawler Text
pName_ =
UpdateCrawler'
{ $sel:classifiers:UpdateCrawler' :: Maybe [Text]
classifiers = forall a. Maybe a
Prelude.Nothing,
$sel:configuration:UpdateCrawler' :: Maybe Text
configuration = forall a. Maybe a
Prelude.Nothing,
$sel:crawlerSecurityConfiguration:UpdateCrawler' :: Maybe Text
crawlerSecurityConfiguration = forall a. Maybe a
Prelude.Nothing,
$sel:databaseName:UpdateCrawler' :: Maybe Text
databaseName = forall a. Maybe a
Prelude.Nothing,
$sel:description:UpdateCrawler' :: Maybe Text
description = forall a. Maybe a
Prelude.Nothing,
$sel:lakeFormationConfiguration:UpdateCrawler' :: Maybe LakeFormationConfiguration
lakeFormationConfiguration = forall a. Maybe a
Prelude.Nothing,
$sel:lineageConfiguration:UpdateCrawler' :: Maybe LineageConfiguration
lineageConfiguration = forall a. Maybe a
Prelude.Nothing,
$sel:recrawlPolicy:UpdateCrawler' :: Maybe RecrawlPolicy
recrawlPolicy = forall a. Maybe a
Prelude.Nothing,
$sel:role':UpdateCrawler' :: Maybe Text
role' = forall a. Maybe a
Prelude.Nothing,
$sel:schedule:UpdateCrawler' :: Maybe Text
schedule = forall a. Maybe a
Prelude.Nothing,
$sel:schemaChangePolicy:UpdateCrawler' :: Maybe SchemaChangePolicy
schemaChangePolicy = forall a. Maybe a
Prelude.Nothing,
$sel:tablePrefix:UpdateCrawler' :: Maybe Text
tablePrefix = forall a. Maybe a
Prelude.Nothing,
$sel:targets:UpdateCrawler' :: Maybe CrawlerTargets
targets = forall a. Maybe a
Prelude.Nothing,
$sel:name:UpdateCrawler' :: Text
name = Text
pName_
}
updateCrawler_classifiers :: Lens.Lens' UpdateCrawler (Prelude.Maybe [Prelude.Text])
updateCrawler_classifiers :: Lens' UpdateCrawler (Maybe [Text])
updateCrawler_classifiers = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateCrawler' {Maybe [Text]
classifiers :: Maybe [Text]
$sel:classifiers:UpdateCrawler' :: UpdateCrawler -> Maybe [Text]
classifiers} -> Maybe [Text]
classifiers) (\s :: UpdateCrawler
s@UpdateCrawler' {} Maybe [Text]
a -> UpdateCrawler
s {$sel:classifiers:UpdateCrawler' :: Maybe [Text]
classifiers = Maybe [Text]
a} :: UpdateCrawler) 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
updateCrawler_configuration :: Lens.Lens' UpdateCrawler (Prelude.Maybe Prelude.Text)
updateCrawler_configuration :: Lens' UpdateCrawler (Maybe Text)
updateCrawler_configuration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateCrawler' {Maybe Text
configuration :: Maybe Text
$sel:configuration:UpdateCrawler' :: UpdateCrawler -> Maybe Text
configuration} -> Maybe Text
configuration) (\s :: UpdateCrawler
s@UpdateCrawler' {} Maybe Text
a -> UpdateCrawler
s {$sel:configuration:UpdateCrawler' :: Maybe Text
configuration = Maybe Text
a} :: UpdateCrawler)
updateCrawler_crawlerSecurityConfiguration :: Lens.Lens' UpdateCrawler (Prelude.Maybe Prelude.Text)
updateCrawler_crawlerSecurityConfiguration :: Lens' UpdateCrawler (Maybe Text)
updateCrawler_crawlerSecurityConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateCrawler' {Maybe Text
crawlerSecurityConfiguration :: Maybe Text
$sel:crawlerSecurityConfiguration:UpdateCrawler' :: UpdateCrawler -> Maybe Text
crawlerSecurityConfiguration} -> Maybe Text
crawlerSecurityConfiguration) (\s :: UpdateCrawler
s@UpdateCrawler' {} Maybe Text
a -> UpdateCrawler
s {$sel:crawlerSecurityConfiguration:UpdateCrawler' :: Maybe Text
crawlerSecurityConfiguration = Maybe Text
a} :: UpdateCrawler)
updateCrawler_databaseName :: Lens.Lens' UpdateCrawler (Prelude.Maybe Prelude.Text)
updateCrawler_databaseName :: Lens' UpdateCrawler (Maybe Text)
updateCrawler_databaseName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateCrawler' {Maybe Text
databaseName :: Maybe Text
$sel:databaseName:UpdateCrawler' :: UpdateCrawler -> Maybe Text
databaseName} -> Maybe Text
databaseName) (\s :: UpdateCrawler
s@UpdateCrawler' {} Maybe Text
a -> UpdateCrawler
s {$sel:databaseName:UpdateCrawler' :: Maybe Text
databaseName = Maybe Text
a} :: UpdateCrawler)
updateCrawler_description :: Lens.Lens' UpdateCrawler (Prelude.Maybe Prelude.Text)
updateCrawler_description :: Lens' UpdateCrawler (Maybe Text)
updateCrawler_description = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateCrawler' {Maybe Text
description :: Maybe Text
$sel:description:UpdateCrawler' :: UpdateCrawler -> Maybe Text
description} -> Maybe Text
description) (\s :: UpdateCrawler
s@UpdateCrawler' {} Maybe Text
a -> UpdateCrawler
s {$sel:description:UpdateCrawler' :: Maybe Text
description = Maybe Text
a} :: UpdateCrawler)
updateCrawler_lakeFormationConfiguration :: Lens.Lens' UpdateCrawler (Prelude.Maybe LakeFormationConfiguration)
updateCrawler_lakeFormationConfiguration :: Lens' UpdateCrawler (Maybe LakeFormationConfiguration)
updateCrawler_lakeFormationConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateCrawler' {Maybe LakeFormationConfiguration
lakeFormationConfiguration :: Maybe LakeFormationConfiguration
$sel:lakeFormationConfiguration:UpdateCrawler' :: UpdateCrawler -> Maybe LakeFormationConfiguration
lakeFormationConfiguration} -> Maybe LakeFormationConfiguration
lakeFormationConfiguration) (\s :: UpdateCrawler
s@UpdateCrawler' {} Maybe LakeFormationConfiguration
a -> UpdateCrawler
s {$sel:lakeFormationConfiguration:UpdateCrawler' :: Maybe LakeFormationConfiguration
lakeFormationConfiguration = Maybe LakeFormationConfiguration
a} :: UpdateCrawler)
updateCrawler_lineageConfiguration :: Lens.Lens' UpdateCrawler (Prelude.Maybe LineageConfiguration)
updateCrawler_lineageConfiguration :: Lens' UpdateCrawler (Maybe LineageConfiguration)
updateCrawler_lineageConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateCrawler' {Maybe LineageConfiguration
lineageConfiguration :: Maybe LineageConfiguration
$sel:lineageConfiguration:UpdateCrawler' :: UpdateCrawler -> Maybe LineageConfiguration
lineageConfiguration} -> Maybe LineageConfiguration
lineageConfiguration) (\s :: UpdateCrawler
s@UpdateCrawler' {} Maybe LineageConfiguration
a -> UpdateCrawler
s {$sel:lineageConfiguration:UpdateCrawler' :: Maybe LineageConfiguration
lineageConfiguration = Maybe LineageConfiguration
a} :: UpdateCrawler)
updateCrawler_recrawlPolicy :: Lens.Lens' UpdateCrawler (Prelude.Maybe RecrawlPolicy)
updateCrawler_recrawlPolicy :: Lens' UpdateCrawler (Maybe RecrawlPolicy)
updateCrawler_recrawlPolicy = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateCrawler' {Maybe RecrawlPolicy
recrawlPolicy :: Maybe RecrawlPolicy
$sel:recrawlPolicy:UpdateCrawler' :: UpdateCrawler -> Maybe RecrawlPolicy
recrawlPolicy} -> Maybe RecrawlPolicy
recrawlPolicy) (\s :: UpdateCrawler
s@UpdateCrawler' {} Maybe RecrawlPolicy
a -> UpdateCrawler
s {$sel:recrawlPolicy:UpdateCrawler' :: Maybe RecrawlPolicy
recrawlPolicy = Maybe RecrawlPolicy
a} :: UpdateCrawler)
updateCrawler_role :: Lens.Lens' UpdateCrawler (Prelude.Maybe Prelude.Text)
updateCrawler_role :: Lens' UpdateCrawler (Maybe Text)
updateCrawler_role = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateCrawler' {Maybe Text
role' :: Maybe Text
$sel:role':UpdateCrawler' :: UpdateCrawler -> Maybe Text
role'} -> Maybe Text
role') (\s :: UpdateCrawler
s@UpdateCrawler' {} Maybe Text
a -> UpdateCrawler
s {$sel:role':UpdateCrawler' :: Maybe Text
role' = Maybe Text
a} :: UpdateCrawler)
updateCrawler_schedule :: Lens.Lens' UpdateCrawler (Prelude.Maybe Prelude.Text)
updateCrawler_schedule :: Lens' UpdateCrawler (Maybe Text)
updateCrawler_schedule = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateCrawler' {Maybe Text
schedule :: Maybe Text
$sel:schedule:UpdateCrawler' :: UpdateCrawler -> Maybe Text
schedule} -> Maybe Text
schedule) (\s :: UpdateCrawler
s@UpdateCrawler' {} Maybe Text
a -> UpdateCrawler
s {$sel:schedule:UpdateCrawler' :: Maybe Text
schedule = Maybe Text
a} :: UpdateCrawler)
updateCrawler_schemaChangePolicy :: Lens.Lens' UpdateCrawler (Prelude.Maybe SchemaChangePolicy)
updateCrawler_schemaChangePolicy :: Lens' UpdateCrawler (Maybe SchemaChangePolicy)
updateCrawler_schemaChangePolicy = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateCrawler' {Maybe SchemaChangePolicy
schemaChangePolicy :: Maybe SchemaChangePolicy
$sel:schemaChangePolicy:UpdateCrawler' :: UpdateCrawler -> Maybe SchemaChangePolicy
schemaChangePolicy} -> Maybe SchemaChangePolicy
schemaChangePolicy) (\s :: UpdateCrawler
s@UpdateCrawler' {} Maybe SchemaChangePolicy
a -> UpdateCrawler
s {$sel:schemaChangePolicy:UpdateCrawler' :: Maybe SchemaChangePolicy
schemaChangePolicy = Maybe SchemaChangePolicy
a} :: UpdateCrawler)
updateCrawler_tablePrefix :: Lens.Lens' UpdateCrawler (Prelude.Maybe Prelude.Text)
updateCrawler_tablePrefix :: Lens' UpdateCrawler (Maybe Text)
updateCrawler_tablePrefix = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateCrawler' {Maybe Text
tablePrefix :: Maybe Text
$sel:tablePrefix:UpdateCrawler' :: UpdateCrawler -> Maybe Text
tablePrefix} -> Maybe Text
tablePrefix) (\s :: UpdateCrawler
s@UpdateCrawler' {} Maybe Text
a -> UpdateCrawler
s {$sel:tablePrefix:UpdateCrawler' :: Maybe Text
tablePrefix = Maybe Text
a} :: UpdateCrawler)
updateCrawler_targets :: Lens.Lens' UpdateCrawler (Prelude.Maybe CrawlerTargets)
updateCrawler_targets :: Lens' UpdateCrawler (Maybe CrawlerTargets)
updateCrawler_targets = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateCrawler' {Maybe CrawlerTargets
targets :: Maybe CrawlerTargets
$sel:targets:UpdateCrawler' :: UpdateCrawler -> Maybe CrawlerTargets
targets} -> Maybe CrawlerTargets
targets) (\s :: UpdateCrawler
s@UpdateCrawler' {} Maybe CrawlerTargets
a -> UpdateCrawler
s {$sel:targets:UpdateCrawler' :: Maybe CrawlerTargets
targets = Maybe CrawlerTargets
a} :: UpdateCrawler)
updateCrawler_name :: Lens.Lens' UpdateCrawler Prelude.Text
updateCrawler_name :: Lens' UpdateCrawler Text
updateCrawler_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateCrawler' {Text
name :: Text
$sel:name:UpdateCrawler' :: UpdateCrawler -> Text
name} -> Text
name) (\s :: UpdateCrawler
s@UpdateCrawler' {} Text
a -> UpdateCrawler
s {$sel:name:UpdateCrawler' :: Text
name = Text
a} :: UpdateCrawler)
instance Core.AWSRequest UpdateCrawler where
type
AWSResponse UpdateCrawler =
UpdateCrawlerResponse
request :: (Service -> Service) -> UpdateCrawler -> Request UpdateCrawler
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 UpdateCrawler
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse UpdateCrawler)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> () -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveEmpty
( \Int
s ResponseHeaders
h ()
x ->
Int -> UpdateCrawlerResponse
UpdateCrawlerResponse'
forall (f :: * -> *) a b. Functor 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 UpdateCrawler where
hashWithSalt :: Int -> UpdateCrawler -> Int
hashWithSalt Int
_salt UpdateCrawler' {Maybe [Text]
Maybe Text
Maybe LakeFormationConfiguration
Maybe LineageConfiguration
Maybe RecrawlPolicy
Maybe CrawlerTargets
Maybe SchemaChangePolicy
Text
name :: Text
targets :: Maybe CrawlerTargets
tablePrefix :: Maybe Text
schemaChangePolicy :: Maybe SchemaChangePolicy
schedule :: Maybe Text
role' :: Maybe Text
recrawlPolicy :: Maybe RecrawlPolicy
lineageConfiguration :: Maybe LineageConfiguration
lakeFormationConfiguration :: Maybe LakeFormationConfiguration
description :: Maybe Text
databaseName :: Maybe Text
crawlerSecurityConfiguration :: Maybe Text
configuration :: Maybe Text
classifiers :: Maybe [Text]
$sel:name:UpdateCrawler' :: UpdateCrawler -> Text
$sel:targets:UpdateCrawler' :: UpdateCrawler -> Maybe CrawlerTargets
$sel:tablePrefix:UpdateCrawler' :: UpdateCrawler -> Maybe Text
$sel:schemaChangePolicy:UpdateCrawler' :: UpdateCrawler -> Maybe SchemaChangePolicy
$sel:schedule:UpdateCrawler' :: UpdateCrawler -> Maybe Text
$sel:role':UpdateCrawler' :: UpdateCrawler -> Maybe Text
$sel:recrawlPolicy:UpdateCrawler' :: UpdateCrawler -> Maybe RecrawlPolicy
$sel:lineageConfiguration:UpdateCrawler' :: UpdateCrawler -> Maybe LineageConfiguration
$sel:lakeFormationConfiguration:UpdateCrawler' :: UpdateCrawler -> Maybe LakeFormationConfiguration
$sel:description:UpdateCrawler' :: UpdateCrawler -> Maybe Text
$sel:databaseName:UpdateCrawler' :: UpdateCrawler -> Maybe Text
$sel:crawlerSecurityConfiguration:UpdateCrawler' :: UpdateCrawler -> Maybe Text
$sel:configuration:UpdateCrawler' :: UpdateCrawler -> Maybe Text
$sel:classifiers:UpdateCrawler' :: UpdateCrawler -> Maybe [Text]
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
classifiers
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
configuration
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
crawlerSecurityConfiguration
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
databaseName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
description
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe LakeFormationConfiguration
lakeFormationConfiguration
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe LineageConfiguration
lineageConfiguration
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe RecrawlPolicy
recrawlPolicy
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
role'
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
schedule
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe SchemaChangePolicy
schemaChangePolicy
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
tablePrefix
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe CrawlerTargets
targets
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
name
instance Prelude.NFData UpdateCrawler where
rnf :: UpdateCrawler -> ()
rnf UpdateCrawler' {Maybe [Text]
Maybe Text
Maybe LakeFormationConfiguration
Maybe LineageConfiguration
Maybe RecrawlPolicy
Maybe CrawlerTargets
Maybe SchemaChangePolicy
Text
name :: Text
targets :: Maybe CrawlerTargets
tablePrefix :: Maybe Text
schemaChangePolicy :: Maybe SchemaChangePolicy
schedule :: Maybe Text
role' :: Maybe Text
recrawlPolicy :: Maybe RecrawlPolicy
lineageConfiguration :: Maybe LineageConfiguration
lakeFormationConfiguration :: Maybe LakeFormationConfiguration
description :: Maybe Text
databaseName :: Maybe Text
crawlerSecurityConfiguration :: Maybe Text
configuration :: Maybe Text
classifiers :: Maybe [Text]
$sel:name:UpdateCrawler' :: UpdateCrawler -> Text
$sel:targets:UpdateCrawler' :: UpdateCrawler -> Maybe CrawlerTargets
$sel:tablePrefix:UpdateCrawler' :: UpdateCrawler -> Maybe Text
$sel:schemaChangePolicy:UpdateCrawler' :: UpdateCrawler -> Maybe SchemaChangePolicy
$sel:schedule:UpdateCrawler' :: UpdateCrawler -> Maybe Text
$sel:role':UpdateCrawler' :: UpdateCrawler -> Maybe Text
$sel:recrawlPolicy:UpdateCrawler' :: UpdateCrawler -> Maybe RecrawlPolicy
$sel:lineageConfiguration:UpdateCrawler' :: UpdateCrawler -> Maybe LineageConfiguration
$sel:lakeFormationConfiguration:UpdateCrawler' :: UpdateCrawler -> Maybe LakeFormationConfiguration
$sel:description:UpdateCrawler' :: UpdateCrawler -> Maybe Text
$sel:databaseName:UpdateCrawler' :: UpdateCrawler -> Maybe Text
$sel:crawlerSecurityConfiguration:UpdateCrawler' :: UpdateCrawler -> Maybe Text
$sel:configuration:UpdateCrawler' :: UpdateCrawler -> Maybe Text
$sel:classifiers:UpdateCrawler' :: UpdateCrawler -> Maybe [Text]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
classifiers
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
configuration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
crawlerSecurityConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
databaseName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
description
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe LakeFormationConfiguration
lakeFormationConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe LineageConfiguration
lineageConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe RecrawlPolicy
recrawlPolicy
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
role'
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
schedule
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe SchemaChangePolicy
schemaChangePolicy
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
tablePrefix
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe CrawlerTargets
targets
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
name
instance Data.ToHeaders UpdateCrawler where
toHeaders :: UpdateCrawler -> 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
"AWSGlue.UpdateCrawler" :: 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 UpdateCrawler where
toJSON :: UpdateCrawler -> Value
toJSON UpdateCrawler' {Maybe [Text]
Maybe Text
Maybe LakeFormationConfiguration
Maybe LineageConfiguration
Maybe RecrawlPolicy
Maybe CrawlerTargets
Maybe SchemaChangePolicy
Text
name :: Text
targets :: Maybe CrawlerTargets
tablePrefix :: Maybe Text
schemaChangePolicy :: Maybe SchemaChangePolicy
schedule :: Maybe Text
role' :: Maybe Text
recrawlPolicy :: Maybe RecrawlPolicy
lineageConfiguration :: Maybe LineageConfiguration
lakeFormationConfiguration :: Maybe LakeFormationConfiguration
description :: Maybe Text
databaseName :: Maybe Text
crawlerSecurityConfiguration :: Maybe Text
configuration :: Maybe Text
classifiers :: Maybe [Text]
$sel:name:UpdateCrawler' :: UpdateCrawler -> Text
$sel:targets:UpdateCrawler' :: UpdateCrawler -> Maybe CrawlerTargets
$sel:tablePrefix:UpdateCrawler' :: UpdateCrawler -> Maybe Text
$sel:schemaChangePolicy:UpdateCrawler' :: UpdateCrawler -> Maybe SchemaChangePolicy
$sel:schedule:UpdateCrawler' :: UpdateCrawler -> Maybe Text
$sel:role':UpdateCrawler' :: UpdateCrawler -> Maybe Text
$sel:recrawlPolicy:UpdateCrawler' :: UpdateCrawler -> Maybe RecrawlPolicy
$sel:lineageConfiguration:UpdateCrawler' :: UpdateCrawler -> Maybe LineageConfiguration
$sel:lakeFormationConfiguration:UpdateCrawler' :: UpdateCrawler -> Maybe LakeFormationConfiguration
$sel:description:UpdateCrawler' :: UpdateCrawler -> Maybe Text
$sel:databaseName:UpdateCrawler' :: UpdateCrawler -> Maybe Text
$sel:crawlerSecurityConfiguration:UpdateCrawler' :: UpdateCrawler -> Maybe Text
$sel:configuration:UpdateCrawler' :: UpdateCrawler -> Maybe Text
$sel:classifiers:UpdateCrawler' :: UpdateCrawler -> Maybe [Text]
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"Classifiers" 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]
classifiers,
(Key
"Configuration" 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
configuration,
(Key
"CrawlerSecurityConfiguration" 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
crawlerSecurityConfiguration,
(Key
"DatabaseName" 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
databaseName,
(Key
"Description" 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
description,
(Key
"LakeFormationConfiguration" 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 LakeFormationConfiguration
lakeFormationConfiguration,
(Key
"LineageConfiguration" 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 LineageConfiguration
lineageConfiguration,
(Key
"RecrawlPolicy" 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 RecrawlPolicy
recrawlPolicy,
(Key
"Role" 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
role',
(Key
"Schedule" 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
schedule,
(Key
"SchemaChangePolicy" 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 SchemaChangePolicy
schemaChangePolicy,
(Key
"TablePrefix" 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
tablePrefix,
(Key
"Targets" 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 CrawlerTargets
targets,
forall a. a -> Maybe a
Prelude.Just (Key
"Name" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
name)
]
)
instance Data.ToPath UpdateCrawler where
toPath :: UpdateCrawler -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery UpdateCrawler where
toQuery :: UpdateCrawler -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data UpdateCrawlerResponse = UpdateCrawlerResponse'
{
UpdateCrawlerResponse -> Int
httpStatus :: Prelude.Int
}
deriving (UpdateCrawlerResponse -> UpdateCrawlerResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateCrawlerResponse -> UpdateCrawlerResponse -> Bool
$c/= :: UpdateCrawlerResponse -> UpdateCrawlerResponse -> Bool
== :: UpdateCrawlerResponse -> UpdateCrawlerResponse -> Bool
$c== :: UpdateCrawlerResponse -> UpdateCrawlerResponse -> Bool
Prelude.Eq, ReadPrec [UpdateCrawlerResponse]
ReadPrec UpdateCrawlerResponse
Int -> ReadS UpdateCrawlerResponse
ReadS [UpdateCrawlerResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateCrawlerResponse]
$creadListPrec :: ReadPrec [UpdateCrawlerResponse]
readPrec :: ReadPrec UpdateCrawlerResponse
$creadPrec :: ReadPrec UpdateCrawlerResponse
readList :: ReadS [UpdateCrawlerResponse]
$creadList :: ReadS [UpdateCrawlerResponse]
readsPrec :: Int -> ReadS UpdateCrawlerResponse
$creadsPrec :: Int -> ReadS UpdateCrawlerResponse
Prelude.Read, Int -> UpdateCrawlerResponse -> ShowS
[UpdateCrawlerResponse] -> ShowS
UpdateCrawlerResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateCrawlerResponse] -> ShowS
$cshowList :: [UpdateCrawlerResponse] -> ShowS
show :: UpdateCrawlerResponse -> String
$cshow :: UpdateCrawlerResponse -> String
showsPrec :: Int -> UpdateCrawlerResponse -> ShowS
$cshowsPrec :: Int -> UpdateCrawlerResponse -> ShowS
Prelude.Show, forall x. Rep UpdateCrawlerResponse x -> UpdateCrawlerResponse
forall x. UpdateCrawlerResponse -> Rep UpdateCrawlerResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep UpdateCrawlerResponse x -> UpdateCrawlerResponse
$cfrom :: forall x. UpdateCrawlerResponse -> Rep UpdateCrawlerResponse x
Prelude.Generic)
newUpdateCrawlerResponse ::
Prelude.Int ->
UpdateCrawlerResponse
newUpdateCrawlerResponse :: Int -> UpdateCrawlerResponse
newUpdateCrawlerResponse Int
pHttpStatus_ =
UpdateCrawlerResponse' {$sel:httpStatus:UpdateCrawlerResponse' :: Int
httpStatus = Int
pHttpStatus_}
updateCrawlerResponse_httpStatus :: Lens.Lens' UpdateCrawlerResponse Prelude.Int
updateCrawlerResponse_httpStatus :: Lens' UpdateCrawlerResponse Int
updateCrawlerResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateCrawlerResponse' {Int
httpStatus :: Int
$sel:httpStatus:UpdateCrawlerResponse' :: UpdateCrawlerResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: UpdateCrawlerResponse
s@UpdateCrawlerResponse' {} Int
a -> UpdateCrawlerResponse
s {$sel:httpStatus:UpdateCrawlerResponse' :: Int
httpStatus = Int
a} :: UpdateCrawlerResponse)
instance Prelude.NFData UpdateCrawlerResponse where
rnf :: UpdateCrawlerResponse -> ()
rnf UpdateCrawlerResponse' {Int
httpStatus :: Int
$sel:httpStatus:UpdateCrawlerResponse' :: UpdateCrawlerResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus