start working on gi-gdk

ajatt/packages/haskell.scm

@@ -1,4 +1,5 @@
 ;;; Copyright © 2022 Anders Ågren Thuné <anders.agren-thune@it.uu.se>
+;;; Copyright © 2024-present Hashirama Senju
 
 (define-module (ajatt packages haskell)
   #:use-module ((guix licenses) #:prefix license:)
@@ -716,7 +717,7 @@
    (inputs
     (list
      freetype
-      ;; todo add gi-freetype2 (needs packaging)
+     ghc-gi-freetype2
      ghc-haskell-gi-base
      ghc-haskell-gi
      ghc-haskell-gi-overloading
@@ -800,7 +801,7 @@
            version
            ".tar.gz"))
      (sha256
-          (base32 "0qvz1r3xc4rz2fvaw1mimwn39xim55zn6zhbkavw2n5jm6xnydkh"))))
+      (base32 "1kp3jnnjik1caiax3j548aypn77qzi1l8r9b2zki95s2yg5rpv9p"))))
    (build-system haskell-build-system)
    (arguments
     '(#:phases
@@ -816,6 +817,7 @@
      ghc-haskell-gi-overloading
      ghc-gi-gobject
      ghc-gi-glib
+     ghc-gi-gio
      ghc-gi-harfbuzz
      gobject-introspection
      pango))
@@ -851,10 +853,21 @@
      ghc-gi-gdkpixbuf
      ghc-gi-gobject
      ghc-gi-glib
+     ghc-transformers
+     ghc-bytestring-builder
      gobject-introspection
-      gtk+))
+     ;; needs ghc-gi-grapehene and ghc-gi-gsk
+     gtk))
    (native-inputs
-     (list pkg-config))
+    (list pkg-config
+          gtk)) ;; was gtk+, but in guix gtk is the name for gtk-4
+   (arguments
+    '(#:phases
+      (modify-phases %standard-phases
+		     (add-before 'configure 'set-configure-environment-variables
+				 (lambda _
+				   (setenv "GI_TYPELIB_PATH" (getenv "GI_TYPELIB_PATH"))
+				   #t)))))
    (home-page "https://github.com/haskell-gi/haskell-gi")
    (synopsis "Gdk bindings")
    (description "Bindings for Gdk, autogenerated by haskell-gi.")
@@ -1184,5 +1197,4 @@
 
 
 
-;;ghc-gi-gtk
-ghc-gi-freetype2
+ghc-gi-gtk