From 65fa53b819da3a35e677eb0fdc31b2c9e7420b8f Mon Sep 17 00:00:00 2001
From: Anil Madhavapeddy <anil@recoil.org>
Date: Sat, 22 Jul 2023 16:54:45 +0100
Subject: [PATCH] sockopt: fix windows build

---
 lib_eio_windows/flow.ml | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/lib_eio_windows/flow.ml b/lib_eio_windows/flow.ml
index dccf0aafa..929ddd114 100755
--- a/lib_eio_windows/flow.ml
+++ b/lib_eio_windows/flow.ml
@@ -81,6 +81,12 @@ let of_fd fd = object (_ : <Eio_unix.Net.stream_socket; Eio.File.rw>)
   method probe : type a. a Eio.Generic.ty -> a option = function
     | Eio_unix.Resource.FD -> Some fd
     | _ -> None
+
+  method getsockopt : type a. a Eio.Net.Sockopt.t -> a = fun opt ->
+    Eio_unix.Net.Sockopt.get fd opt
+
+  method setsockopt : type a. a Eio.Net.Sockopt.t -> a -> unit = fun opt v ->
+    Eio_unix.Net.Sockopt.set fd opt v
 end
 
 let secure_random = object