From 8a888d3945f0fd0d67ef83bae621744c943b99de Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gregor.kleen@ifi.lmu.de>
Date: Sun, 29 Nov 2020 17:56:09 +0100
Subject: [PATCH] fix(tests): generate sensible WorkflowPayloadLabels

---
 test/Model/Types/WorkflowSpec.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/test/Model/Types/WorkflowSpec.hs b/test/Model/Types/WorkflowSpec.hs
index 71ce753c3..542690a20 100644
--- a/test/Model/Types/WorkflowSpec.hs
+++ b/test/Model/Types/WorkflowSpec.hs
@@ -20,9 +20,11 @@ import Control.Lens.Extras (is)
 
 import Utils.I18n
 
+import qualified Data.CaseInsensitive as CI
+
 
 instance Arbitrary WorkflowPayloadLabel where
-  arbitrary = genericArbitrary
+  arbitrary = WorkflowPayloadLabel . CI.mk . pack <$> (fmap getPrintableString arbitrary `suchThat` (not . null))
   shrink = genericShrink
 instance CoArbitrary WorkflowPayloadLabel
 instance Function WorkflowPayloadLabel