diff --git a/hdbi-postgresql.cabal b/hdbi-postgresql.cabal
--- a/hdbi-postgresql.cabal
+++ b/hdbi-postgresql.cabal
@@ -1,5 +1,5 @@
 Name: hdbi-postgresql
-Version: 1.1.0
+Version: 1.1.1
 License: BSD3
 Maintainer: Aleksey Uymanov <s9gf4ult@gmail.com>
 Author: John Goerzen
diff --git a/testsrc/puretests.hs b/testsrc/puretests.hs
--- a/testsrc/puretests.hs
+++ b/testsrc/puretests.hs
@@ -58,8 +58,12 @@
     case nat of
       Nothing -> return SqlNull
       Just (o, b, f) -> nativeToSqlValue b f o
-  QM.stop $ res ?== val
+  QM.stop $ scompare val res
+  where
+    scompare (SqlDouble a) (SqlDouble b) = a ~==? b
+    scompare a b = a ==? b
 
+
 convertionTests :: Test
 convertionTests = testGroup "Can convert to and back"
                   [testProperty "SqlValue" sqlToNativeAndBack]
@@ -234,7 +238,7 @@
 
 checkFullQueryGen :: (Query, B.ByteString) -> QP.Result
 checkFullQueryGen (q, res) = (buildSqlQuery q) ?== res
-    
+
 
 parserProperties :: Test
 parserProperties = testGroup "Parser properties"