Haskell Coffee Run

inventory.txt

InventoryItem "Lungo" 220
InventoryItem "Espresso" 200
InventoryItem "Latte" 270
InventoryItem "LatteXL" 350

Main.hs

import Shop

main = do
    contents <- getContents

    let
        inventory1 = inventoryFromFile contents
        shop1 = Shop "Simon Says" inventory1

    putStrLn $ show shop1

Makefile

Main: *.hs
	ghc --make *.hs

clean:
	rm Main *.hi *.o

run:
	cat inventory.txt | ./Main

.PHONY: clean run

Shop.hs

module Shop where

type ShopName = String

type ProductName = String
type ProductPrice = Int
data InventoryItem = InventoryItem ProductName ProductPrice deriving (Show, Read)

type Inventory = [InventoryItem]

data Shop = Shop ShopName Inventory deriving (Show, Read)

inventoryItemFromLine :: String -> InventoryItem
inventoryItemFromLine line = read line

inventoryFromFile :: String -> Inventory
inventoryFromFile file = map inventoryItemFromLine $ lines file

@hansott it compiles 💯 🚀

nice