From: Michael Orlitzky Date: Thu, 16 Apr 2015 01:04:11 +0000 (-0400) Subject: Whitespace cleanup in Comparisons. X-Git-Tag: 0.0.1~19 X-Git-Url: http://gitweb.michael.orlitzky.com/?p=spline3.git;a=commitdiff_plain;h=e3ec959f17996760a644bad79023d79c0e262ac9 Whitespace cleanup in Comparisons. --- 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)