From a763733e3b2d0679e2432fdcb29d2348fe790370 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Sun, 17 Jul 2022 03:04:53 +0200
Subject: fix an operator precedence bug

---
 lib/GTFS.hs | 12 ++++++------
 1 file 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
-- 
cgit v1.2.3