diff --git a/src/Handler/Utils/Table/Pagination.hs b/src/Handler/Utils/Table/Pagination.hs index 9c0441ca4..d1d4d042f 100644 --- a/src/Handler/Utils/Table/Pagination.hs +++ b/src/Handler/Utils/Table/Pagination.hs @@ -529,7 +529,13 @@ data DBStyle r = DBStyle } 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 def = DBStyle