Formatting

dtekcth · Jun 4, 2024 · ffb80d9 · ffb80d9
1 parent 58ea208
commit ffb80d9
Showing 1 changed file with 8 additions and 10 deletions.
diff --git a/src/Model/Wijkanders.hs b/src/Model/Wijkanders.hs
@@ -76,16 +76,14 @@ getWijkanders d =
             (((pure . (ymdMonth &&& ymdDay) . view gregorian) d ==) . hasDate)
           )
     >>> takeWhile
-          (not
-          . tagText (or
-                    . ([
-                           BL.isPrefixOf (BL8.pack "Med reservation")
-                       , maybe False (> d) .
-                         (( gregorianValid
-                           . uncurry (YearMonthDay $ ymdYear $ view gregorian d)
-                          ) <=< hasDate)
-                       ] <*>)
-                    . pure)
+          (not . tagText
+           (or . ([
+                      BL.isPrefixOf (BL8.pack "Med reservation")
+                  , maybe False (> d) .
+                    ( gregorianValid
+                      . uncurry (YearMonthDay $ ymdYear $ view gregorian d)
+                      <=< hasDate)
+                  ] <*>) . pure)
           )
 
     -- The heading is of no use to us.