dev-haskell/dbus: Bump to 1.2.27, patch to allow earlier TH

Patch (by me) to allow earlier template-haskell versions.

Tests pass with network-sandbox, thanks to eroen for reporting.

Fix: dbus depends on nonexistent version of lens gentoo#1360, thanks to Hypoon
for reporting.

Closes: gentoo-haskell/gentoo-haskell#1360
Closes: https://bugs.gentoo.org/575254
Signed-off-by: Mark Wright <[email protected]>

dev-haskell/dbus/Manifest

@@ -1 +1,2 @@
 DIST dbus-1.2.22.tar.gz 78010 BLAKE2B c7189e15e0a9622e707bb50064584bd43141857257baec8e6d59d0cf39428b3b5efa82668ef70fbff218738ba5822b1aaad0c85b5e14bfa3ae4ef237e2458a9d SHA512 81f9fe1420939ebb5b03602ba59dd86656e4443690d8be460684dcb461ff7df1ff4cdf846a5a15ea6193b6f64b08526b27d3e12825a375eecbded3d0a99a59b9
+DIST dbus-1.2.27.tar.gz 78017 BLAKE2B 396739e7e6af0fe1921c9d3857c0650db9532d00a3fd2eda18042d42ce8336631d93d0c0ce75681b695f9e90c7205e38aea7c4f984544460ecab19c7d5090478 SHA512 2c6b87b4a793b555ef617e3f3f89695116180f0e1df2f84ee3da62c819c05c10a78d328644b84c8c9796354ee6dd1c6ad6b0430a1b9a2d7fe112b251d4606e8d

dev-haskell/dbus/dbus-1.2.27.ebuild

@@ -0,0 +1,51 @@
+# Copyright 1999-2022 Gentoo Authors
+# Distributed under the terms of the GNU General Public License v2
+
+EAPI=8
+
+# ebuild generated by hackport 0.7.1.1.9999
+
+CABAL_FEATURES="lib profile haddock hoogle hscolour test-suite"
+inherit haskell-cabal
+
+DESCRIPTION="A client library for the D-Bus IPC system"
+HOMEPAGE="https://github.com/rblaze/haskell-dbus#readme"
+SRC_URI="https://hackage.haskell.org/package/${P}/${P}.tar.gz"
+
+LICENSE="Apache-2.0"
+SLOT="0/${PV}"
+KEYWORDS="~amd64 ~arm64 ~ppc64 ~riscv ~x86"
+
+PATCHES=(
+	"${FILESDIR}/${PN}-1.2.22-disable-integration-tests.patch"
+	"${FILESDIR}/${PN}-1.2.27-template-haskell.patch"
+)
+
+RDEPEND="<dev-haskell/cereal-0.6:=[profile?]
+	>=dev-haskell/conduit-1.3.0:=[profile?] <dev-haskell/conduit-1.4:=[profile?]
+	<dev-haskell/lens-5.3:=[profile?]
+	>=dev-haskell/network-3.1.2.1:=[profile?] <dev-haskell/network-3.2:=[profile?]
+	<dev-haskell/random-1.3:=[profile?]
+	<dev-haskell/split-0.3:=[profile?]
+	<dev-haskell/th-lift-0.9:=[profile?]
+	<dev-haskell/vector-0.14:=[profile?]
+	>=dev-haskell/xml-conduit-1.9.0.0:=[profile?] <dev-haskell/xml-conduit-1.10.0.0:=[profile?]
+	<dev-haskell/xml-types-0.4:=[profile?]
+	>=dev-lang/ghc-8.10.1:=
+"
+DEPEND="${RDEPEND}
+	>=dev-haskell/cabal-3.2.0.0
+	test? ( <dev-haskell/extra-1.8
+		<dev-haskell/quickcheck-2.15
+		<dev-haskell/resourcet-1.3
+		<dev-haskell/tasty-1.5
+		<dev-haskell/tasty-hunit-0.11
+		<dev-haskell/tasty-quickcheck-0.11 )
+"
+
+src_prepare() {
+	default
+	cabal_chdeps \
+		"base >=4.16 && <5" "base >=4 && <5" \
+		"template-haskell >= 2.18 && < 2.20" "template-haskell"
+}

dev-haskell/dbus/files/dbus-1.2.27-template-haskell.patch

@@ -0,0 +1,14 @@
+--- dbus-1.2.27-orig/lib/DBus/Generation.hs	2022-07-13 00:32:15.000000000 +1000
++++ dbus-1.2.27/lib/DBus/Generation.hs	2022-11-15 11:11:32.291154128 +1100
+@@ -148,7 +148,11 @@
+ makeFromVariantApp name = AppE (VarE 'T.fromVariant) $ VarE name
+
+ makeJustPattern :: Name -> Pat
++#if MIN_VERSION_template_haskell(2,18,0)
+ makeJustPattern name = ConP 'Just [] [VarP name]
++#else
++makeJustPattern name = ConP 'Just [VarP name]
++#endif
+
+ mapOrHead ::
+   (Num a, Eq a) => a -> (t -> b) -> [t] -> ([b] -> b) -> b

dev-haskell/dbus/metadata.xml

@@ -8,23 +8,23 @@
 		D-Bus is a simple, message-based protocol for inter-process
 		communication, which allows applications to interact with other parts of
 		the machine and the user's session using remote procedure calls.
-		
+
 		D-Bus is a essential part of the modern Linux desktop, where it replaces
 		earlier protocols such as CORBA and DCOP.
-		
+
 		This library is an implementation of the D-Bus protocol in Haskell. It
 		can be used to add D-Bus support to Haskell applications, without the
 		awkward interfaces common to foreign bindings.
-		
+
 		Example: connect to the session bus, and get a list of active names.
-		
+
 		@
 		{-\# LANGUAGE OverloadedStrings \#-}
-		
+
 		import Data.List (sort)
 		import DBus
 		import DBus.Client
-		
+
 		main = do
 		    client <- connectSession
 		    //
@@ -41,7 +41,7 @@
 		    \-- temporary names.
 		    mapM_ putStrLn (sort names)
 		@
-		
+
 		>$ ghc --make list-names.hs
 		>$ ./list-names
 		>:1.0
@@ -56,4 +56,8 @@
 		>org.freedesktop.secrets
 		>org.gnome.ScreenSaver
 	</longdescription>
+	<upstream>
+		<remote-id type="hackage">dbus</remote-id>
+		<remote-id type="github">rblaze/haskell-dbus</remote-id>
+	</upstream>
 </pkgmetadata>