From d3c498bebbbcb02d2b67c687a294676c6e2d09e9 Mon Sep 17 00:00:00 2001
From: Yann Herklotz <ymherklotz@gmail.com>
Date: Sat, 1 Dec 2018 15:11:18 +0000
Subject: Apply HLint rules

---
 tests/Property.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'tests/Property.hs')

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