From dd3e321b7b7144514d6bd0fb9f39ccf19c124774 Mon Sep 17 00:00:00 2001
From: SJost <jost@tcs.ifi.lmu.de>
Date: Thu, 20 Dec 2018 19:27:09 +0100
Subject: [PATCH] Merge completed

---
 messages/uniworx/de.msg | 10 +++++-----
 src/Foundation.hs       |  9 +++++----
 2 files changed, 10 insertions(+), 9 deletions(-)

diff --git a/messages/uniworx/de.msg b/messages/uniworx/de.msg
index 602641b4e..f09698963 100644
--- a/messages/uniworx/de.msg
+++ b/messages/uniworx/de.msg
@@ -144,8 +144,8 @@ SubmissionFile: Datei zur Abgabe
 SubmissionFiles: Abgegebene Dateien
 SubmissionAlreadyExistsFor email@UserEmail: #{email} hat bereits eine Abgabe zu diesem bÜbungsblatt.
 
-SubmissionsDeleteQuestion count@Int: Wollen Sie #{pluralDE count "die unten aufgeführte Abgabe" "die unten aufgeführten Abgaben"} wirklich löschen?
-SubmissionsDeleted count@Int: #{pluralDE count "Abgabe gelöscht" "Abgaben gelöscht"}
+SubmissionsDeleteQuestion n@Int: Wollen Sie #{pluralDE n "die unten aufgeführte Abgabe" "die unten aufgeführten Abgaben"} wirklich löschen?
+SubmissionsDeleted n@Int: #{pluralDE n "Abgabe gelöscht" "Abgaben gelöscht"}
 
 SubmissionGroupName: Gruppenname
 
@@ -415,8 +415,8 @@ SheetTypeInfoNotGraded: Blätter ohne Wertung werden nirgends angerechnet, die B
 SheetTypeInfoBonus: Bonus Blätter zählen normal, erhöhen aber nicht die maximal erreichbare Punktzahl bzw. Anzahl zu bestehender Blätter.
 SheetGradingBonusIncluded: Erzielte Bonuspunkte wurden hier bereits zu den erreichten normalen Punkten hinzugezählt.
 SummaryTitle: Zusammenfassung über alle
-SheetGradingSummaryTitle count@Integer: #{display count} Blätter
-SubmissionGradingSummaryTitle count@Integer: #{display count} Abgaben
+SheetGradingSummaryTitle count@Integer: #{display count} #{pluralDE count "Blatt" "Blätter"}
+SubmissionGradingSummaryTitle count@Integer: #{display count} #{pluralDE count "Abgabe" "Abgaben"}
 
 SheetTypeBonus': Bonus
 SheetTypeNormal': Normal
@@ -586,6 +586,6 @@ AuthTagAuthentication: Authentifizierung erfüllt Anforderungen
 AuthTagRead: Zugriff ist nur lesend
 AuthTagWrite: Zugriff ist i.A. schreibend
 
-DeleteCopyStringIfSure count@Int: Wenn Sie sich sicher sind, dass Sie #{pluralDE count "das obige Objekt" "obige Objekte"} unwiderbringlich löschen möchten, schreiben Sie bitte zunächst den angezeigten Text ab.
+DeleteCopyStringIfSure n@Int: Wenn Sie sich sicher sind, dass Sie #{pluralDE n "das obige Objekt" "obige Objekte"} unwiderbringlich löschen möchten, schreiben Sie bitte zunächst den angezeigten Text ab.
 DeleteConfirmation: Bestätigung
 DeleteConfirmationWrong: Bestätigung muss genau dem angezeigten Text entsprechen.
\ No newline at end of file
diff --git a/src/Foundation.hs b/src/Foundation.hs
index b63830a54..ceb1c7722 100644
--- a/src/Foundation.hs
+++ b/src/Foundation.hs
@@ -147,10 +147,11 @@ pattern CSubmissionR tid ssh csh shn cid ptn
   = CSheetR tid ssh csh shn (SubmissionR cid ptn)
 
 
-pluralDE :: Int -- ^ Count
-         -> Text -- ^ Singular
-         -> Text -- ^ Plural
-         -> Text
+pluralDE :: (Eq a, Num a)
+            =>    a -- ^ Count
+            -> Text -- ^ Singular
+            -> Text -- ^ Plural
+            -> Text
 pluralDE num singularForm pluralForm
   | num == 1  = singularForm
   | otherwise = pluralForm