diff options
| author | Yann Herklotz <ymherklotz@gmail.com> | 2018-11-16 21:17:29 +0000 |
|---|---|---|
| committer | Yann Herklotz <ymherklotz@gmail.com> | 2018-11-16 21:17:29 +0000 |
| commit | 9bb2f6d5a8815ec10f83e917395ac511a153e6f2 (patch) | |
| tree | b19107667d7b7ec57f55405e2c6cef5facb7be01 /src/Test/VeriFuzz/Graph | |
| parent | 339536b17935a622ba96dc764ae643a1ac8bf82d (diff) | |
| download | verismith-9bb2f6d5a8815ec10f83e917395ac511a153e6f2.tar.gz verismith-9bb2f6d5a8815ec10f83e917395ac511a153e6f2.zip | |
Basic generation with errors
Diffstat (limited to 'src/Test/VeriFuzz/Graph')
| -rw-r--r-- | src/Test/VeriFuzz/Graph/Random.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Test/VeriFuzz/Graph/Random.hs b/src/Test/VeriFuzz/Graph/Random.hs index e14d73e..9aa849b 100644 --- a/src/Test/VeriFuzz/Graph/Random.hs +++ b/src/Test/VeriFuzz/Graph/Random.hs @@ -20,6 +20,6 @@ randomDAG :: (Arbitrary l, Arbitrary e, Graph gr) randomDAG n = do list <- generate . infiniteListOf $ arbitrary l <- generate . infiniteListOf $ arbitraryEdge n - return . mkGraph (nodes list) $ take (5*n) l + return . mkGraph (nodes list) $ take (10*n) l where nodes l = zip [0..n] $ take n l |