Initial commit

.gitignore

@@ -0,0 +1,10 @@
+/bower_components/
+/node_modules/
+/.pulp-cache/
+/output/
+/generated-docs/
+/.psc-package/
+/.psc*
+/.purs*
+/.psa*
+/.spago

package.json

@@ -0,0 +1,12 @@
+{
+  "name": "purescript-iso-fetch-yoga-json",
+  "version": "1.0.0",
+  "description": "",
+  "main": "index.js",
+  "scripts": {
+    "test": "echo \"Error: no test specified\" && exit 1"
+  },
+  "keywords": [],
+  "author": "",
+  "license": "ISC"
+}

packages.dhall

@@ -0,0 +1,6 @@
+
+let upstream =
+      https://github.com/purescript/package-sets/releases/download/psc-0.15.4-20220808/packages.dhall
+        sha256:60eee64b04ca0013fae3e02a69fc3b176105c6baa2f31865c67cd5f881a412fd
+
+in  upstream

spago.dhall

@@ -0,0 +1,14 @@
+{ name = "iso-fetch-yoga-json"
+, dependencies =
+  [ "aff"
+  , "either"
+  , "exceptions"
+  , "foreign"
+  , "lists"
+  , "prelude"
+  , "transformers"
+  , "yoga-json"
+  ]
+, packages = ./packages.dhall
+, sources = [ "src/**/*.purs" ]
+}

src/Fetch/Yoga/Json.purs

@@ -0,0 +1,17 @@
+module Fetch.Yoga.Json where
+
+import Prelude
+
+import Control.Monad.Error.Class (throwError)
+import Data.Either (either)
+import Data.List.NonEmpty (NonEmptyList, fold1)
+import Effect.Aff (Aff)
+import Effect.Exception (Error, error)
+import Foreign (Foreign, ForeignError, renderForeignError)
+import Yoga.JSON as Yoga
+
+fromJson :: forall json. Yoga.ReadForeign json ⇒ Aff Foreign -> Aff json
+fromJson json = json >>= Yoga.read >>> either (toError >>> throwError) pure
+  where
+  toError :: NonEmptyList ForeignError -> Error
+  toError = map renderForeignError >>> fold1 >>> error

test.dhall

@@ -0,0 +1,11 @@
+let conf = ./spago.dhall
+
+in      conf
+    //  { sources = conf.sources # [ "test/**/*.purs" ]
+        , dependencies =
+              conf.dependencies
+            # [ "aff"
+              , "console"
+              , "effect"
+              ]
+        }

test/Main.purs

@@ -0,0 +1,11 @@
+module Test.Main where
+
+import Prelude
+
+import Effect (Effect)
+import Effect.Aff (launchAff_)
+import Effect.Class.Console (log)
+
+main :: Effect Unit
+main = launchAff_ do
+  log "You should add some tests."