Use core/json instead of argonaut

backend-es/src/PureScript/Backend/Optimizer/Codegen/EcmaScript/Builder.purs

@@ -4,7 +4,6 @@ import Prelude
 
 import Control.Monad.Except (ExceptT(..), lift, runExceptT)
 import Control.Parallel (parTraverse)
-import Data.Argonaut as Json
 import Data.Array.NonEmpty (NonEmptyArray)
 import Data.Array.NonEmpty as NonEmptyArray
 import Data.Bifunctor (lmap)
@@ -23,6 +22,7 @@ import Data.Tuple (Tuple(..))
 import Effect.Aff (Aff, parallel, sequential)
 import Effect.Class (liftEffect)
 import Effect.Class.Console as Console
+import JSON as JSON
 import Node.Encoding (Encoding(..))
 import Node.FS.Aff as FS
 import Node.Glob.Basic (expandGlobs)
@@ -32,7 +32,7 @@ import PureScript.Backend.Optimizer.Analysis (BackendAnalysis)
 import PureScript.Backend.Optimizer.Builder (BuildEnv, buildModules)
 import PureScript.Backend.Optimizer.Convert (BackendModule, OptimizationSteps)
 import PureScript.Backend.Optimizer.CoreFn (Ann, Ident, Module, ModuleName(..), Qualified)
-import PureScript.Backend.Optimizer.CoreFn.Json (decodeModule)
+import PureScript.Backend.Optimizer.CoreFn.Json (decodeModule, printJsonDecodeError)
 import PureScript.Backend.Optimizer.CoreFn.Sort (emptyPull, pullResult, resumePull, sortModules)
 import PureScript.Backend.Optimizer.Directives (parseDirectiveFile)
 import PureScript.Backend.Optimizer.Directives.Defaults as Defaults
@@ -66,7 +66,7 @@ coreFnModulesFromOutput path globs = runExceptT do
 readCoreFnModule :: String -> Aff (Either (Tuple FilePath String) (Module Ann))
 readCoreFnModule filePath = do
   contents <- FS.readTextFile UTF8 filePath
-  case lmap Json.printJsonDecodeError <<< decodeModule =<< Json.jsonParser contents of
+  case lmap printJsonDecodeError <<< decodeModule =<< JSON.parse contents of
     Left err -> do
       pure $ Left $ Tuple filePath err
     Right mod ->

backend-es/src/PureScript/Backend/Optimizer/Codegen/EcmaScript/Common.purs

@@ -18,7 +18,6 @@ module PureScript.Backend.Optimizer.Codegen.EcmaScript.Common
 
 import Prelude
 
-import Data.Argonaut as Json
 import Data.Array (fold)
 import Data.Array as Array
 import Data.Enum (fromEnum)
@@ -31,6 +30,7 @@ import Data.String.Regex.Flags (global, noFlags, unicode)
 import Data.String.Regex.Unsafe (unsafeRegex)
 import Dodo as Dodo
 import Dodo.Common as Dodo.Common
+import JSON as JSON
 import PureScript.Backend.Optimizer.CoreFn (Comment(..), ModuleName(..))
 
 esModuleName :: forall a. ModuleName -> Dodo.Doc a
@@ -248,4 +248,4 @@ esTernary a b c =
     ]
 
 esEscapeString :: String -> String
-esEscapeString = Json.stringify <<< Json.fromString
+esEscapeString = JSON.print <<< JSON.fromString

packages.dhall

@@ -26,3 +26,19 @@ in  upstream
     }
   with arrays.version = "v7.2.1"
   with ordered-collections.version = "v3.1.0"
+  with json =
+    { dependencies =
+      [ "prelude"
+      , "functions"
+      , "integers"
+      , "maybe"
+      , "either"
+      , "tuples"
+      , "foldable-traversable"
+      , "gen"
+      , "strings"
+      , "unfoldable"
+      ]
+    , repo = "https://github.com/purescript/purescript-json.git"
+    , version = "da4695707d8aacd54e7cbbd54c069509248ff989"
+    }

spago.dhall

@@ -6,7 +6,6 @@ You can edit this file as you like.
 , dependencies =
   [ "aff"
   , "ansi"
-  , "argonaut"
   , "argparse-basic"
   , "arrays"
   , "bifunctors"
@@ -20,8 +19,8 @@ You can edit this file as you like.
   , "enums"
   , "filterable"
   , "foldable-traversable"
-  , "foreign-object"
   , "integers"
+  , "json"
   , "language-cst-parser"
   , "lazy"
   , "lists"