diff options
Diffstat (limited to 'test/Main.hs')
-rw-r--r-- | test/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/Main.hs b/test/Main.hs index 2d52c51..49d5027 100644 --- a/test/Main.hs +++ b/test/Main.hs @@ -14,7 +14,7 @@ instance (Ord a, Arbitrary a, Arbitrary v) => Arbitrary (RelGraph a v) where arbitrary = do let g = emptyRel c <- arbitrary `suchThat` (>= 0) - times c g $ (\g -> do + times c g (\g -> do x <- arbitrary y <- arbitrary v <- arbitrary |