From 0d0584587bfb5839814d8b8ad86ca35f8a6fda26 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gregor.kleen@ifi.lmu.de>
Date: Thu, 21 Apr 2022 11:57:42 +0200
Subject: [PATCH] chore: fix tests

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

diff --git a/test/Model/Types/WorkflowSpec.hs b/test/Model/Types/WorkflowSpec.hs
index d43af9ae8..835c5ad42 100644
--- a/test/Model/Types/WorkflowSpec.hs
+++ b/test/Model/Types/WorkflowSpec.hs
@@ -47,6 +47,9 @@ instance (Arbitrary fileid, Arbitrary userid, Typeable fileid, Typeable userid,
 instance Arbitrary WorkflowPayloadTextPreset where
   arbitrary = genericArbitrary
   shrink = genericShrink
+instance Arbitrary WorkflowPayloadTextType where
+  arbitrary = genericArbitrary
+  shrink = genericShrink
 instance Arbitrary (WorkflowPayloadField fileid userid Text) where
   arbitrary = WorkflowPayloadFieldText
     <$> scale (`div` 2) arbitrary