diff options
Diffstat (limited to 'src/VeriFuzz/Graph/RandomAlt.hs')
| -rw-r--r-- | src/VeriFuzz/Graph/RandomAlt.hs | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/src/VeriFuzz/Graph/RandomAlt.hs b/src/VeriFuzz/Graph/RandomAlt.hs index 21ef678..c5fad9e 100644 --- a/src/VeriFuzz/Graph/RandomAlt.hs +++ b/src/VeriFuzz/Graph/RandomAlt.hs @@ -12,17 +12,18 @@ Define the random generation for the directed acyclic graph. module VeriFuzz.Graph.RandomAlt where -import qualified Data.Graph.Inductive.Arbitrary as G -import Data.Graph.Inductive.PatriciaTree (Gr) -import Test.QuickCheck (Arbitrary, Gen) -import qualified Test.QuickCheck as QC +import qualified Data.Graph.Inductive.Arbitrary + as G +import Data.Graph.Inductive.PatriciaTree + ( Gr ) +import Test.QuickCheck ( Arbitrary + , Gen + ) +import qualified Test.QuickCheck as QC -randomDAG :: (Arbitrary l, Arbitrary e) - => Gen (Gr l e) -randomDAG = - G.looplessGraph <$> QC.arbitrary +randomDAG :: (Arbitrary l, Arbitrary e) => Gen (Gr l e) +randomDAG = G.looplessGraph <$> QC.arbitrary -- | Generate a random acyclic DAG with an IO instance. -genRandomDAG :: (Arbitrary l, Arbitrary e) - => IO (Gr l e) +genRandomDAG :: (Arbitrary l, Arbitrary e) => IO (Gr l e) genRandomDAG = QC.generate randomDAG |