diff options
| -rw-r--r-- | lib/GTFS.hs | 4 |
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 |