From f66935659cce91f05ebeaffe77af64a96d696547 Mon Sep 17 00:00:00 2001
From: SJost <jost@tcs.ifi.lmu.de>
Date: Tue, 14 Aug 2018 10:34:11 +0200
Subject: [PATCH] Minor

---
 src/Handler/Corrections.hs | 2 +-
 src/Handler/Course.hs      | 6 +++---
 templates/course.hamlet    | 2 +-
 3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/Handler/Corrections.hs b/src/Handler/Corrections.hs
index 670cb1c17..96ad16794 100644
--- a/src/Handler/Corrections.hs
+++ b/src/Handler/Corrections.hs
@@ -100,7 +100,7 @@ colSheet = sortable (Just "sheet") (i18nCell MsgSheet)
 
 colCorrector :: IsDBTable m a => Colonnade _ CorrectionTableData (DBCell m a)
 colCorrector = sortable (Just "corrector") (i18nCell MsgCorrector) $ \case
-  DBRow{ dbrOutput = (_, _, _, Nothing, _) } -> cell mempty
+  DBRow{ dbrOutput = (_, _, _, Nothing  , _) } -> cell mempty
   DBRow{ dbrOutput = (_, _, _, Just corr, _) } -> textCell . display . userDisplayName $ entityVal corr
 
 colSubmissionLink :: IsDBTable m a => Colonnade _ CorrectionTableData (DBCell m a)
diff --git a/src/Handler/Course.hs b/src/Handler/Course.hs
index 05ae4e04b..fcfde2613 100644
--- a/src/Handler/Course.hs
+++ b/src/Handler/Course.hs
@@ -433,15 +433,15 @@ newCourseForm template = identForm FIDcourse $ \html -> do
     (result, widget) <- flip (renderAForm FormStandard) html $ CourseForm
       -- <$> pure cid -- $ join $ cfCourseId <$> template -- why doesnt this work?
       <$> aopt hiddenField "courseId"             (cfCourseId <$> template)
-      <*> areq (ciField textField) (fslI MsgCourseName)           (cfName     <$> template)
+      <*> areq (ciField textField) (fslI MsgCourseName)          (cfName     <$> template)
       <*> aopt htmlField (fslI MsgCourseDescription
                          & setTooltip MsgCourseDescriptionTip)   (cfDesc     <$> template)
-      <*> aopt urlField  (fslI MsgCourseHomepage)       (cfLink     <$> template)
+      <*> aopt urlField  (fslI MsgCourseHomepage)                (cfLink     <$> template)
       <*> areq (ciField textField) (fslI MsgCourseShorthand
             -- & addAttr "disabled" "disabled"
             & setTooltip MsgCourseShorthandUnique)
                                                 (cfShort  <$> template)
-      <*> areq termActiveField        (fslI MsgCourseSemester)       (cfTerm     <$> template)
+      <*> areq termActiveField        (fslI MsgCourseSemester)     (cfTerm     <$> template)
       <*> areq schoolField            (fslI MsgCourseSchool)       (cfSchool   <$> template)
       <*> aopt (natField "Kapazität") (fslI MsgCourseCapacity
             & setTooltip MsgCourseCapacityTip
diff --git a/templates/course.hamlet b/templates/course.hamlet
index 2f2a56a1e..f45717007 100644
--- a/templates/course.hamlet
+++ b/templates/course.hamlet
@@ -6,7 +6,7 @@
         <div>
           #{schoolName school}
     $maybe descr <- courseDescription course
-      <dt .deflist__dt>Beschreibung
+      <dt .deflist__dt>_{MsgCourseDescription}
       <dd .deflist__dd>
         <div>
           #{descr}