24 lines
545 B
Haskell
24 lines
545 B
Haskell
|
module PioneerTypes
|
||
|
|
where
|
||
|
|
|
||
|
|
data Structure = Flag -- Flag
|
||
|
|
| Barrack -- Small
|
||
|
|
| Sawmill -- Medium
|
||
|
|
| Castle -- Large
|
||
|
|
|
||
|
|
data Amount = Infinite -- Neverending supply
|
||
|
|
| Finite Int -- Finite supply
|
||
|
|
|
||
|
|
-- Extremely preliminary, expand when needed
|
||
|
|
data Commodity = WoodPlank
|
||
|
|
| Sword
|
||
|
|
| Fish
|
||
|
|
|
||
|
|
data Resource = Coal
|
||
|
|
| Iron
|
||
|
|
| Gold
|
||
|
|
| Granite
|
||
|
|
| Water
|
||
|
|
| Fishes
|
||
|
|
deriving Eq
|