From 0644dae9380acfeab1516aff17ab8a1318908741 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Tue, 29 May 2018 17:53:50 +0200
Subject: [PATCH] Corrector placeholder

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

diff --git a/messages/de.msg b/messages/de.msg
index 1a8582a30..95cb620f1 100644
--- a/messages/de.msg
+++ b/messages/de.msg
@@ -59,4 +59,5 @@ CorByTut: Nach Tutorium
 CorProportion: Anteil
 DeleteRow: Zeile entfernen
 ProportionNegative: Anteile dürfen nicht negativ sein
-CorrectorsUpdated: Korrektoren erfolgreich aktualisiert
\ No newline at end of file
+CorrectorsUpdated: Korrektoren erfolgreich aktualisiert
+CorrectorsPlaceholder: Korrektoren...
\ No newline at end of file
diff --git a/src/Handler/Sheet.hs b/src/Handler/Sheet.hs
index a7d139c27..7826b7763 100644
--- a/src/Handler/Sheet.hs
+++ b/src/Handler/Sheet.hs
@@ -468,9 +468,9 @@ correctorForm shid = do
             E.on $ sheetCorrector E.^. SheetCorrectorUser E.==. user E.^. UserId
             E.where_ $ lecturer E.^. LecturerUser E.==. E.val userId
             return $ user E.^. UserEmail
-          toWidget [hamlet|
+          [whamlet|
             $newline never
-            <input id=#{theId} name=#{name} list=#{listIdent} *{attrs} type=email multiple :isReq:required value="">
+            <input id=#{theId} name=#{name} list=#{listIdent} *{attrs} type=email multiple :isReq:required value="" placeholder=_{MsgCorrectorsPlaceholder}>
             <datalist id=#{listIdent}>
               $forall E.Value prev <- previousCorrectors
                 <option value=#{prev}>