From 7d5a94376a4938ad0e89f6fc7736732762db9300 Mon Sep 17 00:00:00 2001
From: Alice BRENON <alice.brenon@ens-lyon.fr>
Date: Mon, 17 Jul 2023 17:44:41 +0200
Subject: [PATCH] * geode/packages/encoding.scm: Add ghc-geode.

---
 geode/packages/encoding.scm | 31 +++++++++++++++++++++++++++----
 1 file changed, 27 insertions(+), 4 deletions(-)

diff --git a/geode/packages/encoding.scm b/geode/packages/encoding.scm
index 0fc7b5e..6a28083 100644
--- a/geode/packages/encoding.scm
+++ b/geode/packages/encoding.scm
@@ -2,8 +2,10 @@
   #:use-module ((gnu packages base) #:select (sed))
   #:use-module ((gnu packages compression)
                 #:select (unzip zip))
+  #:use-module ((gnu packages haskell-check) #:select (ghc-hunit))
   #:use-module ((gnu packages haskell-xyz)
                 #:select (ghc-attoparsec
+                          ghc-cassava
                           ghc-edit-distance
                           ghc-optparse-applicative
                           ghc-pipes
@@ -19,7 +21,7 @@
   #:use-module ((guix git-download)
                 #:select (git-fetch git-reference))
   #:use-module ((guix licenses)
-                #:select (bsd-3))
+                #:select (bsd-3 gpl3+))
   #:use-module ((guix packages)
                 #:select (package
                            origin base32)))
@@ -32,8 +34,8 @@
     (source (origin
               (method git-fetch)
               (uri (git-reference
-                     (url home-page)
-                     (commit version)))
+                    (url home-page)
+                    (commit version)))
               (sha256
                (base32
                 "097xqb8nmdlbhkypkhqy0mr88fr2v1mfgsjsjzvygys3nsgv166r"))))
@@ -49,7 +51,28 @@
     (description
      "An ad hoc program to fix some XML errors in a XML-TEI encoding of the
 Encyclopedie.")
-      (license bsd-3)))
+    (license bsd-3)))
+
+(define-public ghc-geode
+  (package
+    (name "ghc-geode")
+    (version "0.2.0")
+    (home-page "https://gitlab.liris.cnrs.fr/geode/ghc-geode")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                    (url home-page)
+                    (commit version)))
+              (sha256
+               (base32
+                "0d9jpnxq2jp825hg7s6dgdm1ark274048jhz7dl454rf1n1p5p39"))))
+    (build-system haskell-build-system)
+    (inputs (list ghc-cassava ghc-optparse-applicative ghc-hunit))
+    (synopsis "Data structures and tooling used in project GEODE")
+    (description
+     "Library providing a representation for corpus metadata and primitives to
+define command-line tools to process them.")
+    (license gpl3+)))
 
 (define-public ghc-html5-entity
   (package
-- 
GitLab