From 5f9dc4a8b11886881ebe59b356d599c6935ff796 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Wed, 4 Jul 2018 19:13:04 +0200
Subject: [PATCH] Move ChangeLog to standard location

---
 ChangeLog.md                    |  9 +++++++++
 src/Handler/Home.hs             |  3 +++
 templates/versionHistory.hamlet | 24 ++++++------------------
 3 files changed, 18 insertions(+), 18 deletions(-)
 create mode 100644 ChangeLog.md

diff --git a/ChangeLog.md b/ChangeLog.md
new file mode 100644
index 000000000..09b99076d
--- /dev/null
+++ b/ChangeLog.md
@@ -0,0 +1,9 @@
+  * Version 04.07.2018
+
+    Hinweis eingefügt, dass alle Daten des Systems spätestens im Dezember 2018
+    gelöscht werden.
+
+  * Version 03.07.2018
+
+    Willkommen bei Uni2work aka "You-need-to-work!"
+
diff --git a/src/Handler/Home.hs b/src/Handler/Home.hs
index f69555d1d..681240986 100644
--- a/src/Handler/Home.hs
+++ b/src/Handler/Home.hs
@@ -27,6 +27,8 @@ import Colonnade hiding (fromMaybe, singleton)
 -- import Yesod.Colonnade
 import qualified Database.Esqueleto as E
 
+import Text.Shakespeare.Text
+
 -- import qualified Data.UUID.Cryptographic as UUID
 
 
@@ -201,5 +203,6 @@ homeUser uid = do
 getVersionR :: Handler Html
 getVersionR = do
   let features = $(widgetFile "featureList")
+  changeLog <- withUrlRenderer $(textFile "ChangeLog.md")
   defaultLayout $ do
     $(widgetFile "versionHistory")
diff --git a/templates/versionHistory.hamlet b/templates/versionHistory.hamlet
index 35204d85d..2cf13182d 100644
--- a/templates/versionHistory.hamlet
+++ b/templates/versionHistory.hamlet
@@ -10,23 +10,11 @@
         Uni2work ist noch nicht abgeschlossen.
   ^{features}
 
- <p>
-      <h2>
-        Versionsgeschichte
-      <ul>
-        <li>
-          <h4>
-            Version 04.07.2018
-          <ul>
-            <li>
-              Hinweis eingefügt, dass alle Daten es Systems
-              spätestens im Dezember 2018 gelöscht werden.
-        <li>
-          <h4>
-            Version 03.07.2018
-          <ul>
-            <li>
-              Willkommen bei Uni2work aka "You-need-to-work!"
+  <p>
+    <h2>
+      Versionsgeschichte
+    <pre>
+      #{changeLog}
 
   <p>
     <h2>
@@ -46,4 +34,4 @@
       <li>
         Ludwig-Maximilians-Universität München
       <li>
-        Oettingenstr.67, 80538 München
+        Oettingenstr. 67, 80538 München