User
    ident Text
    balance Int
    timestamp Int
    email Text Maybe
    notify Bool default=False
    UniqueUser ident
    deriving Typeable Show
Beverage
    ident Text
    price Int
    amount Int
    alertAmount Int
    UniqueBeverage ident
    deriving Typeable Show
Transaction
    description Text
    amount Int
    time UTCTime
    deriving Typeable Show
Cashier
    balance Int
    created UTCTime default=now()
    deriving Typeable Show

 -- By default this file is used in Model.hs (which is imported by Foundation.hs)