fraport/fradrive-old
fraport/fradrive-old
Archived
3
1
Fork 0
Code Issues 65 Pull Requests 5 Actions Packages Projects Releases 197 Wiki Activity

feat(schedule): implement correct day offset behaviour

Browse Source
This commit is contained in:
Sarah Vaupel 2020-10-23 11:11:04 +02:00
parent be700882e1
commit d03a7149a4
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/Handler/Schedule.hs
View File

@ -72,10 +72,15 @@ postScheduleR = do
offsetBtns = case viewRes of
FormSuccess ScheduleViewWeek -> [ ScheduleOffsetDays (-7)
, ScheduleOffsetDays (-1)
, ScheduleOffsetDays 0
, ScheduleOffsetNone
, ScheduleOffsetDays 1
, ScheduleOffsetDays 7
] <&> (\sOffset -> ScheduleOptions{scheduleView=currentScheduleView,scheduleOffset=sOffset})
] <&> (\sOffset -> ScheduleOptions
{ scheduleView = currentScheduleView
, scheduleOffset = case sOffset of
ScheduleOffsetNone -> ScheduleOffsetNone
_ -> currentScheduleOffset `addOffset` sOffset
})
_ -> mempty
(offsetRess, offsetWidgets) <- fmap unzip . for offsetBtns $ \btn ->