orion/purescript-node-stream-pipes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix: relax pipeAsync constraints

Browse Source
This commit is contained in:
orion 2024-06-25 14:20:25 -05:00
parent c73d934a5c
commit 4a9dbf0a3c
Signed by: orion
GPG Key ID: 6D4165AE4C928719
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/Pipes.Async.purs
View File

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