diff options
| -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 348c5f6..e87036c 100644 --- a/src/Test/VeriFuzz/Graph/Random.hs +++ b/src/Test/VeriFuzz/Graph/Random.hs @@ -18,7 +18,7 @@ randomDAG :: (Arbitrary l, Arbitrary e, Graph gr) -> Gen (gr l e) -- ^ The generated graph. It uses Arbitrary to -- generate random instances of each node randomDAG n = do - list <- infiniteListOf $ arbitrary + list <- infiniteListOf arbitrary l <- infiniteListOf $ arbitraryEdge n return . mkGraph (nodes list) $ take (10*n) l where |