From 2184699b122c22aca9f218abca25d6bd4c25fc84 Mon Sep 17 00:00:00 2001
From: SJost <jost@tcs.ifi.lmu.de>
Date: Wed, 18 Jul 2018 13:15:13 +0200
Subject: [PATCH 1/2] Minor typos fixed.

---
 messages/de.msg      | 2 +-
 src/Handler/Sheet.hs | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/messages/de.msg b/messages/de.msg
index 99220e436..0c7147ecd 100644
--- a/messages/de.msg
+++ b/messages/de.msg
@@ -63,7 +63,7 @@ SheetHint: Hinweis
 SheetHintFrom: Hinweis ab
 SheetSolution: Lösung
 SheetSolutionFrom: Lösung ab
-SheetMarking: Korrekturhinweise
+SheetMarking: Hinweise für Korrektoren
 SheetType: Bewertung
 
 SheetVisibleFrom: Sichtbar ab
diff --git a/src/Handler/Sheet.hs b/src/Handler/Sheet.hs
index 2dfe98535..6e778ecd6 100644
--- a/src/Handler/Sheet.hs
+++ b/src/Handler/Sheet.hs
@@ -111,11 +111,11 @@ makeSheetForm msId template = identForm FIDsheet $ \html -> do
                                                               (sfActiveFrom   <$> template)
       <*> areq utcTimeField   (fslI MsgSheetActiveTo)         (sfActiveTo     <$> template)
       <*> aopt (multiFileField $ oldFileIds SheetExercise) (fsb "Aufgabenstellung") (sfSheetF <$> template)
-      <*> aopt utcTimeField   (fslpI MsgSheetHintFrom "Datum, sonst nur Korrektoren"
+      <*> aopt utcTimeField   (fslpI MsgSheetHintFrom "Datum, sonst nur für Korrektoren"
             & setTooltip "Ohne Datum nie für Teilnehmer sichtbar, Korrektoren können diese Dateien immer herunterladen")
                                                               (sfHintFrom     <$> template)
       <*> aopt (multiFileField $ oldFileIds SheetHint)     (fslI MsgSheetHint)      (sfHintF <$> template)
-      <*> aopt utcTimeField   (fslpI MsgSheetSolutionFrom  "Datum, sonst nur Korrektoren"
+      <*> aopt utcTimeField   (fslpI MsgSheetSolutionFrom  "Datum, sonst nur für Korrektoren"
             & setTooltip "Ohne Datum nie für Teilnehmer sichtbar, Korrektoren können diese Dateien immer herunterladen")
                                                               (sfSolutionFrom <$> template)
       <*> aopt (multiFileField $ oldFileIds SheetSolution) (fslI MsgSheetSolution) (sfSolutionF <$> template)

From 0bd86730d398f307f8c6f3168628f8bce3f11ceb Mon Sep 17 00:00:00 2001
From: SJost <jost@tcs.ifi.lmu.de>
Date: Wed, 18 Jul 2018 13:58:33 +0200
Subject: [PATCH 2/2] Minor comment

---
 src/Handler/Sheet.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/Handler/Sheet.hs b/src/Handler/Sheet.hs
index 534cb49f2..8d70902bb 100644
--- a/src/Handler/Sheet.hs
+++ b/src/Handler/Sheet.hs
@@ -88,6 +88,7 @@ data SheetForm = SheetForm
 
 makeSheetForm :: Maybe SheetId -> Maybe SheetForm -> Form SheetForm
 makeSheetForm msId template = identForm FIDsheet $ \html -> do
+    -- TODO: SJ to refactor this; extract Code from getSEditR to joint code piece
     let oldFileIds fType
           | Just sId <- msId = fmap setFromList . fmap (map E.unValue) . runDB . E.select . E.from $ \(file `E.InnerJoin` sheetFile) -> do
               E.on $ file E.^. FileId E.==. sheetFile E.^. SheetFileFile