aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lib/GTFS.hs12
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