fixing test

kazu-yamamoto · Jul 3, 2024 · ba15c1c · ba15c1c
1 parent b948b49
commit ba15c1c
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/http2.cabal b/http2.cabal
@@ -333,7 +333,8 @@ test-suite spec2
         http-types,
         http2,
         network-run >=0.1.0,
-        typed-process
+        typed-process,
+        unliftio
 
     if flag(h2spec)
 

diff --git a/test2/ServerSpec.hs b/test2/ServerSpec.hs
@@ -34,7 +34,7 @@ runServer = runTCPServer (Just host) port runHTTP2Server
         E.bracket
             (allocSimpleConfig s 4096)
             freeSimpleConfig
-            (`run` server)
+            (\conf -> run defaultServerConfig conf server)
 
 server :: Server
 server req _aux sendResponse = case requestMethod req of