blob: 54723f02f27a37159dba4419b7e84cbd13e794a2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
User
ident Text
isAdmin Bool default=False
UniqueUser ident
deriving Show Eq Typeable
Employment
user UserId
startDate Day
endDate Day Maybe
commitment Double
TimeEntry
user UserId
category TimeCategoryId
day Day
hours Double
note Text
timestamp UTCTime
deriving Show Eq
TimeCategory
name Text
disabled Bool
UniqueTimeCategory name
deriving Show Eq
Assistant
assistant UserId
assisted UserId
deriving Show Eq
|
