Move ChangeLog to standard location

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!"
+

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")

templates/versionHistory.hamlet

@@ -10,23 +10,11 @@
         Uni2work ist noch nicht abgeschlossen.
   ^{features}
 
- <p>
+  <p>
-      <h2>
+    <h2>
-        Versionsgeschichte
+      Versionsgeschichte
-      <ul>
+    <pre>
-        <li>
+      #{changeLog}
-          <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>
@@ -46,4 +34,4 @@
       <li>
         Ludwig-Maximilians-Universität München
       <li>
-        Oettingenstr.67, 80538 München
+        Oettingenstr. 67, 80538 München