From c76e03126b768a6094696e57e7123ecd222d003f Mon Sep 17 00:00:00 2001
From: Jonas Betzendahl <jbetzend@techfak.uni-bielefeld.de>
Date: Mon, 10 Feb 2014 16:25:56 +0100
Subject: [PATCH] moar minor changes

---
 src/PioneerTypes.hs | 38 ++++++++++++++++++++++++++++++++++----
 1 file changed, 34 insertions(+), 4 deletions(-)

diff --git a/src/PioneerTypes.hs b/src/PioneerTypes.hs
index 1bd75a3..dc84fa5 100644
--- a/src/PioneerTypes.hs
+++ b/src/PioneerTypes.hs
@@ -1,10 +1,39 @@
 module PioneerTypes 
 where
 
-data Structure = Flag    -- Flag
-               | Barrack -- Small
-               | Sawmill -- Medium
-               | Castle  -- Large
+data Structure = Flag           -- Flag
+               | Woodcutter     -- Huts
+               | Forester
+               | Stonemason
+               | Fisher
+               | Hunter
+               | Barracks
+               | Guardhouse
+               | LookoutTower
+               | Well
+               | Sawmill        -- Houses
+               | Slaughterhouse
+               | Mill
+               | Bakery
+               | IronSmelter
+               | Metalworks
+               | Armory
+               | Mint
+               | Shipyard
+               | Brewery
+               | Storehouse
+               | Watchtower
+               | Catapult
+               | GoldMine       -- Mines
+               | IronMine
+               | GraniteMine
+               | CoalMine
+               | Farm           -- Castles
+               | PigFarm
+               | DonkeyBreeder
+               | Harbor
+               | Fortress
+               deriving Eq
 
 data Amount    = Infinite   -- Neverending supply
                | Finite Int -- Finite supply 
@@ -13,6 +42,7 @@ data Amount    = Infinite   -- Neverending supply
 data Commodity = WoodPlank
                | Sword
                | Fish
+               deriving Eq
 
 data Resource  = Coal
                | Iron