summaryrefslogtreecommitdiff
path: root/guix/import
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2016-12-20 19:08:22 +0100
committerLudovic Courtès <ludo@gnu.org>2016-12-20 19:14:41 +0100
commit62bd24db39a86f80242f923eb4cc2f18f3b02c67 (patch)
treeb93ef4919a314e848425e140558048591b56a2da /guix/import
parentf943c317fb714075b455d4a30f631c8cb45732b4 (diff)
import: github: Use 'json-fetch'.
* guix/import/github.scm (json-fetch*): Remove. (latest-released-version): Adjust accordingly.
Diffstat (limited to 'guix/import')
-rw-r--r--guix/import/github.scm15
1 files changed, 2 insertions, 13 deletions
diff --git a/guix/import/github.scm b/guix/import/github.scm
index 0843ddeefd..01452b12e3 100644
--- a/guix/import/github.scm
+++ b/guix/import/github.scm
@@ -23,23 +23,12 @@
#:use-module (guix utils)
#:use-module ((guix download) #:prefix download:)
#:use-module (guix import utils)
+ #:use-module (guix import json)
#:use-module (guix packages)
#:use-module (guix upstream)
#:use-module (web uri)
#:export (%github-updater))
-(define (json-fetch* url)
- "Return a list/hash representation of the JSON resource URL, or #f on
-failure."
- (call-with-output-file "/dev/null"
- (lambda (null)
- (with-error-to-port null
- (lambda ()
- (call-with-temporary-output-file
- (lambda (temp port)
- (and (url-fetch url temp)
- (call-with-input-file temp json->scm)))))))))
-
(define (find-extension url)
"Return the extension of the archive e.g. '.tar.gz' given a URL, or
false if none is recognized"
@@ -136,7 +125,7 @@ the package e.g. 'bedtools2'. Return #f if there is no releases"
"https://api.github.com/repos/"
(github-user-slash-repository url)
"/releases"))
- (json (json-fetch*
+ (json (json-fetch
(if token
(string-append api-url "?access_token=" token)
api-url))))