Corrector placeholder

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
+CorrectorsUpdated: Korrektoren erfolgreich aktualisiert
+CorrectorsPlaceholder: Korrektoren...

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}>