From 69bd88efdabf9362d2218618a5b0786543961cb3 Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@posteo.de>
Date: Thu, 20 Feb 2025 18:27:42 +0100
Subject: show times relatively

---
 app/Main.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'app/Main.hs')

diff --git a/app/Main.hs b/app/Main.hs
index d19a08b..a31a84b 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -39,6 +39,7 @@ import Text.Blaze.Html.Renderer.Utf8
 import Text.Cassius
 import Text.Hamlet
 import Text.Printf
+import Text.Time.Pretty (prettyTimeAutoFromNow)
 import Text.XML.Stream.Render
 
 env_REPOSITORIES :: [String]
@@ -209,9 +210,9 @@ instance ToMarkup Commit where
         <p .commit__message>#{message}
       <div .commit__meta>
         <span>by
-        <span>#{author}
-        <span>on
-        <span>#{createdAt}
+        <span>#{author},
+        <span>
+          <span title=#{createdAt}>#{unsafePerformIO (prettyTimeAutoFromNow createdAt)}
     |]
 
 instance ToMarkup Day where
-- 
cgit v1.2.3