RankNTypes for client

kazu-yamamoto · May 29, 2023 · 8919ebb · 8919ebb
1 parent 9968ed1
commit 8919ebb
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/util/client.hs b/util/client.hs
@@ -1,4 +1,5 @@
 {-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RankNTypes #-}
 
 module Main where
 
@@ -14,12 +15,13 @@ serverName :: String
 serverName = "127.0.0.1"
 
 main :: IO ()
-main = runTCPClient serverName "80" $ runHTTP2Client serverName
+main = runTCPClient serverName "8080" $ runHTTP2Client serverName
   where
     cliconf host = ClientConfig "http" (C8.pack host) 20
     runHTTP2Client host s = E.bracket (allocSimpleConfig s 4096)
                                       freeSimpleConfig
                                       (\conf -> run (cliconf host) conf client)
+    client :: Client ()
     client sendRequest = do
         let req0 = requestNoBody methodGet "/" []
             client0 = sendRequest req0 $ \rsp -> do