Introduce Http2Manager to help with reusing http2 connections (#3120)

Co-authored-by: fisx <[email protected]>

Author: akshaymankar

cabal.project

@@ -11,6 +11,7 @@ packages:
   , libs/galley-types/
   , libs/gundeck-types/
   , libs/hscim/
+  , libs/http2-manager/
   , libs/imports/
   , libs/jwt-tools/
   , libs/metrics-core/
@@ -100,6 +101,8 @@ package gundeck-types
     ghc-options: -Werror
 package hscim
     ghc-options: -Werror
+package http2-manager
+    ghc-options: -Werror
 package imports
     ghc-options: -Werror
 package jwt-tools

changelog.d/5-internal/reuse-http2

@@ -0,0 +1 @@
+Reuse HTTP2 connections from brig, galley, cargohold and federator

libs/http2-manager/LICENSE

@@ -0,0 +1,59 @@
+# WARNING: GENERATED FILE, DO NOT EDIT.
+# This file is generated by running hack/bin/generate-local-nix-packages.sh and
+# must be regenerated whenever local packages are added or removed, or
+# dependencies are added or removed.
+{ mkDerivation
+, async
+, base
+, bytestring
+, containers
+, gitignoreSource
+, HsOpenSSL
+, hspec
+, hspec-discover
+, http-types
+, http2
+, lib
+, network
+, random
+, stm
+, streaming-commons
+, text
+, time-manager
+}:
+mkDerivation {
+  pname = "http2-manager";
+  version = "0.0.1";
+  src = gitignoreSource ./.;
+  libraryHaskellDepends = [
+    async
+    base
+    bytestring
+    containers
+    HsOpenSSL
+    http2
+    network
+    stm
+    streaming-commons
+    text
+    time-manager
+  ];
+  testHaskellDepends = [
+    async
+    base
+    bytestring
+    containers
+    HsOpenSSL
+    hspec
+    http-types
+    http2
+    network
+    random
+    stm
+    streaming-commons
+    time-manager
+  ];
+  testToolDepends = [ hspec-discover ];
+  description = "Managed connection pool for HTTP2";
+  license = lib.licenses.agpl3Only;
+}

libs/http2-manager/default.nix

@@ -0,0 +1,79 @@
+cabal-version:      1.12
+name:               http2-manager
+version:            0.0.1
+synopsis:           Managed connection pool for HTTP2
+description:        Helps reuse HTTP2 connections with TLS support
+category:           Web
+author:             Wire Swiss GmbH
+maintainer:         Wire Swiss GmbH <[email protected]>
+copyright:          (c) 2020 Wire Swiss GmbH
+license:            AGPL-3
+license-file:       LICENSE
+build-type:         Simple
+
+-- cabal-fmt: glob-files test/resources/*.pem
+extra-source-files:
+  test/resources/localhost-key.pem
+  test/resources/localhost.example.com-key.pem
+  test/resources/localhost.example.com.pem
+  test/resources/localhost.pem
+  test/resources/unit-ca-key.pem
+  test/resources/unit-ca.pem
+
+library
+  -- cabal-fmt: expand src
+  exposed-modules:
+    HTTP2.Client.Manager
+    HTTP2.Client.Manager.Internal
+
+  other-modules:    Paths_http2_manager
+  hs-source-dirs:   src
+  ghc-options:
+    -O2 -Wall -Wincomplete-uni-patterns -Wincomplete-record-updates
+    -Wpartial-fields -fwarn-tabs -Wredundant-constraints
+
+  build-depends:
+      async
+    , base
+    , bytestring
+    , containers
+    , HsOpenSSL
+    , http2
+    , network
+    , stm
+    , streaming-commons
+    , text
+    , time-manager
+
+  default-language: Haskell2010
+
+test-suite http2-manager-tests
+  type:               exitcode-stdio-1.0
+  main-is:            Main.hs
+  ghc-options:
+    -Wall -Wincomplete-uni-patterns -Wincomplete-record-updates
+    -Wpartial-fields -fwarn-tabs -optP-Wno-nonportable-include-path
+    -Wredundant-constraints -threaded -with-rtsopts=-N
+
+  -- cabal-fmt: expand test
+  other-modules:
+    Main
+    Test.HTTP2.Client.ManagerSpec
+
+  hs-source-dirs:     test
+  build-tool-depends: hspec-discover:hspec-discover
+  build-depends:
+      async
+    , base
+    , bytestring
+    , containers
+    , HsOpenSSL
+    , hspec
+    , http-types
+    , http2
+    , http2-manager
+    , network
+    , random
+    , stm
+    , streaming-commons
+    , time-manager

libs/http2-manager/http2-manager.cabal

@@ -0,0 +1,19 @@
+module HTTP2.Client.Manager
+  ( Http2Manager,
+    setCacheLimit,
+    setSSLContext,
+    TLSEnabled,
+    HostName,
+    Port,
+    Target,
+    defaultHttp2Manager,
+    http2ManagerWithSSLCtx,
+    withHTTP2Request,
+    connectIfNotAlreadyConnected,
+    ConnectionAlreadyClosed (..),
+    disconnectTarget,
+    disconnectTargetWithTimeout,
+  )
+where
+
+import HTTP2.Client.Manager.Internal