gnu: hoogle: Restore compatibility with our crypton-connection.

Without this change, `hoogle generate` fails unconditionally.

See: https://github.com/ndmitchell/hoogle/issues/450

* gnu/packages/haskell-apps.scm (hoogle): Restore crypton-connection compat.
[source]: Add new patch.
[inputs]: Add ghc-data-default-class.
* gnu/packages/patches/hoogle-crypton-connection-0.4.X.patch: Add file.
* gnu/local.mk (dist_patch_DATA): Register patch.

3 files changed, 44 insertions, 1 deletions

diff --git a/gnu/local.mk b/gnu/local.mk
index 3b91a9eb623..d828205b7cd 100644
--- a/gnu/local.mk
+++ b/gnu/local.mk
@@ -1623,6 +1623,7 @@ dist_patch_DATA =						\
   %D%/packages/patches/helm-fix-gcc-9-build.patch               \
   %D%/packages/patches/highlight-gui-data-dir.patch             \
   %D%/packages/patches/hipblaslt-python-nanobind.patch          \
+  %D%/packages/patches/hoogle-crypton-connection-0.4.X.patch    \
   %D%/packages/patches/hplip-usb-timeout.patch                  \
   %D%/packages/patches/http-parser-CVE-2020-8287.patch          \
   %D%/packages/patches/hubbub-sort-entities.patch               \
diff --git a/gnu/packages/haskell-apps.scm b/gnu/packages/haskell-apps.scm
index 041b5ae93b7..374eb031747 100644
--- a/gnu/packages/haskell-apps.scm
+++ b/gnu/packages/haskell-apps.scm
@@ -588,7 +588,8 @@ unwanted suggestions, and to add your own custom suggestions.")
        (method url-fetch)
        (uri (hackage-uri "hoogle" version))
        (sha256
-        (base32 "08z32d87vqzhapb2vw21h25jb2g74csxlpvd8f54xl91k3ijs3wx"))))
+        (base32 "08z32d87vqzhapb2vw21h25jb2g74csxlpvd8f54xl91k3ijs3wx"))
+       (patches (search-patches "hoogle-crypton-connection-0.4.X.patch"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "hoogle")))
     (inputs (list ghc-quickcheck
@@ -599,6 +600,7 @@ unwanted suggestions, and to add your own custom suggestions.")
                   ghc-conduit
                   ghc-conduit-extra
                   ghc-crypton-connection
+                  ghc-data-default-class
                   ghc-extra
                   ghc-foundation
                   ghc-old-locale
diff --git a/gnu/packages/patches/hoogle-crypton-connection-0.4.X.patch b/gnu/packages/patches/hoogle-crypton-connection-0.4.X.patch
new file mode 100644
index 00000000000..cde496d5104
--- /dev/null
+++ b/gnu/packages/patches/hoogle-crypton-connection-0.4.X.patch
@@ -0,0 +1,40 @@
+Fixes compatibility with crypton-connection >= 0.4.1.
+
+See: https://github.com/ndmitchell/hoogle/commit/77291e895b3704ecbdb7377867f1dc5f887b6f52
+
+diff --git a/hoogle.cabal b/hoogle.cabal
+index dafc0945..c5f4c39d 100644
+--- a/hoogle.cabal
++++ b/hoogle.cabal
+@@ -53,7 +53,8 @@ library
+         conduit >= 1.3.0,
+         conduit-extra >= 1.2.3.2,
+         containers >= 0.5,
+-        crypton-connection,
++        crypton-connection >= 0.4.1,
++        data-default-class,
+         deepseq,
+         directory,
+         extra >= 1.6.6,
+diff --git a/src/Input/Download.hs b/src/Input/Download.hs
+index 7171f458..5d40608e 100644
+--- a/src/Input/Download.hs
++++ b/src/Input/Download.hs
+@@ -6,6 +6,7 @@ import System.FilePath
+ import Control.Monad.Extra
+ import System.Directory
+ import Data.Conduit.Binary (sinkFile)
++import Data.Default.Class
+ import qualified Network.HTTP.Conduit as C
+ import Network.Connection
+ import qualified Data.Conduit as C
+@@ -45,7 +46,8 @@ downloadFile insecure file url = do
+       (TLSSettingsSimple {
+         settingDisableCertificateValidation = insecure,
+         settingDisableSession = False,
+-        settingUseServerName = False
++        settingUseServerName = False,
++        settingClientSupported = def
+       }) Nothing
+     runResourceT $ do
+         response <- C.http request manager