Important bug fix: expand recurring events

config/settings.yml

@@ -27,7 +27,7 @@ calendar-credentials:
 recaptcha: "_env:BOOKME_RECAPTCHA"
 free-calendar: _env:BOOKME_FREE_CAL:mock-free
 busy-calendar: _env:BOOKME_BUSY_CAL:mock-busy
-look-ahead-weeks: 8
+look-ahead-weeks: 5
 lead-time-minutes: 120
 
 development: "_env:BOOKME_DEVEL:false"

src/Calendar.hs

@@ -254,6 +254,7 @@ listUpcoming (GoogleCxt env) cid lookahead = do
   xs <-
     Google.runGoogle env $
     Google.send $ eventsList cid & elTimeMin .~ Just now & elTimeMax .~ Just end
+    & elSingleEvents .~ Just True
   let es = SL.toSortedList $ mapMaybe simplifyEvent $ xs ^. eveItems
   --forM_ (SL.fromSortedList es) $ sayEvent $ take 4 cid
   return es