diff options
Diffstat (limited to 'app')
| -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 |