From d455be3b924fea2d42d593a6709557e637e83ad9 Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Wed, 14 Nov 2018 11:28:13 +0000 Subject: Add style to the files --- src/Test/VeriFuzz/Graph/Random.hs | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'src/Test/VeriFuzz/Graph/Random.hs') diff --git a/src/Test/VeriFuzz/Graph/Random.hs b/src/Test/VeriFuzz/Graph/Random.hs index 2b91157..d2d41a8 100644 --- a/src/Test/VeriFuzz/Graph/Random.hs +++ b/src/Test/VeriFuzz/Graph/Random.hs @@ -1,9 +1,11 @@ module Test.VeriFuzz.Graph.Random where -import Data.Graph.Inductive (Graph, LNode, LEdge, mkGraph) -import Test.QuickCheck (Arbitrary, Gen, arbitrary, generate, infiniteListOf, suchThat, listOf, scale, resize) +import Data.Graph.Inductive (Graph, LEdge, LNode, mkGraph) +import Test.QuickCheck (Arbitrary, Gen, arbitrary, generate, + infiniteListOf, listOf, resize, scale, + suchThat) -import Test.VeriFuzz.Types +import Test.VeriFuzz.Types arbitraryEdge :: (Arbitrary e) => Int -> Gen (LEdge e) arbitraryEdge n = do @@ -21,6 +23,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 (2*n) l + return . mkGraph (nodes list) $ take (5*n) l where nodes l = (zip [0..n] $ take n l) -- cgit