Added dev login

test/Database.hs

@@ -176,6 +176,24 @@ fillDb = do
     , userMailLanguages = MailLanguages ["de"]
     , userNotificationSettings = def
     }
+  svaupel <- insert User
+    { userIdent  = "vaupel.sarah@campus.lmu.de"
+    , userAuthentication = AuthLDAP
+    , userLastAuthentication = Nothing
+    , userTokensIssuedAfter = Nothing
+    , userMatrikelnummer = Nothing
+    , userEmail  = "vaupel.sarah@campus.lmu.de"
+    , userDisplayName = "Sarah Vaupel"
+    , userSurname = "Vaupel"
+    , userMaxFavourites = 14
+    , userTheme = ThemeMossGreen
+    , userDateTimeFormat = userDefaultDateTimeFormat
+    , userDateFormat = userDefaultDateFormat
+    , userTimeFormat = userDefaultTimeFormat
+    , userDownloadFiles = userDefaultDownloadFiles
+    , userMailLanguages = MailLanguages ["de"]
+    , userNotificationSettings = def
+    }
   void . repsert (TermKey summer2017) $ Term
     { termName     = summer2017
     , termStart    = fromGregorian 2017 04 09
@@ -210,9 +228,12 @@ fillDb = do
   void . insert' $ UserAdmin fhamann ifi
   void . insert' $ UserAdmin jost ifi
   void . insert' $ UserAdmin jost mi
+  void . insert' $ UserAdmin svaupel ifi
+  void . insert' $ UserAdmin svaupel mi
   void . insert' $ UserLecturer gkleen ifi
   void . insert' $ UserLecturer fhamann ifi
   void . insert' $ UserLecturer jost ifi
+  void . insert' $ UserLecturer svaupel ifi
   let
     sdBsc = StudyDegreeKey' 82
     sdMst = StudyDegreeKey' 88