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: ...@@ -27,7 +27,7 @@ calendar-credentials:
recaptcha: "_env:BOOKME_RECAPTCHA" recaptcha: "_env:BOOKME_RECAPTCHA"
free-calendar: _env:BOOKME_FREE_CAL:mock-free free-calendar: _env:BOOKME_FREE_CAL:mock-free
busy-calendar: _env:BOOKME_BUSY_CAL:mock-busy busy-calendar: _env:BOOKME_BUSY_CAL:mock-busy
look-ahead-weeks: 8 look-ahead-weeks: 5
lead-time-minutes: 120 lead-time-minutes: 120
development: "_env:BOOKME_DEVEL:false" development: "_env:BOOKME_DEVEL:false"
......
...@@ -254,6 +254,7 @@ listUpcoming (GoogleCxt env) cid lookahead = do ...@@ -254,6 +254,7 @@ listUpcoming (GoogleCxt env) cid lookahead = do
xs <- xs <-
Google.runGoogle env $ Google.runGoogle env $
Google.send $ eventsList cid & elTimeMin .~ Just now & elTimeMax .~ Just end Google.send $ eventsList cid & elTimeMin .~ Just now & elTimeMax .~ Just end
& elSingleEvents .~ Just True
let es = SL.toSortedList $ mapMaybe simplifyEvent $ xs ^. eveItems let es = SL.toSortedList $ mapMaybe simplifyEvent $ xs ^. eveItems
--forM_ (SL.fromSortedList es) $ sayEvent $ take 4 cid --forM_ (SL.fromSortedList es) $ sayEvent $ take 4 cid
return es 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