diff options
author | Yann Herklotz <ymherklotz@gmail.com> | 2019-02-02 13:43:20 +0000 |
---|---|---|
committer | Yann Herklotz <ymherklotz@gmail.com> | 2019-02-02 13:43:20 +0000 |
commit | c03e629452312105c3a2db638a478fe0acd63ac9 (patch) | |
tree | 9690a28bfe07e216a0b6acde9c5eb4c5e70d51ce | |
parent | f1427b174e6854e16e20e2a69ea9facd7fc5f5a1 (diff) | |
download | verismith-c03e629452312105c3a2db638a478fe0acd63ac9.tar.gz verismith-c03e629452312105c3a2db638a478fe0acd63ac9.zip |
Smaller test case
-rw-r--r-- | app/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/app/Main.hs b/app/Main.hs index 980996b..107eef5 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -78,5 +78,5 @@ main :: IO () main = do num <- getNumCapabilities vars <- sequence $ (\x -> myForkIO $ - runEquivalence (randomMod 10 100) ("test_" <> T.pack (show x)) 0) <$> [1..num] + runEquivalence (randomMod 5 50) ("test_" <> T.pack (show x)) 0) <$> [1..num] sequence_ $ takeMVar <$> vars |