From d279a1a2c6edd8acb95a13b1ef6955faa5b314a1 Mon Sep 17 00:00:00 2001
From: SJost <jost@tcs.ifi.lmu.de>
Date: Tue, 3 Apr 2018 16:49:41 +0200
Subject: [PATCH] Minor messages

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

diff --git a/messages/de.msg b/messages/de.msg
index 163ca0cfb..5ff819035 100644
--- a/messages/de.msg
+++ b/messages/de.msg
@@ -8,6 +8,7 @@ CourseNewOk        tid@TermIdentifier courseShortHand@Text: Kurs #{termToText ti
 CourseEditOk       tid@TermIdentifier courseShortHand@Text: Kurs #{termToText tid}-#{courseShortHand} wurde erfolgreich geändert.
 CourseNewDupShort  tid@TermIdentifier courseShortHand@Text: Kurs #{termToText tid}-#{courseShortHand} konnte nicht erstellt werden: Es gibt bereits einen anderen Kurs mit dem Kürzel #{courseShortHand} in diesem Semester.
 CourseEditDupShort tid@TermIdentifier courseShortHand@Text: Kurs #{termToText tid}-#{courseShortHand} konnte nicht geändert werden: Es gibt bereits einen anderen Kurs mit dem Kürzel #{courseShortHand} in diesem Semester.
+FFSheetName: Name
 SheetNewOk         tid@TermIdentifier courseShortHand@Text sheetName@Text: Neues Übungsblatt #{sheetName} wurde im Kurs #{termToText tid}-#{courseShortHand} erfolgreich erstellt.
 SheetTitle         tid@TermIdentifier courseShortHand@Text sheetName@Text: #{termToText tid}-#{courseShortHand} #{sheetName}
 SheetTitleNew      tid@TermIdentifier courseShortHand@Text               : #{termToText tid}-#{courseShortHand}: Neues Übungsblatt
diff --git a/src/Handler/Utils/Form.hs b/src/Handler/Utils/Form.hs
index f28154e55..6cccfa42b 100644
--- a/src/Handler/Utils/Form.hs
+++ b/src/Handler/Utils/Form.hs
@@ -337,6 +337,9 @@ utcTimeField = Field
     showTime = fromString . (formatTime germanTimeLocale fieldTimeFormat)
 
 
+fsm :: RenderMessage UniWorX msg => msg -> FieldSettings UniWorX
+fsm = bfs
+
 fsb :: Text -> FieldSettings site
 fsb = bfs -- Just to avoid annoying Ambiguous Type Errors