User
    ident Text
    isAdmin Bool default=False
    UniqueUser ident
    deriving Show Eq Typeable
Employment
    user UserId
    startDate Day
    endDate Day Maybe
    commitment Double
    ptoMaxRollover Double Maybe
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