Quick reskin

bartavelle · Jan 19, 2018 · 92b0b2d · 92b0b2d
1 parent 79950b6
commit 92b0b2d
Show file tree

Hide file tree

Showing 6 changed files with 94 additions and 94 deletions.
diff --git a/Startups/Base.hs b/Startups/Base.hs
@@ -35,20 +35,20 @@ data CompanySide = A | B
 data CompanyProfile = CompanyProfile Company CompanySide
                     deriving (Eq, Ord, Show)
 
-data Resource = Youthfulness -- ^ Glass
-              | Vision       -- ^ Papyrus
-              | Adoption     -- ^ Fabric
-              | Development  -- ^ Clay
-              | Operations   -- ^ Stone
-              | Marketing    -- ^ Wood
-              | Finance      -- ^ Ore
+data Resource = Hype        -- ^ Glass
+              | Vision      -- ^ Papyrus
+              | Adoption    -- ^ Fabric
+              | Development -- ^ Clay
+              | Operations  -- ^ Stone
+              | Marketing   -- ^ Wood
+              | Finance     -- ^ Ore
               deriving (Ord, Eq, Show, Enum, Bounded)
 
 baseResources :: S.Set Resource
 baseResources = S.fromList [Development, Operations, Marketing, Finance]
 
 advancedResources :: S.Set Resource
-advancedResources = S.fromList [Adoption, Vision, Youthfulness]
+advancedResources = S.fromList [Adoption, Vision, Hype]
 
 newtype Poacher = Poacher { getPoacher :: Integer }
     deriving (Ord, Eq, Num, Integral, Real, Enum, Show, FromJSON, ToJSON)