User ident Text isAdmin Bool default=False UniqueUser ident deriving Show Eq 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)