Merge pull request #143 from kazu-yamamoto/ipv6-literal-auth

enclosing IPv6 literal authority with square brackets

Network/HTTP2/Client/Run.hs

@@ -8,11 +8,13 @@ module Network.HTTP2.Client.Run where
 import Control.Concurrent.STM (check)
 import qualified Data.ByteString.UTF8 as UTF8
 import Data.IORef
+import Data.IP (IPv6)
 import Network.Control (RxFlow (..), defaultMaxData)
 import Network.HTTP.Semantics.Client
 import Network.HTTP.Semantics.Client.Internal
 import Network.HTTP.Semantics.IO
 import Network.Socket (SockAddr)
+import Text.Read (readMaybe)
 import UnliftIO.Async
 import UnliftIO.Concurrent
 import UnliftIO.Exception
@@ -176,12 +178,16 @@ sendRequest conf ctx@Context{..} scheme auth (Request req) = do
             -- the ordering of responses can be out-of-order.
             -- But for clients, the ordering must be maintained.
             -- To implement this, 'outputQStreamID' is used.
+            let isIPv6 = isJust (readMaybe auth :: Maybe IPv6)
+                auth'
+                    | isIPv6 = "[" <> UTF8.fromString auth <> "]"
+                    | otherwise = UTF8.fromString auth
             let hdr1, hdr2 :: [Header]
                 hdr1
                     | scheme /= "" = (":scheme", scheme) : hdr0
                     | otherwise = hdr0
                 hdr2
-                    | auth /= "" = (":authority", UTF8.fromString auth) : hdr1
+                    | auth /= "" = (":authority", auth') : hdr1
                     | otherwise = hdr1
                 req' = req{outObjHeaders = hdr2}
             -- FLOW CONTROL: SETTINGS_MAX_CONCURRENT_STREAMS: send: respecting peer's limit

http2.cabal

@@ -118,6 +118,7 @@ library
         containers >=0.6,
         http-semantics >= 0.2 && <0.3,
         http-types >=0.12 && <0.13,
+        iproute >= 1.7 && < 1.8,
         network >=3.1,
         network-byte-order >=0.1.7 && <0.2,
         network-control >=0.1 && <0.2,