nResOf :: Int -> ResourceType -> ResourceCount
nResOf i resType
  = case resType of
      Lumber -> mempty { lumber = i}
      Wool -> mempty { wool = i }
      Wheat -> mempty { wheat = i }
      Brick -> mempty { brick = i }
      Ore -> mempty { ore = i }      
nResOf :: Int -> ResourceType -> ResourceCount
nResOf i resType
  = case resType of
      Lumber -> mempty { lumber = i}
      Wool -> mempty { wool = i }
      Wheat -> mempty { wheat = i }
      Brick -> mempty { brick = i }
      Ore -> mempty { ore = i }      
nResOf i resType
  = case resType of
      Lumber -> mempty { lumber = i}
      Wool -> mempty { wool = i }
      Wheat -> mempty { wheat = i }
      Brick -> mempty { brick = i }
      Ore -> mempty { ore = i }      