Updates to new bolson (#60)

Co-authored-by: Mike Solomon <mike120982@gmail.com>

CHANGELOG.md

@@ -4,6 +4,9 @@ All notable changes to this project will be documented in this file.
 
 The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/),
 and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0.html).
+## [1.1.10] - 2022-06-06
+
+- Upgrades to new Bolson
 
 ## [1.1.9] - 2022-06-01
 

package.json

@@ -1,6 +1,6 @@
 {
   "name": "purescript-wags",
-  "version": "1.1.9",
+  "version": "1.1.10",
   "description": "Web Audio Graphs as a Stream",
   "scripts": {
     "build": "spago build",

packages.dhall

@@ -33,7 +33,7 @@ let additions =
       , bolson =
         { dependencies = [ "prelude", "heterogeneous" ]
         , repo = "https://github.com/mikesol/purescript-bolson.git"
-        , version = "v0.0.4"
+        , version = "v0.0.6"
         }
       , monoid-extras =
         { dependencies = [ "prelude" ]
@@ -146,7 +146,7 @@ let additions =
           , "web-events"
           ]
         , repo = "https://github.com/mikesol/purescript-deku.git"
-        , version = "v0.4.6"
+        , version = "v0.4.8"
         }
       , homogeneous =
         { dependencies =

src/WAGS/Control.purs

@@ -1520,13 +1520,15 @@ globalFan
   => Vect n (C.Audible o lock payload)
   -> (Vect n (C.Audible o lock payload) -> C.Audible o lock payload)
   -> C.Audible o lock payload
-globalFan a b = Bolson.globalPortal
+globalFan a b = Bolson.globalPortalComplexComplex
   { doLogic: absurd
   , ids: unwrap >>> _.ids
   , disconnectElement: \(C.AudioInterpret { disconnectXFromY }) { id, parent } -> disconnectXFromY { from: id, to: parent }
   , toElt: \(C.Node e) -> Element e
   }
-  { fromElt: \(Element e) -> C.Node e
+  { fromEltO1: coerce
+  , fromEltO2: coerce
+  , toElt: coerce
   , wrapElt: \e -> gain_ 1.0 [ e ]
   , giveNewParent: \(C.AudioInterpret { connectXToY }) { id, parent } _ -> connectXToY { from: id, to: parent }
   , deleteFromCache: unwrap >>> _.deleteFromCache
@@ -1544,13 +1546,15 @@ fan
        -> C.Audible o lock1 payload
      )
   -> C.Audible o lock0 payload
-fan a b = Bolson.portal
+fan a b = Bolson.portalComplexComplex
   { doLogic: absurd
   , ids: unwrap >>> _.ids
   , disconnectElement: \(C.AudioInterpret { disconnectXFromY }) { id, parent } -> disconnectXFromY { from: id, to: parent }
   , toElt: \(C.Node e) -> Element e
   }
-  { fromElt: \(Element e) -> C.Node e
+  { fromEltO1: coerce
+  , fromEltO2: coerce
+  , toElt: coerce
   , wrapElt: \e -> gain_ 1.0 [ e ]
   , giveNewParent: \(C.AudioInterpret { connectXToY }) { id, parent } _ -> connectXToY { from: id, to: parent }
   , deleteFromCache: unwrap >>> _.deleteFromCache
@@ -1583,13 +1587,13 @@ fix
   :: forall outputChannels lock payload
    . (C.Audible outputChannels lock payload -> C.Audible outputChannels lock payload)
   -> C.Audible outputChannels lock payload
-fix = Bolson.fix
+fix = Bolson.fixComplexComplex
   { doLogic: absurd
   , ids: unwrap >>> _.ids
   , disconnectElement: \(C.AudioInterpret { disconnectXFromY }) { id, parent } -> disconnectXFromY { from: id, to: parent }
   , toElt: \(C.Node e) -> Element e
   }
-  { fromElt: \(Element e) -> C.Node e
+  { fromElt: coerce
   , connectToParent: \(C.AudioInterpret { connectXToY }) { id, parent } -> connectXToY { from: id, to: parent }
   }