]> gitweb.michael.orlitzky.com - spline3.git/blobdiff - src/Comparisons.hs
Whitespace cleanup in Comparisons.
[spline3.git] / src / Comparisons.hs
index 58a57473fac441f5c7ff305a565c5e6b0bc26cee..5f4c7149091edc8ca4c83cd0a6b9caf3e4df2430 100644 (file)
@@ -7,17 +7,20 @@ module Comparisons (
   nearly_equals,
   nearly_ge,
   non_very_positive_entries,
-  very_positive,
-  )
+  very_positive )
 where
 
+
 -- | epsilon is the value that will be used in all tests that require
 --   some measure of \"closeness.\" Increasing it will make those
 --   tests more tolerant.
+  --
 epsilon :: Double
 epsilon = 0.0001
 
+
 -- | A tiny margin of error.
+--
 theta :: Double
 theta = 0.0000000000001
 
@@ -81,5 +84,6 @@ very_positive x =
 
 -- | Takes a list of 'Double' and returns the ones which are not very
 --   positive.
+--
 non_very_positive_entries :: [Double] -> [Double]
 non_very_positive_entries = filter (not . very_positive)