postgresql-simple 0.4.0.1 → 0.4.0.2
raw patch · 3 files changed
+7/−9 lines, 3 filesdep ~aesondep ~base
Dependency ranges changed: aeson, base
Files
postgresql-simple.cabal view
@@ -1,5 +1,5 @@ Name: postgresql-simple-Version: 0.4.0.1+Version: 0.4.0.2 Synopsis: Mid-Level PostgreSQL client library Description: Mid-Level PostgreSQL client library, forked from mysql-simple.@@ -79,7 +79,7 @@ source-repository this type: git location: http://github.com/lpsmith/postgresql-simple- tag: v0.4.0.1+ tag: v0.4.0.2 test-suite test type: exitcode-stdio-1.0@@ -92,9 +92,6 @@ Serializable Time - Build-depends:- vector- ghc-options: -Wall -fno-warn-name-shadowing -fno-warn-unused-do-bind extensions: NamedFieldPuns@@ -114,3 +111,4 @@ , postgresql-simple , text , time+ , vector
src/Database/PostgreSQL/Simple/FromField.hs view
@@ -476,7 +476,7 @@ Just bs -> #if MIN_VERSION_aeson(0,6,3) case JSON.eitherDecodeStrict' bs of-#elsif MIN_VERSION_bytestring(0,10,0)+#elif MIN_VERSION_bytestring(0,10,0) case JSON.eitherDecode' $ LB.fromStrict bs of #else case JSON.eitherDecode' $ LB.fromChunks [bs] of
test/Main.hs view
@@ -171,9 +171,9 @@ testJSON :: TestEnv -> Test testJSON TestEnv{..} = TestCase $ do- roundTrip (Map.fromList [] :: Map ByteString ByteString)- roundTrip (Map.fromList [("foo","bar"),("bar","baz"),("baz","hello")] :: Map ByteString ByteString )- roundTrip (Map.fromList [("fo\"o","bar"),("b\\ar","baz"),("baz","\"value\\with\"escapes")] :: Map ByteString ByteString)+ roundTrip (Map.fromList [] :: Map Text Text)+ roundTrip (Map.fromList [("foo","bar"),("bar","baz"),("baz","hello")] :: Map Text Text)+ roundTrip (Map.fromList [("fo\"o","bar"),("b\\ar","baz"),("baz","\"value\\with\"escapes")] :: Map Text Text) roundTrip (V.fromList [1,2,3,4,5::Int]) where roundTrip :: ToJSON a => a -> Assertion