fix(build): adjust fill to DB changes

test/Database/Fill.hs

@@ -105,6 +105,10 @@ fillDb = do
     , userCsvOptions = def { csvFormat = csvPreset # CsvPresetRFC }
     , userSex = Just SexMale
     , userShowSex = userDefaultShowSex
+    , userTelephone = Nothing 
+    , userMobile = Nothing 
+    , userCompanyPersonalNumber = Nothing 
+    , userCompanyDepartment = Nothing
     }
   fhamann <- insert User
     { userIdent  = "felix.hamann@campus.lmu.de"
@@ -134,6 +138,10 @@ fillDb = do
     , userCsvOptions = def { csvFormat = csvPreset # CsvPresetExcel }
     , userSex = Just SexMale
     , userShowSex = userDefaultShowSex
+    , userTelephone = Nothing 
+    , userMobile = Nothing 
+    , userCompanyPersonalNumber = Nothing 
+    , userCompanyDepartment = Nothing
     }
   pwSimple <- do
     let pw = "123.456"
@@ -169,6 +177,10 @@ fillDb = do
     , userSex = Just SexMale
     , userCsvOptions = def
     , userShowSex = userDefaultShowSex
+    , userTelephone = Just "+49 69 690-71706"
+    , userMobile = Just "0173 69 99 646"
+    , userCompanyPersonalNumber = Just "57138"
+    , userCompanyDepartment = Just "AVN-AR2"
     }
   maxMuster <- insert User
     { userIdent  = "max@campus.lmu.de"
@@ -198,6 +210,10 @@ fillDb = do
     , userCsvOptions = def
     , userSex = Just SexMale
     , userShowSex = userDefaultShowSex
+    , userTelephone = Nothing 
+    , userMobile = Nothing 
+    , userCompanyPersonalNumber = Nothing 
+    , userCompanyDepartment = Nothing
     }
   tinaTester <- insert $ User
     { userIdent  = "tester@campus.lmu.de"
@@ -227,6 +243,10 @@ fillDb = do
     , userCsvOptions = def
     , userSex = Just SexNotApplicable
     , userShowSex = userDefaultShowSex
+    , userTelephone = Nothing 
+    , userMobile = Nothing 
+    , userCompanyPersonalNumber = Nothing 
+    , userCompanyDepartment = Nothing
     }
   svaupel <- insert User
     { userIdent  = "vaupel.sarah@campus.lmu.de"
@@ -256,6 +276,10 @@ fillDb = do
     , userCsvOptions = def
     , userSex = Just SexFemale
     , userShowSex = userDefaultShowSex
+    , userTelephone = Nothing 
+    , userMobile = Nothing 
+    , userCompanyPersonalNumber = Nothing 
+    , userCompanyDepartment = Nothing
     }
   sbarth <- insert User
     { userIdent = "Stephan.Barth@campus.lmu.de"
@@ -285,6 +309,10 @@ fillDb = do
     , userCsvOptions = def
     , userSex = Just SexMale
     , userShowSex = userDefaultShowSex
+    , userTelephone = Nothing 
+    , userMobile = Nothing 
+    , userCompanyPersonalNumber = Nothing 
+    , userCompanyDepartment = Nothing
     }
 
   let
@@ -344,6 +372,10 @@ fillDb = do
       , userCsvOptions = def
       , userSex = Nothing
       , userShowSex = userDefaultShowSex
+      , userTelephone = Nothing 
+      , userMobile = Nothing 
+      , userCompanyPersonalNumber = Nothing 
+      , userCompanyDepartment = Nothing
       }
       where
         userIdent :: IsString t => t