v0.2.0: bump to argonaut-codecs 7.0.0

nonbili · Sep 6, 2020 · 611fcca · 611fcca
1 parent 7fc570b
commit 611fcca
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 8 deletions.
diff --git a/packages.dhall b/packages.dhall
@@ -1,8 +1,4 @@
 let upstream =
-	  https://github.com/purescript/package-sets/releases/download/psc-0.13.5-20191215/packages.dhall sha256:fdc5d54cd54213000100fbc13c90dce01668a73fe528d8662430558df3411bee
+      https://github.com/purescript/package-sets/releases/download/psc-0.13.8-20200831/packages.dhall sha256:cdb3529cac2cd8dd780f07c80fd907d5faceae7decfcaa11a12037df68812c83
 
-let overrides = {=}
-
-let additions = {=}
-
-in  upstream ⫽ overrides ⫽ additions
+in  upstream
diff --git a/src/Nonbili/Postgres/Pool.purs b/src/Nonbili/Postgres/Pool.purs
@@ -18,8 +18,9 @@ import Prelude
 import Control.Promise (Promise)
 import Control.Promise as Promise
 import Data.Argonaut.Core (Json)
-import Data.Argonaut.Decode (class DecodeJson, decodeJson)
+import Data.Argonaut.Decode (class DecodeJson, decodeJson, printJsonDecodeError)
 import Data.Argonaut.Encode (encodeJson)
+import Data.Bifunctor (lmap)
 import Data.Either (Either)
 import Effect (Effect)
 import Effect.Aff (Aff)
@@ -102,4 +103,4 @@ query
   => Client -> String -> p -> Aff (Result a)
 query client qs params = do
   res <- Promise.toAffE $ query_ client qs (toQueryParams params)
-  pure $ decodeJson res
+  pure $ (lmap printJsonDecodeError <<< decodeJson) res