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