aboutsummaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--lib/GTFS.hs4
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