diff options
Diffstat (limited to 'tests/Property.hs')
-rw-r--r-- | tests/Property.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/Property.hs b/tests/Property.hs index e95ddec..88330bd 100644 --- a/tests/Property.hs +++ b/tests/Property.hs @@ -12,7 +12,7 @@ instance QC.Arbitrary TestGraph where arbitrary = TestGraph <$> randomDAG 100 simpleGraph = QC.testProperty "simple graph generation" $ - \graph -> simp (graph :: TestGraph) == True + \graph -> simp (graph :: TestGraph) where simp = isSimple . getGraph propertyTests :: TestTree |