update xdg-desktop-portal-hyprland to v1.3.8

sakura/packages/hypr.scm

@@ -51,6 +51,7 @@
 ;; - udis86
 ;; - xorg headers
 ;; - mesa libglvnd
+;; - sdbus-cpp
 
 
 (define-public libinput-minimal-for-hyprland
@@ -152,6 +153,28 @@ command line tool called @code{udcli} that incorporates the library.")
                   #$flags)))))))
 
 
+(define-public sdbus-c++-for-hyprland
+  (hidden-package (package
+    (inherit sdbus-c++)
+    (name "sdbus-c++")
+    (version "2.0.0")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                    (url "https://github.com/Kistler-Group/sdbus-cpp")
+                    (commit (string-append "v" version))))
+              (file-name (git-file-name name version))
+              (sha256
+               (base32
+                "1s6vhzln0rvac2r3v8nq08hsjhyz3y46fsy18i23ppjm30apkiav"))))
+    (arguments
+      (substitute-keyword-arguments (package-arguments sdbus-c++)
+        ((#:phases phases)
+         #~(modify-phases #$phases
+             (delete 'check)))))
+    )))
+
+
 ;; Hyprland Packages
 
 
@@ -542,7 +565,7 @@ mo  .")
 (define-public xdg-desktop-portal-hyprland
   (package
     (name "xdg-desktop-portal-hyprland")
-    (version "1.3.6")
+    (version "1.3.8")
     (source (origin
               (method git-fetch)
               (uri (git-reference
@@ -551,7 +574,7 @@ mo  .")
               (file-name (git-file-name name version))
               (sha256
                (base32
-                "17ba9jkccyp8gv79ds70khgm5wm6x8zs5m9nkilq4n2j7fsa8cfl"))))
+                "0aixrjyky2mzclnwypybpg01ihfbmwzfv09zbjis49q1clrszq2p"))))
     (build-system cmake-build-system)
     (arguments
      (list #:tests? #f                  ;No tests
@@ -574,7 +597,7 @@ mo  .")
               (list ; libs
                     bash-minimal
                     grim
-                    sdbus-c++
+                    sdbus-c++-for-hyprland
                     slurp
                     qtbase
                     pipewire