me
/
guix
Archived
1
0
Fork 0

gnu: guile-sqlite3: Update to 0.1.0.

* gnu/packages/guile.scm (guile-sqlite3)[source]: Remove 'modules' and
'snippet'.  Use commit v0.1.0.
[arguments]: Remove.
master
Ludovic Courtès 2018-06-27 14:52:49 +02:00
parent 2fee261331
commit 319e26e4de
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 25 additions and 52 deletions

View File

@ -1207,34 +1207,19 @@ Guile's foreign function interface.")
(deprecated-package "guile2.2-gdbm-ffi" guile-gdbm-ffi)) (deprecated-package "guile2.2-gdbm-ffi" guile-gdbm-ffi))
(define-public guile-sqlite3 (define-public guile-sqlite3
(let ((commit "10c13a7e02ab1655c8a758e560cafc9d6eff26f4")
(revision "4"))
(package (package
(name "guile-sqlite3") (name "guile-sqlite3")
(version (git-version "0.0" revision commit)) (version "0.1.0")
;; XXX: This used to be available read-only at
;; <https://www.gitorious.org/guile-sqlite3/guile-sqlite3.git/> but it
;; eventually disappeared, so we have our own copy here.
(home-page "https://notabug.org/civodul/guile-sqlite3.git") (home-page "https://notabug.org/civodul/guile-sqlite3.git")
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
(url home-page) (url home-page)
(commit commit))) (commit (string-append "v" version))))
(sha256 (sha256
(base32 (base32
"0nhhswpd7nb2f0gfr55fzcc2xm3l2xx4rbljsd1clrm8fj2d7q9d")) "1nv8j7wk6b5n4p22szyi8lv8fs31rrzxhzz16gyj8r38c1fyp9qp"))
(file-name (string-append name "-" version "-checkout")) (file-name (string-append name "-" version "-checkout"))))
(modules '((guix build utils)))
(snippet
;; Upgrade 'Makefile.am' to the current way of doing things.
'(begin
(substitute* "Makefile.am"
(("TESTS_ENVIRONMENT")
"TEST_LOG_COMPILER"))
#t))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
`(("autoconf" ,autoconf) `(("autoconf" ,autoconf)
@ -1243,22 +1228,10 @@ Guile's foreign function interface.")
(inputs (inputs
`(("guile" ,guile-2.2) `(("guile" ,guile-2.2)
("sqlite" ,sqlite))) ("sqlite" ,sqlite)))
(arguments
'(#:phases (modify-phases %standard-phases
(add-after 'unpack 'autoreconf
(lambda _
(zero? (system* "autoreconf" "-vfi"))))
(add-before 'build 'set-sqlite3-file-name
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "sqlite3.scm"
(("\"libsqlite3\"")
(string-append "\"" (assoc-ref inputs "sqlite")
"/lib/libsqlite3\"")))
#t)))))
(synopsis "Access SQLite databases from Guile") (synopsis "Access SQLite databases from Guile")
(description (description
"This package provides Guile bindings to the SQLite database system.") "This package provides Guile bindings to the SQLite database system.")
(license license:gpl3+)))) (license license:gpl3+)))
(define-public haunt (define-public haunt
(package (package