From e3ec959f17996760a644bad79023d79c0e262ac9 Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Wed, 15 Apr 2015 21:04:11 -0400 Subject: [PATCH] Whitespace cleanup in Comparisons. --- src/Comparisons.hs | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) 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) -- 2.44.2