From 24e32f194e2775a678d05c9a975942ee6d75c87c Mon Sep 17 00:00:00 2001
From: Christian Marie <christian@ponies.io>
Date: Wed, 18 Mar 2015 09:14:58 +1100
Subject: [PATCH] Correct accuracy for Double tests

---
 test/Servant/Common/TextSpec.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test/Servant/Common/TextSpec.hs b/test/Servant/Common/TextSpec.hs
index 0f0ece51..c1af6efd 100644
--- a/test/Servant/Common/TextSpec.hs
+++ b/test/Servant/Common/TextSpec.hs
@@ -61,7 +61,7 @@ spec = describe "Servant.Common.Text" $ do
         -- http://en.wikipedia.org/wiki/Floating_point#Internal_representation
         it "holds for Double" $
             property $ \x ->
-                x < 1.0e15 && x > 1.0e-16 ==>
+                x < 1.0e15 && x > 1.0e-15 ==>
                     textLaw (x :: Double)
 
         it "holds for Float" $