chore: prepare v2.1.3

package.json

@@ -1,6 +1,6 @@
 {
   "name": "purescript-node-stream-pipes",
-  "version": "v2.1.1",
+  "version": "v2.1.3",
   "type": "module",
   "dependencies": {
     "csv-parse": "^5.5.6",

spago.yaml

@@ -1,7 +1,7 @@
 package:
   name: node-stream-pipes
   publish:
-    version: '2.1.1'
+    version: '2.1.3'
     license: 'GPL-3.0-or-later'
     location:
       githubOwner: 'cakekindel'

src/Pipes.Async.purs

@@ -29,7 +29,6 @@ import Data.Tuple.Nested (type (/\), (/\))
 import Effect.Aff.Class (class MonadAff, liftAff)
 import Effect.Class (class MonadEffect, liftEffect)
 import Effect.Console (log)
-import Effect.Exception (Error, error)
 import Effect.Now as Now
 import Pipes (await, yield)
 import Pipes.Collect as Collect
@@ -322,19 +321,19 @@ sync m =
 -- |
 -- | If the consuming half fails, the error is caught, the producing half is killed, and the error is rethrown.
 pipeAsync
-  :: forall f m a b
+  :: forall e f m a b
    . MonadRec m
   => MonadAff m
-  => MonadBracket Error f m
+  => MonadBracket e f m
   => Producer (Maybe a) m Unit
   -> AsyncPipe (Maybe a) (Maybe b) m Unit
   -> Producer (Maybe b) m Unit
 pipeAsync prod m =
   lift (getAsyncIO m)
     >>= case _ of
-          Nothing -> throwError $ error "`pipeAsync` invoked on `AsyncPipe` that did not have `AsyncIO`"
+          Nothing -> pure unit
           Just ({write, read, awaitWrite, awaitRead} /\ done) -> do
-            errST :: STRef _ (Maybe Error) <- lift $ liftEffect $ liftST $ ST.Ref.new Nothing
+            errST :: STRef _ (Maybe e) <- lift $ liftEffect $ liftST $ ST.Ref.new Nothing
             killST :: STRef _ Boolean <- lift $ liftEffect $ liftST $ ST.Ref.new false
 
             let