diff --git a/src/Handler/Utils/DateTime.hs b/src/Handler/Utils/DateTime.hs index 56553ce38..cee1573df 100644 --- a/src/Handler/Utils/DateTime.hs +++ b/src/Handler/Utils/DateTime.hs @@ -12,6 +12,7 @@ module Handler.Utils.DateTime , weeksToAdd , setYear , ceilingQuarterHour + , formatGregorianW ) where import Import @@ -263,3 +264,7 @@ formatTimeRangeW s t t' = toWidget =<< formatTimeRange s t t' formatTimeRangeMail :: (MonadMail m, HasLocalTime t, HasLocalTime t') => SelDateTimeFormat -> t -> Maybe t' -> m Text formatTimeRangeMail = formatTimeRange' formatTimeMail + + +formatGregorianW :: Integer -> Int -> Int -> Widget +formatGregorianW year month day = formatTimeW SelFormatDate $ fromGregorian year month day diff --git a/templates/i18n/changelog/de.hamlet b/templates/i18n/changelog/de.hamlet index d84ca56b5..3eb49216d 100644 --- a/templates/i18n/changelog/de.hamlet +++ b/templates/i18n/changelog/de.hamlet @@ -1,121 +1,143 @@ $newline never
-
05.09.2019 +
+ ^{formatGregorianW 2019 09 05}