X-Git-Url: http://gitweb.michael.orlitzky.com/?p=spline3.git;a=blobdiff_plain;f=src%2FComparisons.hs;h=5f4c7149091edc8ca4c83cd0a6b9caf3e4df2430;hp=58a57473fac441f5c7ff305a565c5e6b0bc26cee;hb=e3ec959f17996760a644bad79023d79c0e262ac9;hpb=ce936039ed9ea446dd79544eb5b9cfd30a8188bd

diff --git a/src/Comparisons.hs b/src/Comparisons.hs
index 58a5747..5f4c714 100644
--- a/src/Comparisons.hs
+++ b/src/Comparisons.hs
@@ -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)