Add a bunch of documentation.

[spline3.git] / src / Comparisons.hs

diff --git a/src/Comparisons.hs b/src/Comparisons.hs
index 506ebab8217b8c46cda4bf2b8ee7fe636c619cf2..4bf4cebb69ece2947eb1deccf0dfa9cfda20f266 100644 (file)
--- a/src/Comparisons.hs
+++ b/src/Comparisons.hs
@@ -1,3 +1,4 @@
+-- | Functions for comparing 'Double' values.
 module Comparisons
 where
 
@@ -22,7 +23,7 @@ very_positive :: Double -> Bool
 very_positive x =  x - epsilon > 0
 
 
--- | Takes a list of Doubles and returns the ones which are not very
+-- | 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)