From 866fc23f79c2d4a30ecba10d89ca6309cf30eda7 Mon Sep 17 00:00:00 2001
From: Jens Petersen <juhpetersen@gmail.com>
Date: Sun, 2 Feb 2025 15:25:28 +0800
Subject: [PATCH] include time in the date of a snapshot

(the time may actually be when the snapshot build started)
---
 src/Handler/StackageHome.hs    | 4 ++--
 templates/stackage-home.hamlet | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/Handler/StackageHome.hs b/src/Handler/StackageHome.hs
index fa0c21d..8445fc6 100644
--- a/src/Handler/StackageHome.hs
+++ b/src/Handler/StackageHome.hs
@@ -155,8 +155,8 @@ getStackageCabalConfigR name = track "Handler.StackageHome.getStackageCabalConfi
         toBuilder (pliName p) ++
         constraint p
 
-yearMonthDay :: FormatTime t => t -> String
-yearMonthDay = formatTime defaultTimeLocale "%Y-%m-%d"
+yearMonthDayTime :: FormatTime t => t -> String
+yearMonthDayTime = formatTime defaultTimeLocale "%Y-%m-%d %H:%M %Z"
 
 getSnapshotPackagesR :: SnapName -> Handler () -- FIXME move to OldLinks?
 getSnapshotPackagesR name = track "Handler.StackageHome.getSnapshotPackagesR" $
diff --git a/templates/stackage-home.hamlet b/templates/stackage-home.hamlet
index d28946a..ebdd075 100644
--- a/templates/stackage-home.hamlet
+++ b/templates/stackage-home.hamlet
@@ -3,7 +3,7 @@ $newline never
     <h1>
         #{snapshotTitle snapshot}
     <p>
-        Published on #{yearMonthDay (snapshotCreated snapshot)}
+        Published on #{yearMonthDayTime (snapshotCreated snapshot)}
         <span .separator>
         <span>
             <a href=@{StackageDiffR previousSnapName name}>View changes