[ fix ] asynchronously write to streams

stefan-hoeck · Apr 30, 2024 · 638700c · 638700c
1 parent 6a112cf
commit 638700c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/System/UV/Stream.idr b/src/System/UV/Stream.idr
@@ -60,8 +60,8 @@ parameters {auto l : UVLoop}
   export
   write : Ptr t -> (0 _ : PCast t Stream) => ByteString -> Async es ()
   write str b =
-    use1 (fromByteString b) $ \cs =>
-      uv $ uv_write str cs (cast b.size) (\_,_ => pure ())
+    use1 (fromByteString b) $ \cs => uvAsync $ \cb =>
+      uv_write str cs (cast b.size) (\_,_ => cb $ Succeeded ())
 
   export
   listen :