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

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