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} -
-
+
+ #{changeLog}
@@ -46,4 +34,4 @@