aboutsummaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authorstuebinm2022-07-17 03:04:53 +0200
committerstuebinm2022-07-17 03:04:53 +0200
commita763733e3b2d0679e2432fdcb29d2348fe790370 (patch)
tree8b6cf394f15e8a88f98c4be6b1e89d7daef1d4ea /lib
parent63e539af7ea10fd6b203a2eaa7f54fca09354d57 (diff)
fix an operator precedence bug
Diffstat (limited to 'lib')
-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