ingted

import qualified Data.Map as DM
 
data Product = Product String Float deriving (Show)
type ProductMap = DM.Map String [Product]
type DiscountTimes = (ProductMap -> Int)
data Discount = Discount Float DiscountTimes
 
products :: [Product]
products = milk ++ marsBars
  where milk     = replicate 7 $ Product "milk" 1.30