26 lines
538 B
Text
26 lines
538 B
Text
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)
|