From 66b97d6729c4feb94b0be50da43fcd3aa6c8c488 Mon Sep 17 00:00:00 2001 From: Sarah Vaupel Date: Wed, 24 Jul 2019 10:12:51 +0200 Subject: [PATCH] feat(course-teaser): final version of course-teaser for course list --- src/Handler/Course.hs | 3 +-- src/Handler/Utils/Table/Pagination/Utils.hs | 3 --- 2 files changed, 1 insertion(+), 5 deletions(-) delete mode 100644 src/Handler/Utils/Table/Pagination/Utils.hs 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