client takes host and port

util/client.hs

@@ -5,17 +5,26 @@ module Main where
 
 import Control.Concurrent.Async
 import qualified Control.Exception as E
+import Control.Monad
 import qualified Data.ByteString.Char8 as C8
 import Network.HTTP.Types
 import Network.Run.TCP (runTCPClient) -- network-run
+import System.Environment
+import System.Exit
 
 import Network.HTTP2.Client
 
 serverName :: String
 serverName = "127.0.0.1"
 
 main :: IO ()
-main = runTCPClient serverName "8080" $ runHTTP2Client serverName
+main = do
+    args <- getArgs
+    when (length args /= 2) $ do
+        putStrLn "client <addr> <port>"
+        exitFailure
+    let [host,port] = args
+    runTCPClient serverName port $ runHTTP2Client host
   where
     cliconf host = ClientConfig "http" (C8.pack host) 20
     runHTTP2Client host s = E.bracket (allocSimpleConfig s 4096)

util/server.hs

@@ -14,11 +14,12 @@ import qualified Data.ByteString.Char8 as C8
 import Network.HPACK
 import Network.HPACK.Token
 import Network.HTTP.Types
-import Network.HTTP2.Server
 import Network.Run.TCP -- network-run
 import System.Environment
 import System.Exit
 
+import Network.HTTP2.Server
+
 main :: IO ()
 main = do
     args <- getArgs