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.
This commit is contained in:
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

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