fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

refactor(course-visibility): comment DBSTCourse

Browse Source
This commit is contained in:
Sarah Vaupel 2020-08-10 12:44:45 +02:00
parent a7abe1231a
commit 036d761ec8
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Handler/Utils/Table/Pagination.hs
View File

@ -529,7 +529,13 @@ data DBStyle r = DBStyle
} }
data DBSTemplateMode r = DBSTDefault { dbstmNumber :: Int64 -> Bool, dbstmShowNumber :: Int64 -> Bool } data DBSTemplateMode r = DBSTDefault { dbstmNumber :: Int64 -> Bool, dbstmShowNumber :: Int64 -> Bool }
| DBSTCourse (Lens' r (Entity Course)) (Lens' r [Entity User]) (Lens' r Bool) (Lens' r (Entity School)) (Traversal' r (Entity Allocation)) (Lens' r Bool) | DBSTCourse
(Lens' r (Entity Course)) -- course
(Lens' r [Entity User]) -- lecturers
(Lens' r Bool) -- isRegistered
(Lens' r (Entity School)) -- school
(Traversal' r (Entity Allocation)) -- allocation
(Lens' r Bool) -- mayEditCourse
instance Default (DBStyle r) where instance Default (DBStyle r) where
def = DBStyle def = DBStyle