-- Comp1100 Introduction to Programming and Algorithms

-- Example: Supermarket Docket
-- Sample Database module

-- Clem Baker-Finch March 2006
----------------------------------------------------------------------
module SampleDB where

import DB

-- A small sample database.

sampleDB :: Database
sampleDB = [ (4719, "Frozen Pizza" , 649),
             (4756, "Tissues" , 1280),
             (3814, "Hokkien Noodles", 205),
             (5823, "Ice Cream" , 579),
             (6012, "Lettuce (Iceberg)" , 179),
             (6832, "Rice, 5kg" , 499),
             (3216, "Ayam Chili Sauce", 350),
             (1111, "Tim Tams", 379),
             (3305, "Corn Flakes", 399),
             (1112, "Mars Bar", 160),
             (1234, "Chianti, 1lt", 1795)]

-- The findIt function particularises the find function
-- defined in the DB module to the sample Database above.

findIt :: BarCode -> (Name,Price)
findIt = find sampleDB

----------------------------------------------------------------------