From f13e72076dbdcf0cd53d8558fccbedb98b8ea492 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Sun, 14 Aug 2022 15:43:37 +0200
Subject: better Show instance for Time

---
 lib/GTFS.hs | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/lib/GTFS.hs b/lib/GTFS.hs
index 17dec72..9259649 100644
--- a/lib/GTFS.hs
+++ b/lib/GTFS.hs
@@ -92,9 +92,13 @@ instance CSV.FromField Time where
 
 instance Show Time where
   show (Time seconds) = ""
-    +|seconds `div` 3600|+":"
-    +|(seconds `mod` 3600) `div` 60|+":"
-    +|seconds `mod` 60|+""
+    +|pad (seconds `div` 3600)|+":"
+    +|pad ((seconds `mod` 3600) `div` 60)|+
+    if seconds `mod` 60 /= 0 then ":"+|pad (seconds `mod` 60)|+""
+    else ""
+    where pad num =
+            if length str < 2 then "0"<>str else str
+            where str = show num
 
 instance CSV.FromField Day where
   parseField f = do
-- 
cgit v1.2.3