Commit 672d5af8 authored by Christopher League's avatar Christopher League

Important bug fix: expand recurring events

parent 4ff9661a
Pipeline #541 passed with stage
in 1 minute and 29 seconds
......@@ -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"
......
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment