X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FTetrahedron.hs;h=0e2f9029dd80f9c42b32a8779cbcf40cf50c6df2;hb=7e59859d69d9c5bbe5d654566adea71265447756;hp=3f45924d72ac95db05400c7e23bfa3594d644bfb;hpb=f1ea5f4014fdf8756fc6a70cf51052cdccbc4294;p=spline3.git

diff --git a/src/Tetrahedron.hs b/src/Tetrahedron.hs
index 3f45924..0e2f902 100644
--- a/src/Tetrahedron.hs
+++ b/src/Tetrahedron.hs
@@ -26,7 +26,7 @@ import Test.Framework.Providers.QuickCheck2 (testProperty)
 import Test.HUnit (Assertion, assertEqual)
 import Test.QuickCheck (Arbitrary(..), Gen, Property, (==>))
 
-import Comparisons ((~=), nearly_ge)
+import Comparisons ((~=))
 import FunctionValues (FunctionValues(..), empty_values)
 import Misc (factorial)
 import Point (Point(..), scale)
@@ -580,11 +580,11 @@ tetrahedron_properties =
     testProperty "b3_v0_always_zero" prop_b3_v0_always_zero,
     testProperty "b3_v1_always_zero" prop_b3_v1_always_zero,
     testProperty "b3_v2_always_zero" prop_b3_v2_always_zero,
-    testProperty "swapping_vertices_doesnt_affect_coefficients1" $
+    testProperty "swapping_vertices_doesnt_affect_coefficients1"
       prop_swapping_vertices_doesnt_affect_coefficients1,
-    testProperty "swapping_vertices_doesnt_affect_coefficients2" $
+    testProperty "swapping_vertices_doesnt_affect_coefficients2"
       prop_swapping_vertices_doesnt_affect_coefficients2,
-    testProperty "swapping_vertices_doesnt_affect_coefficients3" $
+    testProperty "swapping_vertices_doesnt_affect_coefficients3"
       prop_swapping_vertices_doesnt_affect_coefficients3,
-    testProperty "swapping_vertices_doesnt_affect_coefficients4" $
+    testProperty "swapping_vertices_doesnt_affect_coefficients4"
       prop_swapping_vertices_doesnt_affect_coefficients4 ]