From 7105c50f858684b894b1c010a405dd7531dccb6c Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Wed, 8 Apr 2026 10:04:31 +0200 Subject: Timestamp links on calendar-day page --- src/Util.hs | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'src/Util.hs') diff --git a/src/Util.hs b/src/Util.hs index 4c09705..64c0bfc 100644 --- a/src/Util.hs +++ b/src/Util.hs @@ -3,7 +3,7 @@ module Util (module Util, toList) where import Data.Foldable (toList) import Data.Maybe (fromMaybe) -import Data.Time (Day, toGregorian) +import Data.Time import Data.Word (Word8) @@ -52,3 +52,9 @@ dayToYMD :: Day -> YMD dayToYMD day = let (y, m, d) = toGregorian day in YMD (fromIntegral y) (fromIntegral m) (fromIntegral d) + +ymdToGregorian :: YMD -> (Year, MonthOfYear, DayOfMonth) +ymdToGregorian (YMD y m d) = (fromIntegral y, fromIntegral m, fromIntegral d) + +ymdFromGregorian :: (Year, MonthOfYear, DayOfMonth) -> YMD +ymdFromGregorian (y, m, d) = YMD (fromIntegral y) (fromIntegral m) (fromIntegral d) -- cgit v1.3