module Octane.Data.Wheels (wheels) where
import Data.Function ((&))
import qualified Data.Bimap as Bimap
import qualified Data.Text as StrictText
wheels :: Bimap.Bimap Int StrictText.Text
wheels =
[ ("(Alpha Reward) Goldstone", 358)
, ("Alchemist", 374)
, ("Almas", 364)
, ("Armadillo", 618)
, ("Batmobile", 874)
, ("Bender", 360)
, ("Carriage", 549)
, ("Cog", 716)
, ("Cristiano", 386)
, ("DeLorean Time Machine", 609)
, ("Dieci", 363)
, ("Falco", 382)
, ("Foreman", 372)
, ("Grog", 613)
, ("Hogsticker", 719)
, ("Invader", 380)
, ("Lowrider", 369)
, ("Lucci", 361)
, ("Mountaineer", 375)
, ("Neptune", 370)
, ("Octavian", 379)
, ("OEM", 376)
, ("Rat Rod", 366)
, ("Ripper", 690)
, ("Scarab", 540)
, ("Servergate", 519)
, ("Spinner", 388)
, ("Spyder", 371)
, ("Stallion", 365)
, ("Stern", 368)
, ("Sunburt", 383)
, ("Sweet Tooth", 378)
, ("Tempest", 377)
, ("Tomahawk", 362)
, ("Trahere", 367)
, ("Tunica", 359)
, ("Veloce", 373)
, ("Vortex", 381)
, ("Zippy", 518)
] & map (\ (v, k) -> (k, StrictText.pack v)) & Bimap.fromList