From 4ba440d842e9a0502b429fbc04e2be41c8037a4c Mon Sep 17 00:00:00 2001
From: Yann Herklotz <ymherklotz@gmail.com>
Date: Sat, 19 Jan 2019 19:20:33 +0000
Subject: Add brittany formatting instead of stylish-haskell

---
 src/VeriFuzz/Graph/RandomAlt.hs | 21 +++++++++++----------
 1 file changed, 11 insertions(+), 10 deletions(-)

(limited to 'src/VeriFuzz/Graph/RandomAlt.hs')

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
-- 
cgit