From 471a8d7bb5382863521250ae0e35d7362d465d5a Mon Sep 17 00:00:00 2001
From: hashirama <noroi_harau@tutanota.com>
Date: Thu, 24 Oct 2024 15:55:08 -0400
Subject: [PATCH] add gi-freetype2

---
 ajatt/packages/haskell.scm | 48 ++++++++++++++++++++++++++++++--------
 1 file changed, 38 insertions(+), 10 deletions(-)

diff --git a/ajatt/packages/haskell.scm b/ajatt/packages/haskell.scm
index ae4d7d4..b98d1d6 100644
--- a/ajatt/packages/haskell.scm
+++ b/ajatt/packages/haskell.scm
@@ -466,7 +466,7 @@
                version
                ".tar.gz"))
         (sha256
-          (base32 "05zwlcqx334is27h1v9x89a05srb6zp7mx0viccmij1cqhyfvsmf"))))
+          (base32 "0dkzchgsbb7f4b4p56ni4s1vmpp7ln722djcbcp5zazqbd0s9vfd"))))
     (build-system haskell-build-system)
     (inputs
      (list
@@ -496,7 +496,7 @@
                version
                ".tar.gz"))
         (sha256
-          (base32 "1psg789lrpcnrwh1y80y7s09hcxl3hihi0gwsmd7j3v731dp7a0k"))))
+          (base32 "146x3xp12jl416gl75mdx6jgnh0ayh9s64f7nl5ccw5r7dw8fz6f"))))
     (build-system haskell-build-system)
     (inputs
      (list
@@ -594,7 +594,7 @@
                version
                ".tar.gz"))
         (sha256
-          (base32 "16x0gpbs92l250ly9k52z6y85i78ycfsg0zbksfpsym4w45zjpbp"))))
+          (base32 "1q4a71fimdgrdfzpxf63fkjya2n624b2kyadrcpn17518hhagk7l"))))
     (build-system haskell-build-system)
     (inputs
      (list
@@ -623,7 +623,7 @@
                version
                ".tar.gz"))
         (sha256
-          (base32 "1g11pyrf1bzn0qrd9w52qhjq6qas4d3ycnprhwrglaffmaf0p9s8"))))
+          (base32 "1yxsrhxv5ndj60bv6djnhbmyh3a6ahmdkyfw5xbr3wy8hh9vc7l3"))))
     (build-system haskell-build-system)
     (inputs
      (list
@@ -655,7 +655,7 @@
                version
                ".tar.gz"))
         (sha256
-          (base32 "0bb6ciikk9mf64azbcgnybcjidxwdpjzanarf5ganbb4bb3l5d2h"))))
+          (base32 "07b4gg1wbb5mz63xpvjjdbdp0z9wci5jckr1gr0qxrizyc3vv2vi"))))
     (build-system haskell-build-system)
     (inputs
      (list
@@ -673,6 +673,32 @@
     (description "Bindings for Gio, autogenerated by haskell-gi.")
     (license license:lgpl2.1)))
 
+(define-public ghc-gi-freetype2
+  (package
+    (name "ghc-gi-freetype2")
+    (version "2.0.5")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (hackage-uri "gi-freetype2" version))
+       (sha256
+        (base32 "115yjlhb507wp21hcngygr0mrq4vdpnbx24gyfd5wwba9ny38a9j"))))
+    (build-system haskell-build-system)
+    (properties '((upstream-name . "gi-freetype2")))
+    (inputs (list ghc-haskell-gi-base
+		  ghc-haskell-gi
+                  ghc-haskell-gi-overloading
+		  ghc-transformers
+		  ghc-bytestring-builder
+		  freetype))
+    (native-inputs
+     (list  gobject-introspection
+	    pkg-config))
+    (home-page "https://github.com/haskell-gi/haskell-gi")
+    (synopsis "freetype2 bindings")
+    (description "Bindings for freetype2, autogenerated by haskell-gi.")
+    (license license:lgpl2.1)))
+
 (define-public ghc-gi-harfbuzz
   (package
     (name "ghc-gi-harfbuzz")
@@ -685,11 +711,12 @@
                version
                ".tar.gz"))
         (sha256
-          (base32 "0h3dgz914n55x7rhwayxscfkhhhj7qgw5a7fh0j2fn18c201klwm"))))
+          (base32 "1b7mmva40a3j1qm2155sy106wwrklj2p5fjwdzlkma8bnr6r2mqx"))))
     (build-system haskell-build-system)
     (inputs
      (list
       freetype
+      ;; todo add gi-freetype2 (needs packaging)
       ghc-haskell-gi-base
       ghc-haskell-gi
       ghc-haskell-gi-overloading
@@ -744,7 +771,7 @@
                version
                ".tar.gz"))
         (sha256
-          (base32 "1kddnhdpnm21zma1zr9hpb2krrm5ksri85nzh2s9fc9c2c90xkpz"))))
+          (base32 "1vhdbvcr33gi2cvf31q1zbgkd0gpgcrwnqi59ylrsw6xmblndhdh"))))
     (build-system haskell-build-system)
     (inputs
      (list
@@ -811,7 +838,7 @@
                version
                ".tar.gz"))
         (sha256
-          (base32 "17slysv7zj3nbzh302w8jkvcfkvwfk5s80n99lqhggd6lnhf5fjx"))))
+          (base32 "0c43wxbq4g41j107gnh8gyxjsws223p7kkm46hihjvs8pcxrab94"))))
     (build-system haskell-build-system)
     (inputs
      (list
@@ -978,7 +1005,7 @@
                version
                ".tar.gz"))
         (sha256
-          (base32 "0ybf8y8xbjfcaw67l22dfkx0528j5f1if3jm808ccssgdwyy3vc4"))))
+          (base32 "0s0ych0fxnfaqg2q2ndfp2zj01sya0j888snd2rdbaiikxy0kvsq"))))
     (build-system haskell-build-system)
     (arguments
      '(#:phases
@@ -1157,4 +1184,5 @@
 
 
 
-ghc-haskell-gi
+;;ghc-gi-gtk
+ghc-gi-freetype2