chore: changelog

src/Handler/Info.hs

@@ -42,11 +42,13 @@ getLegalR =
 -- | Allgemeine Informationen
 getInfoR :: Handler Html
 getInfoR = do
+  AppSettings{..} <- getsYesod appSettings'
   changelogEntries' <- runDB $ selectList [ ChangelogItemFirstSeenItem <-. universeF ] []
   let changelogEntries = Map.fromListWith Set.union
         [ (Down changelogItemFirstSeenFirstSeen, Set.singleton changelogItemFirstSeenItem)
         | Entity _ ChangelogItemFirstSeen{..} <- changelogEntries'
         ]
+      changelogItems = $(i18nWidgetFiles "changelog")
   
   siteLayoutMsg MsgInfoHeading $ do
     setTitleI MsgInfoHeading
@@ -58,9 +60,6 @@ getInfoR = do
         gitInfo  = $gitDescribe <> " (" <> $gitCommitDate <> ")"
     $(widgetFile "versionHistory")
 
-  where
-    changelogItems = $(i18nWidgetFiles "changelog")
-
 
 getGlossaryR :: Handler Html
 getGlossaryR =

templates/i18n/changelog/workflows-archivation.de-de-formal.hamlet

@@ -0,0 +1,11 @@
+$newline never
+
+$maybe archived <- appWorkflowWorkflowArchiveAfter
+  Workflows werden nun automatisch archiviert, sobald sie #
+  $if archived /= 0
+    seit #{tshow (nominalDiffTimeToSeconds archived / 86400)} Tagen #
+  abgeschlossen sind.
+$nothing
+  Workflows können nun archiviert werden.
+<br>
+Archivierte Workflows werden nicht mehr in der Liste laufender Workflows angezeigt, sondern sind über ein separates Archiv verfügbar.

templates/i18n/changelog/workflows-archivation.en-eu.hamlet

@@ -0,0 +1,13 @@
+$newline never
+
+$maybe archived <- appWorkflowWorkflowArchiveAfter
+  Workflows are now being archived automatically #
+  $if archived == 0
+    immediately #
+  $else
+    #{tshow (nominalDiffTimeToSeconds archived / 86400)} days #
+  after finalization.
+$nothing
+  Workflow may now be archived.
+<br>
+Archived workflows are not shown among the list of running workflows, but can instead be accessed via a separate archive list.