2015-04-04 04:46:33 +00:00
|
|
|
User
|
|
|
|
ident Text
|
|
|
|
balance Int
|
|
|
|
timestamp Int
|
2015-04-07 20:03:21 +00:00
|
|
|
email Text Maybe
|
|
|
|
notify Bool default=False
|
2015-04-04 04:46:33 +00:00
|
|
|
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
|
|
|
|
deriving Typeable Show
|
|
|
|
|
|
|
|
-- By default this file is used in Model.hs (which is imported by Foundation.hs)
|