test(user): add new field to fix build

test/ModelSpec.hs

@@ -130,8 +130,10 @@ instance Arbitrary User where
     userShowSex <- arbitrary
     userMobile                <- fmap pack . assertM' (not . null) <$> listOf (elements $ [' ', '+', '-', '/', '_'] ++ ['0'..'9'])
     userTelephone             <- fmap pack . assertM' (not . null) <$> listOf (elements $ [' ', '+', '-', '/', '_'] ++ ['0'..'9'])
-    userCompanyPersonalNumber <- fmap pack . assertM' (not . null) <$> listOf (elements ['0'..'9'])                              
+    userCompanyPersonalNumber <- fmap pack . assertM' (not . null) <$> listOf (elements ['0'..'9'])
     userCompanyDepartment <- arbitrary
+    userPostAddress <- arbitrary -- TODO: not a good address
+    userPrefersPostal <- arbitrary
     userExamOfficeGetSynced <- arbitrary
     userExamOfficeGetLabels <- arbitrary
 

test/User.hs

@@ -49,3 +49,5 @@ fakeUser adjUser = adjUser User{..}
     userTelephone = Nothing     
     userCompanyPersonalNumber = Nothing 
     userCompanyDepartment = Nothing
+    userPostAddress = Nothing
+    userPrefersPostal = False