diff --git a/test/ModelSpec.hs b/test/ModelSpec.hs index a3d8de2c9..d4a5ad3e3 100644 --- a/test/ModelSpec.hs +++ b/test/ModelSpec.hs @@ -92,6 +92,7 @@ instance Arbitrary User where userTitle <- fmap (pack . getPrintableString) <$> arbitrary userMaxFavourites <- getNonNegative <$> arbitrary + userMaxFavouriteTerms <- getNonNegative <$> arbitrary userTheme <- arbitrary let genDateTimeFormat sel = do