diff --git a/test/Model/TypesSpec.hs b/test/Model/TypesSpec.hs index 15e9377d5..10da379ed 100644 --- a/test/Model/TypesSpec.hs +++ b/test/Model/TypesSpec.hs @@ -298,7 +298,7 @@ instance Arbitrary CsvOptions where arbitrary = CsvOptions <$> arbitrary <*> arbitrary - <*> arbitrary + <*> suchThat arbitrary (maybe True $ not . elem (Char.chr 0)) shrink = genericShrink instance Arbitrary CsvPreset where