resourceFromTerrain :: Terrain -> ResourceCount
resourceFromTerrain t
  = case t of
      Forest -> mempty { lumber = 1 }
      Pasture -> mempty { wool = 1 }
      Field -> mempty { wheat = 1 }
      Hill  -> mempty { brick = 1 }
      Mountain -> mempty { ore = 1 }
      Desert -> mempty
resourceFromTerrain :: Terrain -> ResourceCount
resourceFromTerrain t
  = case t of
      Forest -> mempty { lumber = 1 }
      Pasture -> mempty { wool = 1 }
      Field -> mempty { wheat = 1 }
      Hill  -> mempty { brick = 1 }
      Mountain -> mempty { ore = 1 }
      Desert -> mempty
resourceFromTerrain t
  = case t of
      Forest -> mempty { lumber = 1 }
      Pasture -> mempty { wool = 1 }
      Field -> mempty { wheat = 1 }
      Hill  -> mempty { brick = 1 }
      Mountain -> mempty { ore = 1 }
      Desert -> mempty