From f5713fdb65f0606cc51dca05b67828ccb9ee72f7 Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <>
Date: Tue, 27 Oct 2020 12:26:26 +0100
Subject: [PATCH] feat(schedule): lookup and use user default schedule view

---
 src/Handler/Schedule.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/src/Handler/Schedule.hs b/src/Handler/Schedule.hs
index d2341710f..1cf749d96 100644
--- a/src/Handler/Schedule.hs
+++ b/src/Handler/Schedule.hs
@@ -13,16 +13,15 @@ import Utils.Schedule.Week
 getScheduleR, postScheduleR :: Handler Html
 getScheduleR = postScheduleR
 postScheduleR = do
-  uid <- requireAuthId
+  Entity uid User{userScheduleView} <- requireAuth
 
   -- TODO: local instead of global get params?
   mOptions <- lookupGlobalGetParam GetScheduleOptions
 
   let
-    -- TODO: persist default schedule view in user settings and choose scheduleView accordingly
     defaultScheduleOptions :: ScheduleOptions
     defaultScheduleOptions = ScheduleOptions
-                             { scheduleView   = ScheduleViewWeek
+                             { scheduleView   = userScheduleView
                              , scheduleOffset = ScheduleOffsetNone
                              , scheduleOptionsAction = ScheduleSetDefault
                              }