From af11f75f296723050f2c945a80caeb5df490d93d Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Sat, 1 Dec 2018 15:12:06 +0000 Subject: [lint] Remove unnecessary '$' --- src/Test/VeriFuzz/Graph/Random.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') 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 -- cgit