{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TemplateHaskell #-}
module Faker.Provider.Company where
import Config
import Control.Monad.Catch
import Control.Monad.IO.Class
import Data.Map.Strict (Map)
import Data.Monoid ((<>))
import Data.Text (Text)
import Data.Vector (Vector)
import Data.Yaml
import Faker
import Faker.Internal
import Faker.Provider.Name (nameLastNameProvider, resolveNameText, resolveNameField)
import Faker.Provider.Address (villageProvider, communityProvider2, cityProvider2, resolveAddressField)
import Faker.Provider.TH
import Language.Haskell.TH
parseCompany :: FromJSON a => FakerSettings -> Value -> Parser a
parseCompany :: forall a. FromJSON a => FakerSettings -> Value -> Parser a
parseCompany FakerSettings
settings (Object Object
obj) = do
Object
en <- Object
obj Object -> Key -> Parser Object
forall a. FromJSON a => Object -> Key -> Parser a
.: (FakerSettings -> Key
getLocaleKey FakerSettings
settings)
Object
faker <- Object
en Object -> Key -> Parser Object
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"faker"
a
company <- Object
faker Object -> Key -> Parser a
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"company"
a -> Parser a
forall a. a -> Parser a
forall (f :: * -> *) a. Applicative f => a -> f a
pure a
company
parseCompany FakerSettings
settings Value
val = String -> Parser a
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> Parser a) -> String -> Parser a
forall a b. (a -> b) -> a -> b
$ String
"expected Object, but got " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> (Value -> String
forall a. Show a => a -> String
show Value
val)
parseCompanyField ::
(FromJSON a, Monoid a) => FakerSettings -> AesonKey -> Value -> Parser a
parseCompanyField :: forall a.
(FromJSON a, Monoid a) =>
FakerSettings -> Key -> Value -> Parser a
parseCompanyField FakerSettings
settings Key
txt Value
val = do
Object
company <- FakerSettings -> Value -> Parser Object
forall a. FromJSON a => FakerSettings -> Value -> Parser a
parseCompany FakerSettings
settings Value
val
a
field <- Object
company Object -> Key -> Parser (Maybe a)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
txt Parser (Maybe a) -> a -> Parser a
forall a. Parser (Maybe a) -> a -> Parser a
.!= a
forall a. Monoid a => a
mempty
a -> Parser a
forall a. a -> Parser a
forall (f :: * -> *) a. Applicative f => a -> f a
pure a
field
parseUnresolvedCompanyField ::
(FromJSON a, Monoid a)
=> FakerSettings
-> AesonKey
-> Value
-> Parser (Unresolved a)
parseUnresolvedCompanyField :: forall a.
(FromJSON a, Monoid a) =>
FakerSettings -> Key -> Value -> Parser (Unresolved a)
parseUnresolvedCompanyField FakerSettings
settings Key
txt Value
val = do
Object
company <- FakerSettings -> Value -> Parser Object
forall a. FromJSON a => FakerSettings -> Value -> Parser a
parseCompany FakerSettings
settings Value
val
a
field <- Object
company Object -> Key -> Parser (Maybe a)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
txt Parser (Maybe a) -> a -> Parser a
forall a. Parser (Maybe a) -> a -> Parser a
.!= a
forall a. Monoid a => a
mempty
Unresolved a -> Parser (Unresolved a)
forall a. a -> Parser a
forall (f :: * -> *) a. Applicative f => a -> f a
pure (Unresolved a -> Parser (Unresolved a))
-> Unresolved a -> Parser (Unresolved a)
forall a b. (a -> b) -> a -> b
$ a -> Unresolved a
forall a. a -> Unresolved a
forall (f :: * -> *) a. Applicative f => a -> f a
pure a
field
$(genParser "company" "suffix")
$(genProvider "company" "suffix")
$(genParser "company" "buzzwords")
companyBuzzwordsProvider ::
(MonadThrow m, MonadIO m) => FakerSettings -> m (Vector (Vector Text))
companyBuzzwordsProvider :: forall (m :: * -> *).
(MonadThrow m, MonadIO m) =>
FakerSettings -> m (Vector (Vector Text))
companyBuzzwordsProvider FakerSettings
settings =
FakerSettings
-> SourceData
-> (FakerSettings -> Value -> Parser (Vector (Vector Text)))
-> m (Vector (Vector Text))
forall (m :: * -> *) a.
(MonadThrow m, MonadIO m) =>
FakerSettings
-> SourceData -> (FakerSettings -> Value -> Parser a) -> m a
fetchData FakerSettings
settings SourceData
Company FakerSettings -> Value -> Parser (Vector (Vector Text))
forall a.
(FromJSON a, Monoid a) =>
FakerSettings -> Value -> Parser a
parseCompanyBuzzwords
$(genParser "company" "bs")
companyBsProvider ::
(MonadThrow m, MonadIO m) => FakerSettings -> m (Vector (Vector Text))
companyBsProvider :: forall (m :: * -> *).
(MonadThrow m, MonadIO m) =>
FakerSettings -> m (Vector (Vector Text))
companyBsProvider FakerSettings
settings = FakerSettings
-> SourceData
-> (FakerSettings -> Value -> Parser (Vector (Vector Text)))
-> m (Vector (Vector Text))
forall (m :: * -> *) a.
(MonadThrow m, MonadIO m) =>
FakerSettings
-> SourceData -> (FakerSettings -> Value -> Parser a) -> m a
fetchData FakerSettings
settings SourceData
Company FakerSettings -> Value -> Parser (Vector (Vector Text))
forall a.
(FromJSON a, Monoid a) =>
FakerSettings -> Value -> Parser a
parseCompanyBs
$(genParserUnresolved "company" "name")
$(genProviderUnresolved "company" "name")
$(genParser "company" "industry")
$(genProvider "company" "industry")
$(genParser "company" "profession")
$(genProvider "company" "profession")
$(genParser "company" "type")
$(genProvider "company" "type")
$(genParser "company" "company_names")
$(genProvider "company" "company_names")
$(genParser "company" "prefix")
$(genProvider "company" "prefix")
$(genParser "company" "sic_code")
$(genProvider "company" "sic_code")
$(genParser "company" "category")
$(genProvider "company" "category")
resolveCompanyText ::
(MonadIO m, MonadThrow m) => FakerSettings -> AesonKey -> m Text
resolveCompanyText :: forall (m :: * -> *).
(MonadIO m, MonadThrow m) =>
FakerSettings -> Key -> m Text
resolveCompanyText = (FakerSettings -> Key -> m Text) -> FakerSettings -> Key -> m Text
forall (m :: * -> *).
(MonadIO m, MonadThrow m) =>
(FakerSettings -> Key -> m Text) -> FakerSettings -> Key -> m Text
genericResolver' FakerSettings -> Key -> m Text
forall (m :: * -> *).
(MonadThrow m, MonadIO m) =>
FakerSettings -> Key -> m Text
resolveCompanyField
resolveCompanyField ::
(MonadThrow m, MonadIO m) => FakerSettings -> AesonKey -> m Text
resolveCompanyField :: forall (m :: * -> *).
(MonadThrow m, MonadIO m) =>
FakerSettings -> Key -> m Text
resolveCompanyField FakerSettings
settings Key
"Name.last_name" =
Text
-> Key
-> (FakerSettings -> m (Vector Text))
-> FakerSettings
-> m Text
forall (m :: * -> *).
(MonadThrow m, MonadIO m) =>
Text
-> Key
-> (FakerSettings -> m (Vector Text))
-> FakerSettings
-> m Text
cachedRandomVec Text
"name" Key
"last_name" FakerSettings -> m (Vector Text)
forall (m :: * -> *).
(MonadThrow m, MonadIO m) =>
FakerSettings -> m (Vector Text)
nameLastNameProvider FakerSettings
settings
resolveCompanyField FakerSettings
settings Key
"Name.first_name" =
FakerSettings -> Key -> m Text
forall (m :: * -> *).
(MonadThrow m, MonadIO m) =>
FakerSettings -> Key -> m Text
resolveNameField FakerSettings
settings Key
"first_name"
resolveCompanyField FakerSettings
settings field :: Key
field@Key
"company_names" =
Text
-> Key
-> (FakerSettings -> m (Vector Text))
-> FakerSettings
-> m Text
forall (m :: * -> *).
(MonadThrow m, MonadIO m) =>
Text
-> Key
-> (FakerSettings -> m (Vector Text))
-> FakerSettings
-> m Text
cachedRandomVec Text
"company" Key
field FakerSettings -> m (Vector Text)
forall (m :: * -> *).
(MonadThrow m, MonadIO m) =>
FakerSettings -> m (Vector Text)
companyCompanyNamesProvider FakerSettings
settings
resolveCompanyField FakerSettings
settings field :: Key
field@Key
"suffix" =
Text
-> Key
-> (FakerSettings -> m (Vector Text))
-> FakerSettings
-> m Text
forall (m :: * -> *).
(MonadThrow m, MonadIO m) =>
Text
-> Key
-> (FakerSettings -> m (Vector Text))
-> FakerSettings
-> m Text
cachedRandomVec Text
"company" Key
field FakerSettings -> m (Vector Text)
forall (m :: * -> *).
(MonadThrow m, MonadIO m) =>
FakerSettings -> m (Vector Text)
companySuffixProvider FakerSettings
settings
resolveCompanyField FakerSettings
settings field :: Key
field@Key
"prefix" =
Text
-> Key
-> (FakerSettings -> m (Vector Text))
-> FakerSettings
-> m Text
forall (m :: * -> *).
(MonadThrow m, MonadIO m) =>
Text
-> Key
-> (FakerSettings -> m (Vector Text))
-> FakerSettings
-> m Text
cachedRandomVec Text
"company" Key
field FakerSettings -> m (Vector Text)
forall (m :: * -> *).
(MonadThrow m, MonadIO m) =>
FakerSettings -> m (Vector Text)
companyPrefixProvider FakerSettings
settings
resolveCompanyField FakerSettings
settings field :: Key
field@Key
"category" =
Text
-> Key
-> (FakerSettings -> m (Vector Text))
-> FakerSettings
-> m Text
forall (m :: * -> *).
(MonadThrow m, MonadIO m) =>
Text
-> Key
-> (FakerSettings -> m (Vector Text))
-> FakerSettings
-> m Text
cachedRandomVec Text
"company" Key
field FakerSettings -> m (Vector Text)
forall (m :: * -> *).
(MonadThrow m, MonadIO m) =>
FakerSettings -> m (Vector Text)
companyCategoryProvider FakerSettings
settings
resolveCompanyField FakerSettings
settings Key
"Address.village" =
Text
-> Key
-> (FakerSettings -> m (Vector Text))
-> FakerSettings
-> m Text
forall (m :: * -> *).
(MonadThrow m, MonadIO m) =>
Text
-> Key
-> (FakerSettings -> m (Vector Text))
-> FakerSettings
-> m Text
cachedRandomVec Text
"address" Key
"village" FakerSettings -> m (Vector Text)
forall (m :: * -> *).
(MonadThrow m, MonadIO m) =>
FakerSettings -> m (Vector Text)
villageProvider FakerSettings
settings
resolveCompanyField FakerSettings
settings Key
"Address.community" =
Text
-> Key
-> (FakerSettings -> m (Vector Text))
-> FakerSettings
-> m Text
forall (m :: * -> *).
(MonadThrow m, MonadIO m) =>
Text
-> Key
-> (FakerSettings -> m (Vector Text))
-> FakerSettings
-> m Text
cachedRandomVec Text
"address" Key
"community2" FakerSettings -> m (Vector Text)
forall (m :: * -> *).
(MonadThrow m, MonadIO m) =>
FakerSettings -> m (Vector Text)
communityProvider2 FakerSettings
settings
resolveCompanyField FakerSettings
settings Key
"Address.city_name" =
FakerSettings -> Key -> m Text
forall (m :: * -> *).
(MonadThrow m, MonadIO m) =>
FakerSettings -> Key -> m Text
resolveAddressField FakerSettings
settings Key
"city_name"
resolveCompanyField FakerSettings
settings Key
"Address.city" =
Text
-> Key
-> (FakerSettings -> m (Vector Text))
-> FakerSettings
-> m Text
forall (m :: * -> *).
(MonadThrow m, MonadIO m) =>
Text
-> Key
-> (FakerSettings -> m (Vector Text))
-> FakerSettings
-> m Text
cachedRandomVec Text
"address" Key
"city2" FakerSettings -> m (Vector Text)
forall (m :: * -> *).
(MonadThrow m, MonadIO m) =>
FakerSettings -> m (Vector Text)
cityProvider2 FakerSettings
settings
resolveCompanyField FakerSettings
settings Key
"Name.man_last_name" =
FakerSettings -> Key -> m Text
forall (m :: * -> *).
(MonadThrow m, MonadIO m) =>
FakerSettings -> Key -> m Text
resolveNameField FakerSettings
settings Key
"man_last_name"
resolveCompanyField FakerSettings
settings Key
"Name.male_first_name" =
FakerSettings -> Key -> m Text
forall (m :: * -> *).
(MonadThrow m, MonadIO m) =>
FakerSettings -> Key -> m Text
resolveNameField FakerSettings
settings Key
"male_first_name"
resolveCompanyField FakerSettings
settings Key
"Name.female_first_name" =
FakerSettings -> Key -> m Text
forall (m :: * -> *).
(MonadThrow m, MonadIO m) =>
FakerSettings -> Key -> m Text
resolveNameField FakerSettings
settings Key
"female_first_name"
resolveCompanyField FakerSettings
settings Key
"Name.male_last_name" =
FakerSettings -> Key -> m Text
forall (m :: * -> *).
(MonadThrow m, MonadIO m) =>
FakerSettings -> Key -> m Text
resolveNameField FakerSettings
settings Key
"male_last_name"
resolveCompanyField FakerSettings
settings field :: Key
field@Key
"product" = let
parser ::
(FromJSON a, Monoid a) => FakerSettings -> Value -> Parser a
parser :: forall a.
(FromJSON a, Monoid a) =>
FakerSettings -> Value -> Parser a
parser FakerSettings
settings = FakerSettings -> Key -> Value -> Parser a
forall a.
(FromJSON a, Monoid a) =>
FakerSettings -> Key -> Value -> Parser a
parseCompanyField FakerSettings
settings Key
field
provider :: FakerSettings -> m a
provider FakerSettings
settings = FakerSettings
-> SourceData -> (FakerSettings -> Value -> Parser a) -> m a
forall (m :: * -> *) a.
(MonadThrow m, MonadIO m) =>
FakerSettings
-> SourceData -> (FakerSettings -> Value -> Parser a) -> m a
fetchData FakerSettings
settings SourceData
Company FakerSettings -> Value -> Parser a
forall a.
(FromJSON a, Monoid a) =>
FakerSettings -> Value -> Parser a
parser
in Text
-> Key
-> (FakerSettings -> m (Vector Text))
-> FakerSettings
-> m Text
forall (m :: * -> *).
(MonadThrow m, MonadIO m) =>
Text
-> Key
-> (FakerSettings -> m (Vector Text))
-> FakerSettings
-> m Text
cachedRandomVec Text
"company" Key
field FakerSettings -> m (Vector Text)
forall {m :: * -> *} {a}.
(MonadThrow m, MonadIO m, FromJSON a, Monoid a) =>
FakerSettings -> m a
provider FakerSettings
settings
resolveCompanyField FakerSettings
settings Key
str = FakerException -> m Text
forall e a. (HasCallStack, Exception e) => e -> m a
forall (m :: * -> *) e a.
(MonadThrow m, HasCallStack, Exception e) =>
e -> m a
throwM (FakerException -> m Text) -> FakerException -> m Text
forall a b. (a -> b) -> a -> b
$ String -> Key -> FakerException
InvalidField String
"company" Key
str