inventoryList :: [(Item, Int)] -> Inventory
inventoryList items = Inventory (Map.fromList (map (\(item, count) -> (Item.name item, count)) items))
inventoryList :: [(Item, Int)] -> Inventory
inventoryList items = Inventory (Map.fromList (map (\(item, count) -> (Item.name item, count)) items))
inventoryList items = Inventory (Map.fromList (map (\(item, count) -> (Item.name item, count)) items))