From 2cc78ad6afd731923229f590549ed0619c5f60e9 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Sat, 3 Dec 2022 12:13:24 +0100
Subject: always display seconds

(this is a hack to make the gtfs rt valid)
---
 lib/GTFS.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lib')

diff --git a/lib/GTFS.hs b/lib/GTFS.hs
index 8ff87db..3935caa 100644
--- a/lib/GTFS.hs
+++ b/lib/GTFS.hs
@@ -147,8 +147,8 @@ instance Show Time where
   show (Time seconds _ _) = ""
     +|pad (seconds `div` 3600)|+":"
     +|pad ((seconds `mod` 3600) `div` 60)|+
-    if seconds `mod` 60 /= 0 then ":"+|pad (seconds `mod` 60)|+""
-    else ""
+    {- if seconds `mod` 60 /= 0 then -}":"+|pad (seconds `mod` 60)|+""
+    -- else ""
     where
       pad num =
             if length str < 2 then "0"<>str else str
-- 
cgit v1.2.3