{-# LANGUAGE OverloadedStrings #-}

module Faker.TvShow.BoJackHorseman where

import Data.Text
import Faker
import Faker.Internal
import Faker.Provider.BoJackHorseman

character :: Fake Text
character :: Fake Text
character =
  (FakerSettings -> IO Text) -> Fake Text
forall a. (FakerSettings -> IO a) -> Fake a
Fake ((FakerSettings -> IO Text) -> Fake Text)
-> (FakerSettings -> IO Text) -> Fake Text
forall a b. (a -> b) -> a -> b
$
  Text
-> Text
-> (FakerSettings -> IO (Vector Text))
-> FakerSettings
-> IO Text
forall (m :: * -> *).
(MonadThrow m, MonadIO m) =>
Text
-> Text
-> (FakerSettings -> m (Vector Text))
-> FakerSettings
-> m Text
cachedRandomVec Text
"boJackHorseman" Text
"character" FakerSettings -> IO (Vector Text)
forall (m :: * -> *).
(MonadThrow m, MonadIO m) =>
FakerSettings -> m (Vector Text)
boJackHorsemanCharacterProvider

quote :: Fake Text
quote :: Fake Text
quote =
  (FakerSettings -> IO Text) -> Fake Text
forall a. (FakerSettings -> IO a) -> Fake a
Fake ((FakerSettings -> IO Text) -> Fake Text)
-> (FakerSettings -> IO Text) -> Fake Text
forall a b. (a -> b) -> a -> b
$ Text
-> Text
-> (FakerSettings -> IO (Vector Text))
-> FakerSettings
-> IO Text
forall (m :: * -> *).
(MonadThrow m, MonadIO m) =>
Text
-> Text
-> (FakerSettings -> m (Vector Text))
-> FakerSettings
-> m Text
cachedRandomVec Text
"boJackHorseman" Text
"quote" FakerSettings -> IO (Vector Text)
forall (m :: * -> *).
(MonadThrow m, MonadIO m) =>
FakerSettings -> m (Vector Text)
boJackHorsemanQuoteProvider

tongueTwister :: Fake Text
tongueTwister :: Fake Text
tongueTwister =
  (FakerSettings -> IO Text) -> Fake Text
forall a. (FakerSettings -> IO a) -> Fake a
Fake ((FakerSettings -> IO Text) -> Fake Text)
-> (FakerSettings -> IO Text) -> Fake Text
forall a b. (a -> b) -> a -> b
$
  Text
-> Text
-> (FakerSettings -> IO (Vector Text))
-> FakerSettings
-> IO Text
forall (m :: * -> *).
(MonadThrow m, MonadIO m) =>
Text
-> Text
-> (FakerSettings -> m (Vector Text))
-> FakerSettings
-> m Text
cachedRandomVec Text
"boJackHorseman" Text
"quote" FakerSettings -> IO (Vector Text)
forall (m :: * -> *).
(MonadThrow m, MonadIO m) =>
FakerSettings -> m (Vector Text)
boJackHorsemanTongueTwisterProvider