diff --git a/src/Handler/Course.hs b/src/Handler/Course.hs index 4cc182a1c..7367151a2 100644 --- a/src/Handler/Course.hs +++ b/src/Handler/Course.hs @@ -211,9 +211,8 @@ makeCourseTable whereClause colChoices psValidator = do ] , dbtStyle = def { dbsFilterLayout = defaultDBSFilterLayout - -- DBSTCourse :: Lens' r (Entity Course) -> Traversal' r ([Entity User]) -> Lens' r Bool -> DBSTemplateMode r , dbsCellTemplate = DBSTCourse (_dbrOutput . _1) (_dbrOutput . _5) (_dbrOutput . _3) - -- ^ course lens ^ lecturers traversal ^ isRegistered lens + -- ^ course ^ lecturer list ^ isRegistered } , dbtParams = def , dbtIdent = "courses" :: Text diff --git a/src/Handler/Utils/Table/Pagination/Utils.hs b/src/Handler/Utils/Table/Pagination/Utils.hs deleted file mode 100644 index 802daae02..000000000 --- a/src/Handler/Utils/Table/Pagination/Utils.hs +++ /dev/null @@ -1,3 +0,0 @@ -module Handler.Utils.Table.Pagination.Utils - ( - ) where \ No newline at end of file