fixup: fix windows

IntersectMBO · Feb 11, 2025 · 017aa8f · 017aa8f
1 parent e7fb5de
commit 017aa8f
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/network-mux/src/Network/Mux/Bearer/NamedPipe.hs b/network-mux/src/Network/Mux/Bearer/NamedPipe.hs
@@ -38,8 +38,8 @@ namedPipeAsBearer sduSize tracer h =
         Mx.read      = readNamedPipe,
         Mx.write     = writeNamedPipe,
         Mx.writeMany = writeNamedPipeMany,
-        Mx.sduSize   = sduSize
-        Mx.batchSize = fromIntegral $ getSDUSize sduSize
+        Mx.sduSize   = sduSize,
+        Mx.batchSize = fromIntegral $ Mx.getSDUSize sduSize
       }
   where
     readNamedPipe :: Mx.TimeoutFn IO -> IO (Mx.MuxSDU, Time)

diff --git a/network-mux/src/Network/Mux/Bearer/Socket.hs b/network-mux/src/Network/Mux/Bearer/Socket.hs
@@ -116,7 +116,7 @@ socketAsMuxBearer sduSize batchSize readBuffer readBufferSize sduTimeout tracer
           if BL.null availableData
              then do
 #if defined(mingw32_HOST_OS)
-                 buf <- Win32.Async.recv sd (max l readBufferSize)
+                 buf <- Win32.Async.recv sd (fromIntegral $ max l readBufferSize)
 #else
                  buf <- Socket.recv sd (max l readBufferSize)
 #endif