From 5889c7e1a46b10dc245afa05d5b9cb74300ddb5e Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <sarah.vaupel@ifi.lmu.de>
Date: Fri, 4 Feb 2022 01:37:29 +0100
Subject: [PATCH] test: fix tests

---
 test/Model/TypesSpec.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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