@@ -61,7 +61,7 @@ spec = describe "Servant.Common.Text" $ do
61 -- http://en.wikipedia.org/wiki/Floating_point#Internal_representation
61 -- http://en.wikipedia.org/wiki/Floating_point#Internal_representation
62 it "holds for Double" $
62 it "holds for Double" $
63 property $ \x ->
63 property $ \x ->
64− x < 1.0e15 && x > 1.0e-16 ==>
64+ x < 1.0e15 && x > 1.0e-15 ==>
65 textLaw (x :: Double)
65 textLaw (x :: Double)
67 it "holds for Float" $
67 it "holds for Float" $