diff options
author | Yann Herklotz <ymherklotz@gmail.com> | 2019-02-02 13:39:47 +0000 |
---|---|---|
committer | Yann Herklotz <ymherklotz@gmail.com> | 2019-02-02 13:39:47 +0000 |
commit | f1427b174e6854e16e20e2a69ea9facd7fc5f5a1 (patch) | |
tree | 3f1338acb5cde171c099d65a89aff71e4e6d657c | |
parent | a2343757458542ea7fd2e00c53f40233797ddd5c (diff) | |
download | verismith-f1427b174e6854e16e20e2a69ea9facd7fc5f5a1.tar.gz verismith-f1427b174e6854e16e20e2a69ea9facd7fc5f5a1.zip |
Change main to generate completely random module
-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 |