Vehicle.hs

{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE OverloadedStrings #-}

module Faker.Vehicle where

import Data.Text
import Faker
import Faker.Internal
import Faker.Provider.Vehicle
import Faker.TH

$(generateFakeField "vehicle" "manufacture")

$(generateFakeField "vehicle" "makes")

$(generateFakeField "vehicle" "colors")

$(generateFakeField "vehicle" "transmissions")

$(generateFakeField "vehicle" "drive_types")

$(generateFakeField "vehicle" "fuel_types")

$(generateFakeField "vehicle" "styles")

$(generateFakeField "vehicle" "car_types")

$(generateFakeField "vehicle" "car_options")

$(generateFakeField "vehicle" "standard_specs")

doors :: Fake Int
doors = Fake $ resolver vehicleDoorsProvider

engineSizes :: Fake Int
engineSizes = Fake $ resolver vehicleEngineSizesProvider

$(generateFakeFieldUnresolved "vehicle" "license_plate")

$(generateFakeFields "vehicle" ["models_by_make", "BMW"])

$(generateFakeFields "vehicle" ["models_by_make", "Audi"])

$(generateFakeFields "vehicle" ["models_by_make", "Toyota"])

$(generateFakeFields "vehicle" ["models_by_make", "Chevy"])

$(generateFakeFields "vehicle" ["models_by_make", "Ford"])

$(generateFakeFields "vehicle" ["models_by_make", "Dodge"])

$(generateFakeFields "vehicle" ["models_by_make", "Lincoln"])

$(generateFakeFields "vehicle" ["models_by_make", "Buick"])

$(generateFakeFields "vehicle" ["models_by_make", "Honda"])

$(generateFakeFields "vehicle" ["models_by_make", "Nissan"])