feat(course): show study module on course overview page

src/Handler/Course/Show.hs

@@ -14,6 +14,7 @@ import Handler.Utils.Tutorial
 import qualified Data.CaseInsensitive as CI
 
 import qualified Data.Map as Map
+import qualified Data.Set as Set
 
 import qualified Database.Esqueleto.Legacy as E
 import qualified Database.Esqueleto.Utils as E

templates/course.hamlet

@@ -69,6 +69,20 @@ $#                     #{summary}
       <div>
         #{descr}
 
+  $if not (Set.null (courseStudyModules course))
+    <dt .deflist__dt>_{MsgCourseStudyModules}
+    <dd .deflist__dd>
+      <ul>
+        $forall studyModule <- Set.toList (courseStudyModules course)
+          <li>
+            $case studyModule
+              $of StudyModuleModule{..}
+                #{CI.original stdModRegulation} #
+                (^{formatTimeW SelFormatDate stdModRegVersion}): #
+                #{CI.original stdModModule}
+              $of StudyModuleFreeModule{..}
+                #{CI.original stdModFreeModule}
+
   <dt .deflist__dt>_{MsgTableCourseSchool}
   <dd .deflist__dd>
     #{schoolName}