module Stratosphere.Wisdom.KnowledgeBase.WebCrawlerConfigurationProperty (
module Exports, WebCrawlerConfigurationProperty(..),
mkWebCrawlerConfigurationProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.Wisdom.KnowledgeBase.CrawlerLimitsProperty as Exports
import {-# SOURCE #-} Stratosphere.Wisdom.KnowledgeBase.UrlConfigurationProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data WebCrawlerConfigurationProperty
=
WebCrawlerConfigurationProperty {WebCrawlerConfigurationProperty -> ()
haddock_workaround_ :: (),
WebCrawlerConfigurationProperty -> Maybe CrawlerLimitsProperty
crawlerLimits :: (Prelude.Maybe CrawlerLimitsProperty),
WebCrawlerConfigurationProperty -> Maybe (ValueList Text)
exclusionFilters :: (Prelude.Maybe (ValueList Prelude.Text)),
WebCrawlerConfigurationProperty -> Maybe (ValueList Text)
inclusionFilters :: (Prelude.Maybe (ValueList Prelude.Text)),
WebCrawlerConfigurationProperty -> Maybe (Value Text)
scope :: (Prelude.Maybe (Value Prelude.Text)),
WebCrawlerConfigurationProperty -> UrlConfigurationProperty
urlConfiguration :: UrlConfigurationProperty}
deriving stock (WebCrawlerConfigurationProperty
-> WebCrawlerConfigurationProperty -> Bool
(WebCrawlerConfigurationProperty
-> WebCrawlerConfigurationProperty -> Bool)
-> (WebCrawlerConfigurationProperty
-> WebCrawlerConfigurationProperty -> Bool)
-> Eq WebCrawlerConfigurationProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: WebCrawlerConfigurationProperty
-> WebCrawlerConfigurationProperty -> Bool
== :: WebCrawlerConfigurationProperty
-> WebCrawlerConfigurationProperty -> Bool
$c/= :: WebCrawlerConfigurationProperty
-> WebCrawlerConfigurationProperty -> Bool
/= :: WebCrawlerConfigurationProperty
-> WebCrawlerConfigurationProperty -> Bool
Prelude.Eq, Int -> WebCrawlerConfigurationProperty -> ShowS
[WebCrawlerConfigurationProperty] -> ShowS
WebCrawlerConfigurationProperty -> String
(Int -> WebCrawlerConfigurationProperty -> ShowS)
-> (WebCrawlerConfigurationProperty -> String)
-> ([WebCrawlerConfigurationProperty] -> ShowS)
-> Show WebCrawlerConfigurationProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> WebCrawlerConfigurationProperty -> ShowS
showsPrec :: Int -> WebCrawlerConfigurationProperty -> ShowS
$cshow :: WebCrawlerConfigurationProperty -> String
show :: WebCrawlerConfigurationProperty -> String
$cshowList :: [WebCrawlerConfigurationProperty] -> ShowS
showList :: [WebCrawlerConfigurationProperty] -> ShowS
Prelude.Show)
mkWebCrawlerConfigurationProperty ::
UrlConfigurationProperty -> WebCrawlerConfigurationProperty
mkWebCrawlerConfigurationProperty :: UrlConfigurationProperty -> WebCrawlerConfigurationProperty
mkWebCrawlerConfigurationProperty UrlConfigurationProperty
urlConfiguration
= WebCrawlerConfigurationProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (), urlConfiguration :: UrlConfigurationProperty
urlConfiguration = UrlConfigurationProperty
urlConfiguration,
crawlerLimits :: Maybe CrawlerLimitsProperty
crawlerLimits = Maybe CrawlerLimitsProperty
forall a. Maybe a
Prelude.Nothing,
exclusionFilters :: Maybe (ValueList Text)
exclusionFilters = Maybe (ValueList Text)
forall a. Maybe a
Prelude.Nothing,
inclusionFilters :: Maybe (ValueList Text)
inclusionFilters = Maybe (ValueList Text)
forall a. Maybe a
Prelude.Nothing, scope :: Maybe (Value Text)
scope = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties WebCrawlerConfigurationProperty where
toResourceProperties :: WebCrawlerConfigurationProperty -> ResourceProperties
toResourceProperties WebCrawlerConfigurationProperty {Maybe (ValueList Text)
Maybe (Value Text)
Maybe CrawlerLimitsProperty
()
UrlConfigurationProperty
haddock_workaround_ :: WebCrawlerConfigurationProperty -> ()
crawlerLimits :: WebCrawlerConfigurationProperty -> Maybe CrawlerLimitsProperty
exclusionFilters :: WebCrawlerConfigurationProperty -> Maybe (ValueList Text)
inclusionFilters :: WebCrawlerConfigurationProperty -> Maybe (ValueList Text)
scope :: WebCrawlerConfigurationProperty -> Maybe (Value Text)
urlConfiguration :: WebCrawlerConfigurationProperty -> UrlConfigurationProperty
haddock_workaround_ :: ()
crawlerLimits :: Maybe CrawlerLimitsProperty
exclusionFilters :: Maybe (ValueList Text)
inclusionFilters :: Maybe (ValueList Text)
scope :: Maybe (Value Text)
urlConfiguration :: UrlConfigurationProperty
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::Wisdom::KnowledgeBase.WebCrawlerConfiguration",
supportsTags :: Bool
supportsTags = Bool
Prelude.False,
properties :: Object
properties = [Item Object] -> Object
forall l. IsList l => [Item l] -> l
Prelude.fromList
([(Key, Value)] -> [(Key, Value)] -> [(Key, Value)]
forall a. Semigroup a => a -> a -> a
(Prelude.<>)
[Key
"UrlConfiguration" Key -> UrlConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= UrlConfigurationProperty
urlConfiguration]
([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
[Key -> CrawlerLimitsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"CrawlerLimits" (CrawlerLimitsProperty -> (Key, Value))
-> Maybe CrawlerLimitsProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe CrawlerLimitsProperty
crawlerLimits,
Key -> ValueList Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ExclusionFilters" (ValueList Text -> (Key, Value))
-> Maybe (ValueList Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (ValueList Text)
exclusionFilters,
Key -> ValueList Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"InclusionFilters" (ValueList Text -> (Key, Value))
-> Maybe (ValueList Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (ValueList Text)
inclusionFilters,
Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Scope" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
scope]))}
instance JSON.ToJSON WebCrawlerConfigurationProperty where
toJSON :: WebCrawlerConfigurationProperty -> Value
toJSON WebCrawlerConfigurationProperty {Maybe (ValueList Text)
Maybe (Value Text)
Maybe CrawlerLimitsProperty
()
UrlConfigurationProperty
haddock_workaround_ :: WebCrawlerConfigurationProperty -> ()
crawlerLimits :: WebCrawlerConfigurationProperty -> Maybe CrawlerLimitsProperty
exclusionFilters :: WebCrawlerConfigurationProperty -> Maybe (ValueList Text)
inclusionFilters :: WebCrawlerConfigurationProperty -> Maybe (ValueList Text)
scope :: WebCrawlerConfigurationProperty -> Maybe (Value Text)
urlConfiguration :: WebCrawlerConfigurationProperty -> UrlConfigurationProperty
haddock_workaround_ :: ()
crawlerLimits :: Maybe CrawlerLimitsProperty
exclusionFilters :: Maybe (ValueList Text)
inclusionFilters :: Maybe (ValueList Text)
scope :: Maybe (Value Text)
urlConfiguration :: UrlConfigurationProperty
..}
= [(Key, Value)] -> Value
JSON.object
([Item [(Key, Value)]] -> [(Key, Value)]
forall l. IsList l => [Item l] -> l
Prelude.fromList
([(Key, Value)] -> [(Key, Value)] -> [(Key, Value)]
forall a. Semigroup a => a -> a -> a
(Prelude.<>)
[Key
"UrlConfiguration" Key -> UrlConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= UrlConfigurationProperty
urlConfiguration]
([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
[Key -> CrawlerLimitsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"CrawlerLimits" (CrawlerLimitsProperty -> (Key, Value))
-> Maybe CrawlerLimitsProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe CrawlerLimitsProperty
crawlerLimits,
Key -> ValueList Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ExclusionFilters" (ValueList Text -> (Key, Value))
-> Maybe (ValueList Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (ValueList Text)
exclusionFilters,
Key -> ValueList Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"InclusionFilters" (ValueList Text -> (Key, Value))
-> Maybe (ValueList Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (ValueList Text)
inclusionFilters,
Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Scope" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
scope])))
instance Property "CrawlerLimits" WebCrawlerConfigurationProperty where
type PropertyType "CrawlerLimits" WebCrawlerConfigurationProperty = CrawlerLimitsProperty
set :: PropertyType "CrawlerLimits" WebCrawlerConfigurationProperty
-> WebCrawlerConfigurationProperty
-> WebCrawlerConfigurationProperty
set PropertyType "CrawlerLimits" WebCrawlerConfigurationProperty
newValue WebCrawlerConfigurationProperty {Maybe (ValueList Text)
Maybe (Value Text)
Maybe CrawlerLimitsProperty
()
UrlConfigurationProperty
haddock_workaround_ :: WebCrawlerConfigurationProperty -> ()
crawlerLimits :: WebCrawlerConfigurationProperty -> Maybe CrawlerLimitsProperty
exclusionFilters :: WebCrawlerConfigurationProperty -> Maybe (ValueList Text)
inclusionFilters :: WebCrawlerConfigurationProperty -> Maybe (ValueList Text)
scope :: WebCrawlerConfigurationProperty -> Maybe (Value Text)
urlConfiguration :: WebCrawlerConfigurationProperty -> UrlConfigurationProperty
haddock_workaround_ :: ()
crawlerLimits :: Maybe CrawlerLimitsProperty
exclusionFilters :: Maybe (ValueList Text)
inclusionFilters :: Maybe (ValueList Text)
scope :: Maybe (Value Text)
urlConfiguration :: UrlConfigurationProperty
..}
= WebCrawlerConfigurationProperty
{crawlerLimits :: Maybe CrawlerLimitsProperty
crawlerLimits = CrawlerLimitsProperty -> Maybe CrawlerLimitsProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "CrawlerLimits" WebCrawlerConfigurationProperty
CrawlerLimitsProperty
newValue, Maybe (ValueList Text)
Maybe (Value Text)
()
UrlConfigurationProperty
haddock_workaround_ :: ()
exclusionFilters :: Maybe (ValueList Text)
inclusionFilters :: Maybe (ValueList Text)
scope :: Maybe (Value Text)
urlConfiguration :: UrlConfigurationProperty
haddock_workaround_ :: ()
exclusionFilters :: Maybe (ValueList Text)
inclusionFilters :: Maybe (ValueList Text)
scope :: Maybe (Value Text)
urlConfiguration :: UrlConfigurationProperty
..}
instance Property "ExclusionFilters" WebCrawlerConfigurationProperty where
type PropertyType "ExclusionFilters" WebCrawlerConfigurationProperty = ValueList Prelude.Text
set :: PropertyType "ExclusionFilters" WebCrawlerConfigurationProperty
-> WebCrawlerConfigurationProperty
-> WebCrawlerConfigurationProperty
set PropertyType "ExclusionFilters" WebCrawlerConfigurationProperty
newValue WebCrawlerConfigurationProperty {Maybe (ValueList Text)
Maybe (Value Text)
Maybe CrawlerLimitsProperty
()
UrlConfigurationProperty
haddock_workaround_ :: WebCrawlerConfigurationProperty -> ()
crawlerLimits :: WebCrawlerConfigurationProperty -> Maybe CrawlerLimitsProperty
exclusionFilters :: WebCrawlerConfigurationProperty -> Maybe (ValueList Text)
inclusionFilters :: WebCrawlerConfigurationProperty -> Maybe (ValueList Text)
scope :: WebCrawlerConfigurationProperty -> Maybe (Value Text)
urlConfiguration :: WebCrawlerConfigurationProperty -> UrlConfigurationProperty
haddock_workaround_ :: ()
crawlerLimits :: Maybe CrawlerLimitsProperty
exclusionFilters :: Maybe (ValueList Text)
inclusionFilters :: Maybe (ValueList Text)
scope :: Maybe (Value Text)
urlConfiguration :: UrlConfigurationProperty
..}
= WebCrawlerConfigurationProperty
{exclusionFilters :: Maybe (ValueList Text)
exclusionFilters = ValueList Text -> Maybe (ValueList Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "ExclusionFilters" WebCrawlerConfigurationProperty
ValueList Text
newValue, Maybe (ValueList Text)
Maybe (Value Text)
Maybe CrawlerLimitsProperty
()
UrlConfigurationProperty
haddock_workaround_ :: ()
crawlerLimits :: Maybe CrawlerLimitsProperty
inclusionFilters :: Maybe (ValueList Text)
scope :: Maybe (Value Text)
urlConfiguration :: UrlConfigurationProperty
haddock_workaround_ :: ()
crawlerLimits :: Maybe CrawlerLimitsProperty
inclusionFilters :: Maybe (ValueList Text)
scope :: Maybe (Value Text)
urlConfiguration :: UrlConfigurationProperty
..}
instance Property "InclusionFilters" WebCrawlerConfigurationProperty where
type PropertyType "InclusionFilters" WebCrawlerConfigurationProperty = ValueList Prelude.Text
set :: PropertyType "InclusionFilters" WebCrawlerConfigurationProperty
-> WebCrawlerConfigurationProperty
-> WebCrawlerConfigurationProperty
set PropertyType "InclusionFilters" WebCrawlerConfigurationProperty
newValue WebCrawlerConfigurationProperty {Maybe (ValueList Text)
Maybe (Value Text)
Maybe CrawlerLimitsProperty
()
UrlConfigurationProperty
haddock_workaround_ :: WebCrawlerConfigurationProperty -> ()
crawlerLimits :: WebCrawlerConfigurationProperty -> Maybe CrawlerLimitsProperty
exclusionFilters :: WebCrawlerConfigurationProperty -> Maybe (ValueList Text)
inclusionFilters :: WebCrawlerConfigurationProperty -> Maybe (ValueList Text)
scope :: WebCrawlerConfigurationProperty -> Maybe (Value Text)
urlConfiguration :: WebCrawlerConfigurationProperty -> UrlConfigurationProperty
haddock_workaround_ :: ()
crawlerLimits :: Maybe CrawlerLimitsProperty
exclusionFilters :: Maybe (ValueList Text)
inclusionFilters :: Maybe (ValueList Text)
scope :: Maybe (Value Text)
urlConfiguration :: UrlConfigurationProperty
..}
= WebCrawlerConfigurationProperty
{inclusionFilters :: Maybe (ValueList Text)
inclusionFilters = ValueList Text -> Maybe (ValueList Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "InclusionFilters" WebCrawlerConfigurationProperty
ValueList Text
newValue, Maybe (ValueList Text)
Maybe (Value Text)
Maybe CrawlerLimitsProperty
()
UrlConfigurationProperty
haddock_workaround_ :: ()
crawlerLimits :: Maybe CrawlerLimitsProperty
exclusionFilters :: Maybe (ValueList Text)
scope :: Maybe (Value Text)
urlConfiguration :: UrlConfigurationProperty
haddock_workaround_ :: ()
crawlerLimits :: Maybe CrawlerLimitsProperty
exclusionFilters :: Maybe (ValueList Text)
scope :: Maybe (Value Text)
urlConfiguration :: UrlConfigurationProperty
..}
instance Property "Scope" WebCrawlerConfigurationProperty where
type PropertyType "Scope" WebCrawlerConfigurationProperty = Value Prelude.Text
set :: PropertyType "Scope" WebCrawlerConfigurationProperty
-> WebCrawlerConfigurationProperty
-> WebCrawlerConfigurationProperty
set PropertyType "Scope" WebCrawlerConfigurationProperty
newValue WebCrawlerConfigurationProperty {Maybe (ValueList Text)
Maybe (Value Text)
Maybe CrawlerLimitsProperty
()
UrlConfigurationProperty
haddock_workaround_ :: WebCrawlerConfigurationProperty -> ()
crawlerLimits :: WebCrawlerConfigurationProperty -> Maybe CrawlerLimitsProperty
exclusionFilters :: WebCrawlerConfigurationProperty -> Maybe (ValueList Text)
inclusionFilters :: WebCrawlerConfigurationProperty -> Maybe (ValueList Text)
scope :: WebCrawlerConfigurationProperty -> Maybe (Value Text)
urlConfiguration :: WebCrawlerConfigurationProperty -> UrlConfigurationProperty
haddock_workaround_ :: ()
crawlerLimits :: Maybe CrawlerLimitsProperty
exclusionFilters :: Maybe (ValueList Text)
inclusionFilters :: Maybe (ValueList Text)
scope :: Maybe (Value Text)
urlConfiguration :: UrlConfigurationProperty
..}
= WebCrawlerConfigurationProperty
{scope :: Maybe (Value Text)
scope = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Scope" WebCrawlerConfigurationProperty
Value Text
newValue, Maybe (ValueList Text)
Maybe CrawlerLimitsProperty
()
UrlConfigurationProperty
haddock_workaround_ :: ()
crawlerLimits :: Maybe CrawlerLimitsProperty
exclusionFilters :: Maybe (ValueList Text)
inclusionFilters :: Maybe (ValueList Text)
urlConfiguration :: UrlConfigurationProperty
haddock_workaround_ :: ()
crawlerLimits :: Maybe CrawlerLimitsProperty
exclusionFilters :: Maybe (ValueList Text)
inclusionFilters :: Maybe (ValueList Text)
urlConfiguration :: UrlConfigurationProperty
..}
instance Property "UrlConfiguration" WebCrawlerConfigurationProperty where
type PropertyType "UrlConfiguration" WebCrawlerConfigurationProperty = UrlConfigurationProperty
set :: PropertyType "UrlConfiguration" WebCrawlerConfigurationProperty
-> WebCrawlerConfigurationProperty
-> WebCrawlerConfigurationProperty
set PropertyType "UrlConfiguration" WebCrawlerConfigurationProperty
newValue WebCrawlerConfigurationProperty {Maybe (ValueList Text)
Maybe (Value Text)
Maybe CrawlerLimitsProperty
()
UrlConfigurationProperty
haddock_workaround_ :: WebCrawlerConfigurationProperty -> ()
crawlerLimits :: WebCrawlerConfigurationProperty -> Maybe CrawlerLimitsProperty
exclusionFilters :: WebCrawlerConfigurationProperty -> Maybe (ValueList Text)
inclusionFilters :: WebCrawlerConfigurationProperty -> Maybe (ValueList Text)
scope :: WebCrawlerConfigurationProperty -> Maybe (Value Text)
urlConfiguration :: WebCrawlerConfigurationProperty -> UrlConfigurationProperty
haddock_workaround_ :: ()
crawlerLimits :: Maybe CrawlerLimitsProperty
exclusionFilters :: Maybe (ValueList Text)
inclusionFilters :: Maybe (ValueList Text)
scope :: Maybe (Value Text)
urlConfiguration :: UrlConfigurationProperty
..}
= WebCrawlerConfigurationProperty {urlConfiguration :: UrlConfigurationProperty
urlConfiguration = PropertyType "UrlConfiguration" WebCrawlerConfigurationProperty
UrlConfigurationProperty
newValue, Maybe (ValueList Text)
Maybe (Value Text)
Maybe CrawlerLimitsProperty
()
haddock_workaround_ :: ()
crawlerLimits :: Maybe CrawlerLimitsProperty
exclusionFilters :: Maybe (ValueList Text)
inclusionFilters :: Maybe (ValueList Text)
scope :: Maybe (Value Text)
haddock_workaround_ :: ()
crawlerLimits :: Maybe CrawlerLimitsProperty
exclusionFilters :: Maybe (ValueList Text)
inclusionFilters :: Maybe (ValueList Text)
scope :: Maybe (Value Text)
..}