X-Git-Url: https://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FComparisons.hs;h=4bf4cebb69ece2947eb1deccf0dfa9cfda20f266;hb=58cf11569acb270995d2de924dda03ef526647e2;hp=506ebab8217b8c46cda4bf2b8ee7fe636c619cf2;hpb=f07f76b231a3df623aab8b6035ac6000ce2a5eb2;p=spline3.git

diff --git a/src/Comparisons.hs b/src/Comparisons.hs
index 506ebab..4bf4ceb 100644
--- 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)