From c94a509f0d44c76a0576b3d66f4a0ce8901a9c7e Mon Sep 17 00:00:00 2001
From: Philippe Pittoli <karchnu@karchnu.fr>
Date: Fri, 19 May 2023 23:50:24 +0200
Subject: [PATCH] Project now compiles.

---
 packages.dhall   | 3 ++-
 spago.dhall      | 4 ++++
 src/App/IPC.purs | 5 ++++-
 3 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/packages.dhall b/packages.dhall
index 4bf65cc..c1ea670 100644
--- a/packages.dhall
+++ b/packages.dhall
@@ -1,4 +1,5 @@
 let upstream =
-      https://github.com/purescript/package-sets/releases/download/psc-0.15.4-20220816/packages.dhall sha256:8b4467b4b5041914f9b765779c8936d6d4c230b1f60eb64f6269c71812fd7e98
+      https://github.com/purescript/package-sets/releases/download/psc-0.15.8-20230517/packages.dhall
+        sha256:8b94a0cd7f86589a6bd06d48cb9a61d69b66a94b668657b2f10c8b14c16e028c
 
 in  upstream
diff --git a/spago.dhall b/spago.dhall
index 737f2c0..7c9d479 100644
--- a/spago.dhall
+++ b/spago.dhall
@@ -6,16 +6,20 @@
   , "arraybuffer-builder"
   , "arraybuffer-types"
   , "arrays"
+  , "bifunctors"
   , "codec-argonaut"
   , "console"
   , "const"
   , "effect"
   , "either"
+  , "exceptions"
   , "foreign"
   , "halogen"
   , "halogen-subscriptions"
   , "lists"
   , "maybe"
+  , "parsing"
+  , "parsing-dataview"
   , "prelude"
   , "strings"
   , "transformers"
diff --git a/src/App/IPC.purs b/src/App/IPC.purs
index b2cca76..0598e4c 100644
--- a/src/App/IPC.purs
+++ b/src/App/IPC.purs
@@ -18,9 +18,11 @@ import Data.ArrayBuffer.Builder as Builder
 import Data.ArrayBuffer.Cast as Cast
 
 import Control.Monad.Trans.Class (lift)
+import Control.Monad.Except (ExceptT(ExceptT), withExceptT)
 import Data.ArrayBuffer.Typed as Typed
 import Data.ArrayBuffer.DataView as DataView
 import Parsing.DataView as Parsing.DataView
+import Parsing as Parsing
 import Parsing (ParserT(..), ParseError(..), runParserT)
 
 import Data.String.CodeUnits as CU
@@ -34,6 +36,7 @@ import Data.Char (fromCharCode)
 import Data.ArrayBuffer.DataView as DV
 import Effect.Unsafe
 import Data.Either (Either(Left, Right), either, note, hush)
+import Effect.Exception as Exception
 
 utf8ToArrayBuffer :: String -> Effect ArrayBuffer
 utf8ToArrayBuffer s = Builder.execPutM do
@@ -50,7 +53,7 @@ toIPC = utf8ToArrayBuffer
 fromIPC :: ArrayBuffer -> Effect String
 fromIPC ab = arrayBufferToUtf8 ab >>= case _ of
     Left parseError -> do
-      pure parseError
+      pure $ show parseError
     Right string -> do
       pure string