diff --git a/test/Model/TypesSpec.hs b/test/Model/TypesSpec.hs index fad24d3f7..15e9377d5 100644 --- a/test/Model/TypesSpec.hs +++ b/test/Model/TypesSpec.hs @@ -298,6 +298,7 @@ instance Arbitrary CsvOptions where arbitrary = CsvOptions <$> arbitrary <*> arbitrary + <*> arbitrary shrink = genericShrink instance Arbitrary CsvPreset where diff --git a/test/ModelSpec.hs b/test/ModelSpec.hs index 66b90b480..27a5bed3f 100644 --- a/test/ModelSpec.hs +++ b/test/ModelSpec.hs @@ -128,6 +128,8 @@ instance Arbitrary User where userNotificationSettings <- arbitrary userCsvOptions <- arbitrary userShowSex <- arbitrary + userExamOfficeGetSynced <- arbitrary + userExamOfficeGetLabels <- arbitrary userCreated <- arbitrary userLastLdapSynchronisation <- arbitrary