Add fromJson and toJson

CHANGELOG.md

@@ -7,6 +7,7 @@ Notable changes to this project are documented in this file. The format is based
 Breaking changes:
 
 New features:
+- Added `fromJsonString` and `toJsonString` (#109 by @sigma-andex)
 
 Bugfixes:
 

packages.dhall

@@ -1,4 +1,5 @@
 let upstream =
-      https://raw.githubusercontent.com/purescript/package-sets/prepare-0.15/src/packages.dhall
+      https://github.com/purescript/package-sets/releases/download/psc-0.15.2-20220612/packages.dhall
+        sha256:9876aee1362a5dac10061768c68a7ecc4a59ca9267c3760f7d43ea9d3812ec11
 
 in  upstream

src/Data/Argonaut/Decode.purs

@@ -1,20 +1,19 @@
 module Data.Argonaut.Decode
-  ( module Data.Argonaut.Decode.Class
+  ( fromJsonString
+  , module Data.Argonaut.Decode.Class
   , module Data.Argonaut.Decode.Combinators
   , module Data.Argonaut.Decode.Error
   , module Data.Argonaut.Decode.Parser
   ) where
 
+import Prelude
+
 import Data.Argonaut.Decode.Class (class DecodeJson, decodeJson)
-import Data.Argonaut.Decode.Combinators
-  ( getField
-  , getFieldOptional
-  , getFieldOptional'
-  , defaultField
-  , (.:)
-  , (.:!)
-  , (.:?)
-  , (.!=)
-  )
+import Data.Argonaut.Decode.Combinators (getField, getFieldOptional, getFieldOptional', defaultField, (.:), (.:!), (.:?), (.!=))
 import Data.Argonaut.Decode.Error (JsonDecodeError(..), printJsonDecodeError)
 import Data.Argonaut.Decode.Parser (parseJson)
+import Data.Either (Either)
+
+-- | Parse and decode a json in one step.
+fromJsonString :: forall json. DecodeJson json => String -> Either JsonDecodeError json
+fromJsonString = parseJson >=> decodeJson

src/Data/Argonaut/Encode.purs

@@ -1,16 +1,15 @@
 module Data.Argonaut.Encode
   ( module Data.Argonaut.Encode.Class
   , module Data.Argonaut.Encode.Combinators
+  , toJsonString
   ) where
 
+import Prelude
+
+import Data.Argonaut.Core (stringify)
 import Data.Argonaut.Encode.Class (class EncodeJson, encodeJson)
-import Data.Argonaut.Encode.Combinators
-  ( assoc
-  , assocOptional
-  , extend
-  , extendOptional
-  , (:=)
-  , (:=?)
-  , (~>)
-  , (~>?)
-  )
+import Data.Argonaut.Encode.Combinators (assoc, assocOptional, extend, extendOptional, (:=), (:=?), (~>), (~>?))
+
+-- | Encode and stringify a type in one step.
+toJsonString :: forall t. EncodeJson t => t -> String
+toJsonString = encodeJson >>> stringify