fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix build

Browse Source
This commit is contained in:
Steffen Jost 2023-01-18 19:04:31 +01:00
parent ed9b24f275
commit c8a7ab98ab
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
test/ModelSpec.hs
View File

@ -114,6 +114,7 @@ instance Arbitrary User where
userFirstName <- unwords <$> sublistOf names userFirstName <- unwords <$> sublistOf names
userTitle <- fmap (pack . getPrintableString) <$> arbitrary userTitle <- fmap (pack . getPrintableString) <$> arbitrary
userSex <- arbitrary userSex <- arbitrary
userBirthday <- arbitrary
userMaxFavourites <- getNonNegative <$> arbitrary userMaxFavourites <- getNonNegative <$> arbitrary
userMaxFavouriteTerms <- getNonNegative <$> arbitrary userMaxFavouriteTerms <- getNonNegative <$> arbitrary