fix: build

2022-09-02 11:00:52 +02:00 · 2022-09-02 11:00:52 +02:00 · 7c86293005
commit 7c86293005
parent 83b8e765c6
1 changed files with 1 additions and 0 deletions
--- a/test/ModelSpec.hs
+++ b/test/ModelSpec.hs
@ -132,6 +132,7 @@ instance Arbitrary User where
    userTelephone             <- fmap pack . assertM' (not . null) <$> listOf (elements $ [' ', '+', '-', '/', '_'] ++ ['0'..'9'])
    userCompanyPersonalNumber <- fmap pack . assertM' (not . null) <$> listOf (elements ['0'..'9'])
    userCompanyDepartment <- arbitrary
+    userPinPassword <- arbitrary
    userPostAddress <- arbitrary -- TODO: not a good address
    userPrefersPostal <- arbitrary
    userExamOfficeGetSynced <- arbitrary