From 5298519da62a6af41321b2f274d210ca8c6d7fd4 Mon Sep 17 00:00:00 2001
From: David Himmelstrup <lemmih@gmail.com>
Date: Thu, 2 Jun 2022 18:15:07 +0200
Subject: [PATCH] Disable prop tests.

---
 test/Properties.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/test/Properties.hs b/test/Properties.hs
index 314040a..2933b41 100644
--- a/test/Properties.hs
+++ b/test/Properties.hs
@@ -4,6 +4,8 @@
 {-# LANGUAGE TemplateHaskell      #-}
 module Properties where
 
+#if !defined(NO_HGEOMETRY)
+
 import qualified Data.Vector            as V
 import           Linear.V2
 import           Linear.Vector
@@ -19,7 +21,7 @@ import           Helpers
 
 import Debug.Trace
 
-#if !defined(NO_HGEOMETRY)
+
 
 prop_pGenerate (PolyParam a) (PolyParam b) (PolyParam c) (PolyParam d) =
   pIsSimple $ pGenerate [a,b,c,d]
@@ -86,8 +88,8 @@ prop_dualCycle p = forAll (choose (0,pSize p-1)) $ \n ->
   let p1 = pSetOffset p n
       p2 = pCopy p1
   in and [ pParent p1 0 i == pParent p2 0 i | i <- [0.. pSize p-1] ]
-#endif
 
 return []
 all_props :: TestTree
 all_props = testProperties "properties" $allProperties
+#endif