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.

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)"
 		]