diff options
| -rw-r--r-- | lib/GTFS.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lib/GTFS.hs b/lib/GTFS.hs index 539f69f..17dec72 100644 --- a/lib/GTFS.hs +++ b/lib/GTFS.hs @@ -400,12 +400,12 @@ loadGtfs path = do } where weekdays Calendar{..} = - if calMonday then [Monday] else [] - <> if calTuesday then [Tuesday] else [] - <> if calWednesday then [Wednesday] else [] - <> if calThursday then [Thursday] else [] - <> if calFriday then [Friday] else [] - <> if calSaturday then [Saturday] else [] + [Monday | calMonday] + <> [Tuesday | calTuesday] + <> [Wednesday | calWednesday] + <> [Thursday | calThursday] + <> [Friday | calFriday] + <> [Saturday | calSaturday] <> [Sunday | calSunday] pushStop :: Vector Station -> Stop Shallow -> IO (Stop Deep) pushStop stations stop = do |