fix: catch incorrect stream implementations

This commit is contained in:
orion 2024-05-14 13:42:39 -05:00
parent 3f4bc12d36
commit 7076b13df4
Signed by: orion
GPG Key ID: 6D4165AE4C928719

View File

@ -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