From 036d761ec80cebd3d6925da655c2e1b114fdc87a Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <>
Date: Mon, 10 Aug 2020 12:44:45 +0200
Subject: [PATCH] refactor(course-visibility): comment DBSTCourse

---
 src/Handler/Utils/Table/Pagination.hs | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

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