Skip to content

B
bookme
Commit 672d5af8 authored by Christopher League's avatar Christopher League 🖥
Browse files
Options

Important bug fix: expand recurring events

parent 4ff9661a
Pipeline #541 passed with stage
    in 1 minute and 29 seconds
    Hide whitespace changes
    Inline Side-by-side
    Showing with 2 additions and 1 deletion
    config/settings.yml
    View file @ 672d5af8
    ......@@ -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
    View file @ 672d5af8
    ......@@ -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