From fe727e51cf6dad8bdf31e92380efa2d95ac368ba Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Wed, 19 Sep 2018 12:22:38 +0200
Subject: [PATCH] i18n StudyFieldType

---
 messages/uniworx/de.msg  | 5 ++++-
 src/Foundation.hs        | 6 ++++++
 templates/profile.hamlet | 2 +-
 3 files changed, 11 insertions(+), 2 deletions(-)

diff --git a/messages/uniworx/de.msg b/messages/uniworx/de.msg
index 8af5acdbb..18bbecce1 100644
--- a/messages/uniworx/de.msg
+++ b/messages/uniworx/de.msg
@@ -291,4 +291,7 @@ UploadModeNone: Kein Upload
 UploadModeUnpack: Upload, einzelne Datei
 UploadModeNoUnpack: Upload, ZIP-Archive entpacken
 
-SubmissionNoUploadExpected: Es ist keine Abgabe von Dateien vorgesehen.
\ No newline at end of file
+SubmissionNoUploadExpected: Es ist keine Abgabe von Dateien vorgesehen.
+
+FieldPrimary: Hauptfach
+FieldSecondary: Nebenfach
\ No newline at end of file
diff --git a/src/Foundation.hs b/src/Foundation.hs
index 5f78d7f56..c62529722 100644
--- a/src/Foundation.hs
+++ b/src/Foundation.hs
@@ -178,6 +178,12 @@ instance RenderMessage UniWorX TermIdentifier where
     Winter -> renderMessage' $ MsgWinterTerm year
     where renderMessage' = renderMessage foundation ls
 
+instance RenderMessage UniWorX StudyFieldType where
+  renderMessage foundation ls = \case
+    FieldPrimary -> renderMessage' MsgFieldPrimary
+    FieldSecondary -> renderMessage' MsgFieldSecondary
+    where renderMessage' = renderMessage foundation ls
+
 newtype ShortTermIdentifier = ShortTermIdentifier TermIdentifier
   deriving (Eq, Ord, Read, Show)
 
diff --git a/templates/profile.hamlet b/templates/profile.hamlet
index 2da1c9c78..2249be908 100644
--- a/templates/profile.hamlet
+++ b/templates/profile.hamlet
@@ -60,7 +60,7 @@
                     #{display name}
                   $nothing
                     #{display fieldKey}
-                <td .table__td>#{display fieldtype}
+                <td .table__td>_{E.unValue fieldtype}
                 <td .table__td>#{display semester}
 
     $if not $ null participant