From 8919ebb576778bf6e8a610fd87eb96813595ec68 Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Mon, 29 May 2023 10:01:51 +0900
Subject: [PATCH] RankNTypes for client

---
 util/client.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/util/client.hs b/util/client.hs
index d12ee64d..ebaa0c99 100644
--- 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