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