test: fix tests

2022-02-04 01:37:29 +01:00 · 2022-02-04 01:37:29 +01:00 · 5889c7e1a4
commit 5889c7e1a4
parent c60117f076
1 changed files with 1 additions and 1 deletions
--- 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