run each quickcheck test 1000, rather than 100 times

I've had one or two fails sent to me involving cases QuickCheck didh't
easily find, and tasty makes this easy.

1 files changed, 1 insertions, 1 deletions

diff --git a/Test.hs b/Test.hs
index 6f26fa910..ff383710e 100644
--- a/Test.hs
+++ b/Test.hs
@@ -78,7 +78,7 @@ main = do
 	indirectenv <- prepare False
 	directenv <- prepare True
 	let tests = testGroup "Tests"
-		[ properties
+		[ localOption (QuickCheckTests 1000) properties
 		, unitTests indirectenv "(indirect)"
 		, unitTests directenv "(direct)"
 		]