-- file: ch03/AltCustomer.hs

data Customer = Customer Int String [String]
                deriving (Show)


customerID :: Customer -> Int
customerID (Customer id _ _) = id

customerName :: Customer -> String
customerName (Customer _ name _) = name

customerAddress :: Customer -> [String]
customerAddress (Customer _ _ adress) = adress
