diff options
-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 d1b6bb2..980996b 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -78,5 +78,5 @@ main :: IO () main = do num <- getNumCapabilities vars <- sequence $ (\x -> myForkIO $ - runEquivalence fromGraph ("test_" <> T.pack (show x)) 0) <$> [1..num] + runEquivalence (randomMod 10 100) ("test_" <> T.pack (show x)) 0) <$> [1..num] sequence_ $ takeMVar <$> vars |