-- Model solution for Lab08
--
-- Copyright [2001..2004] Manuel M. T. Chakravarty

module ProductDB (
  products
) where


import BookVideoCD (Title, Author, Artist, Product(..))


products :: [Product]
products  = [Book  "Snowcrash"           "Neil Stephenson"       ,
	     CD    "Death to the Pixies" "The Pixies"          17,
	     CD    "101 Damnations"      "Carter USM"          11,
	     Video "Underworld"			    ,
	     Book  "Consider Phlebas"    "Iain M. Banks"         ,
	     CD    "Empires"             "VNV Nation"          10,
	     Video "The Matrix"			                 ,
	     Book  "Excession"	         "Iain M. Banks"
	    ]