From 6103c33e11350aeceb46db349a62e04a36c35576 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Tue, 9 Nov 2021 14:05:19 +0530
Subject: Use upstream guile-dbi and guile-dbd-mysql.

* guix.scm: Do not prefix guix: in importing (gnu packages guile-xyz).
(guile-dbi, guile-dbi-bootstrap, guile-dbd-mysql): Delete variables.
---
 guix.scm | 90 +---------------------------------------------------------------
 1 file changed, 1 insertion(+), 89 deletions(-)

(limited to 'guix.scm')

diff --git a/guix.scm b/guix.scm
index 5363415..35da9f3 100644
--- a/guix.scm
+++ b/guix.scm
@@ -9,7 +9,7 @@
              (gnu packages databases)
              (gnu packages dbm)
              (gnu packages guile)
-             ((gnu packages guile-xyz) #:prefix guix:)
+             (gnu packages guile-xyz)
              (gnu packages perl)
              (gnu packages python)
              (gnu packages python-web)
@@ -24,94 +24,6 @@
              (guix packages)
              (guix utils))
 
-;; A better version of the guile-dbi and guile-dbd-* packages are
-;; under review upstream. See https://issues.guix.gnu.org/50476
-;; TODO: Remove these package definitions once merged upstream.
-(define guile-dbi
-  (package
-    (inherit guix:guile-dbi)
-    (name "guile-dbi")
-    (version "2.1.8")
-    (source (origin
-              (method git-fetch)
-              (uri (git-reference
-                    (url "https://github.com/opencog/guile-dbi")
-                    (commit (string-append "guile-dbi-" version))))
-              (file-name (git-file-name name version))
-              (sha256
-               (base32
-                "123m4j82bi60s1v95pjh4djb7bh6zdwmljbpyg7zq8ni2gyal7lw"))))
-    (arguments
-     (substitute-keyword-arguments (package-arguments guix:guile-dbi)
-       ((#:phases phases)
-        `(modify-phases ,phases
-           (add-after 'unpack 'chdir
-             (lambda _
-               ;; The upstream Git repository contains all the code, so change
-               ;; to the directory specific to guile-dbi.
-               (chdir "guile-dbi")))))))
-    (native-inputs
-     `(("autoconf" ,autoconf)
-       ("automake" ,automake)
-       ("libtool" ,libtool)
-       ("perl" ,perl)
-       ,@(package-native-inputs guix:guile-dbi)))
-    (native-search-paths
-     (list (search-path-specification
-            (variable "LD_LIBRARY_PATH")
-            (files '("lib")))))))
-
-(define guile-dbi-bootstrap
-  (package
-    (inherit guile-dbi)
-    (name "guile-dbi-bootstrap")
-    (inputs '())
-    (arguments
-     (substitute-keyword-arguments (package-arguments guile-dbi)
-       ((#:make-flags _) '(list))))))
-
-(define guile-dbd-mysql
-  (let ((commit "e97589b6b018b206c901e4cc24db463407a4036b")
-        (revision "0"))
-    (package
-      (name "guile-dbd-mysql")
-      (version (git-version "2.1.6" revision commit))
-      (source
-       (origin
-         (method git-fetch)
-         (uri (git-reference
-               (url "https://github.com/opencog/guile-dbi")
-               (commit commit)))
-         (file-name (git-file-name name version))
-         (sha256
-          (base32
-           "0n1gv9a0kdys10a4qmnrwvg5sydwb03880asri4gqdchcj3fimni"))))
-      (build-system gnu-build-system)
-      (arguments
-       '(#:phases
-         (modify-phases %standard-phases
-           (add-after 'unpack 'chdir
-             (lambda _
-               ;; The upstream Git repository contains all the code, so change
-               ;; to the directory specific to guile-dbd-mysql.
-               (chdir "guile-dbd-mysql"))))))
-      (native-inputs
-       `(("autoconf" ,autoconf)
-         ("automake" ,automake)
-         ("guile-dbi-bootstrap" ,guile-dbi-bootstrap)
-         ("libtool" ,libtool)
-         ("openssl" ,openssl)
-         ("perl" ,perl)))
-      (inputs
-       `(("mysql" ,mysql)
-         ("zlib" ,zlib)))
-      (synopsis "Guile DBI driver for MySQL")
-      (home-page "https://github.com/opencog/guile-dbi/tree/master/guile-dbd-mysql")
-      (description "@code{guile-dbi} is a library for Guile that provides a
-convenient interface to SQL databases.  This package implements the interface
-for MySQL.")
-      (license license:gpl2+))))
-
 ;; A better version of the python-berkeleydb and python-rdflib
 ;; packages are under review upstream. See
 ;; https://issues.guix.gnu.org/50481
-- 
cgit v1.2.3