blob: dab7aaff6aef2d14b99853595ced2bab01f1c72a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
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
|
