From daa1f837c78e19ab5dd0f9a79363ba9227707083 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gregor.kleen@ifi.lmu.de>
Date: Tue, 14 Jul 2020 09:04:16 +0200
Subject: [PATCH] fix: tests

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

diff --git a/test/Model/TypesSpec.hs b/test/Model/TypesSpec.hs
index 2ac485593..50edc02e6 100644
--- a/test/Model/TypesSpec.hs
+++ b/test/Model/TypesSpec.hs
@@ -99,6 +99,7 @@ instance Arbitrary UploadSpecificFile where
     <$> (pack . getPrintableString <$> arbitrary)
     <*> (pack . getPrintableString <$> arbitrary)
     <*> arbitrary
+    <*> arbitrary
   shrink = genericShrink
 
 instance Arbitrary UploadMode where