fix: catch incorrect stream implementations
This commit is contained in:
@@ -87,6 +87,7 @@ fromTransform :: forall a b m. MonadThrow Error m => MonadAff m => O.Transform a
|
|||||||
fromTransform t =
|
fromTransform t =
|
||||||
let
|
let
|
||||||
cleanup removeErrorListener = do
|
cleanup removeErrorListener = do
|
||||||
|
yieldWhileReadable
|
||||||
liftEffect $ O.end t
|
liftEffect $ O.end t
|
||||||
liftEffect $ removeErrorListener
|
liftEffect $ removeErrorListener
|
||||||
fromReadable t
|
fromReadable t
|
||||||
|
|||||||
Reference in New Issue
Block a user