fix an operator precedence bug

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