adding runQUICSockets to warp-quic

yesodweb · Oct 30, 2024 · 6688846 · 6688846
1 parent 8fddc60
commit 6688846
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/warp-quic/Network/Wai/Handler/WarpQUIC.hs b/warp-quic/Network/Wai/Handler/WarpQUIC.hs
@@ -22,6 +22,11 @@ runQUICSocket quicsettings settings sock app =
     withII settings $ \ii ->
         Q.runWithSockets [sock] quicsettings $ quicApp settings app ii
 
+runQUICSockets :: QUICSettings -> Settings -> [Socket] -> Application -> IO ()
+runQUICSockets quicsettings settings ss app =
+    withII settings $ \ii ->
+        Q.runWithSockets ss quicsettings $ quicApp settings app ii
+
 -- | Running warp with HTTP/3 on QUIC.
 runQUIC :: QUICSettings -> Settings -> Application -> IO ()
 runQUIC quicsettings settings app =