Update to 0.15.0 PureScript

CHANGELOG.md

@@ -4,6 +4,17 @@ Notable changes to this project are documented in this file. The format is based
 
 ## [Unreleased]
 
+Breaking changes:
+- Update compiler to v0.15.0 (#274 by @JordanMartinez)
+
+New features:
+
+Bugfixes:
+
+Other improvements:
+
+## [v2022-02-25.1](https://github.com/purescript/trypurescript/releases/tag/v2022-02-25.1)
+
 Breaking changes:
 - Update compiler to v0.14.7 (#271 by @JordanMartinez)
 

client/package.json

@@ -9,9 +9,9 @@
     "build:production": "spago bundle-app --path config/prod/Try.Config.purs --purs-args '--censor-lib --strict' --to public/js/index.js"
   },
   "devDependencies": {
-    "purescript": "^0.13.6",
-    "purescript-psa": "^0.7.3",
+    "purescript": "^0.15.0",
+    "purescript-psa": "^0.8.2",
     "rimraf": "^2.5.4",
-    "spago": "^0.14.0"
+    "spago": "^0.20.8"
   }
 }

client/packages.dhall

@@ -1,22 +1,14 @@
 let upstream =
-      https://github.com/purescript/package-sets/releases/download/psc-0.13.6-20200404/packages.dhall sha256:f239f2e215d0cbd5c203307701748581938f74c4c78f4aeffa32c11c131ef7b6
+      https://github.com/purescript/package-sets/releases/download/psc-0.15.0-20220429/packages.dhall
+        sha256:03c682bff56fc8f9d8c495ffcc6f524cbd3c89fe04778f965265c08757de8c9d
 
 let additions =
-    { ace =
-        { repo = "https://github.com/purescript-contrib/purescript-ace.git"
-        , version = "v7.0.0"
+      { debug =
+        { repo = "https://github.com/working-group-purescript-es/purescript-debug.git"
+        , version = "v0.15.0-update"
         , dependencies =
-          [ "arrays"
-          , "console"
-          , "effect"
-          , "foreign"
-          , "nullable"
-          , "prelude"
-          , "refs"
-          , "web-html"
-          , "web-uievents"
-          ]
+          [ "console", "effect", "functions", "prelude" ]
         }
-    }
+      }
 
 in  upstream // additions

client/spago.dhall

@@ -3,13 +3,16 @@
   [ "ace"
   , "aff"
   , "affjax"
+  , "affjax-web"
   , "argonaut-codecs"
+  , "argonaut-core"
   , "arrays"
   , "assert"
   , "bifunctors"
   , "console"
   , "const"
   , "control"
+  , "datetime"
   , "debug"
   , "effect"
   , "either"
@@ -18,16 +21,21 @@
   , "foreign-object"
   , "functions"
   , "functors"
-  , "globals"
   , "halogen"
+  , "halogen-subscriptions"
   , "identity"
   , "integers"
   , "js-timers"
-  , "math"
+  , "js-uri"
+  , "lists"
   , "maybe"
+  , "newtype"
+  , "node-buffer"
   , "node-fs"
+  , "nullable"
   , "ordered-collections"
   , "parallel"
+  , "partial"
   , "prelude"
   , "profunctor"
   , "psci-support"
@@ -38,8 +46,9 @@
   , "transformers"
   , "tuples"
   , "unfoldable"
+  , "unsafe-coerce"
   , "web-html"
   ]
 , packages = ./packages.dhall
-, sources = [ "src/**/*.purs", "test/**/*.purs" ]
+, sources = [ "src/**/*.purs", "config/dev/**/*.purs", "test/**/*.purs" ]
 }

client/src/Main.purs

@@ -9,6 +9,6 @@ import Halogen.VDom.Driver (runUI)
 import Try.Container as Container
 
 main :: Effect Unit
-main = launchAff_ do
+main = launchAff_ $ void do
   body <- HA.awaitBody
   runUI Container.component unit body

client/src/Try/API.purs

@@ -14,13 +14,15 @@ module Try.API
 import Prelude
 
 import Affjax (URL, printError)
-import Affjax as AX
+import Affjax.Web as AX
 import Affjax.RequestBody as AXRB
 import Affjax.ResponseFormat as AXRF
 import Affjax.StatusCode (StatusCode(..))
 import Control.Alt ((<|>))
 import Control.Monad.Except (ExceptT(..))
-import Data.Argonaut.Decode (class DecodeJson, decodeJson, (.:))
+import Data.Argonaut.Decode (class DecodeJson, decodeJson, (.:), JsonDecodeError(..), printJsonDecodeError)
+import Data.Argonaut.Encode (encodeJson)
+import Data.Bifunctor (lmap)
 import Data.Either (Either(..))
 import Data.Maybe (Maybe(..))
 import Data.Traversable (traverse)
@@ -53,8 +55,8 @@ instance decodeJsonCompileError :: DecodeJson CompileError where
         map OtherError $ decodeJson contents
       "CompilerErrors" ->
         map CompilerErrors $ traverse decodeJson =<< decodeJson contents
-      _ ->
-        Left "Tag must be one of: OtherError, CompilerErrors"
+      j ->
+        Left $ AtKey "tag" $ UnexpectedValue $ encodeJson j
 
 type Suggestion =
   { replacement :: String
@@ -105,6 +107,6 @@ compile endpoint code = ExceptT $ liftAff $ AX.post AXRF.json (endpoint <> "/com
   Right { status } | status >= StatusCode 400 ->
     pure $ Left $ "Received error status code: " <> show status
   Right { body } ->
-    pure $ Right $ decodeJson body
+    pure $ lmap printJsonDecodeError $ decodeJson body
   where
   requestBody = Just $ AXRB.string code

client/src/Try/Container.js

@@ -1,4 +1,2 @@
-"use strict";
-
-exports.setupIFrame = setupIFrame;
-exports.teardownIFrame = teardownIFrame;
+export {setupIFrame};
+export {teardownIFrame};