always display seconds

(this is a hack to make the gtfs rt valid)

1 files changed, 2 insertions, 2 deletions

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