summaryrefslogtreecommitdiff
path: root/guix
diff options
context:
space:
mode:
authorCyril Roelandt <tipecaml@gmail.com>2013-06-10 10:40:35 +0200
committerCyril Roelandt <tipecaml@gmail.com>2013-06-10 10:43:23 +0200
commit16df248e4b24b174d6e2eb7167730d6674b7441e (patch)
tree73d550688fea351b31121f8f3d5b465103f8997f /guix
parent392b5d8cab0c676f19d14a139f14802ef0237ddf (diff)
Fix Guile version checking in the "web" code.
* guix/web.scm (http-fetch): fix Guile version checking. The previous version would use features from Guile 2.0.9+ when using Guile 2.0.7.
Diffstat (limited to 'guix')
-rw-r--r--guix/web.scm15
1 files changed, 7 insertions, 8 deletions
diff --git a/guix/web.scm b/guix/web.scm
index e9c69cb0c0..d24f15853d 100644
--- a/guix/web.scm
+++ b/guix/web.scm
@@ -157,14 +157,13 @@ unbuffered port, suitable for use in `filtered-port'."
;; Try hard to use the API du jour to get an input port.
;; On Guile 2.0.5 and before, we can only get a string or
;; bytevector, and not an input port. Work around that.
- (if (version>? "2.0.7" (version))
- (if (defined? 'http-get*)
- (http-get* uri #:decode-body? text?
- #:port port) ; 2.0.7
- (http-get uri #:decode-body? text?
- #:port port)) ; 2.0.5-
- (http-get uri #:streaming? #t
- #:port port))) ; 2.0.9+
+ (if (version>? (version) "2.0.7")
+ (http-get uri #:streaming? #t #:port port) ; 2.0.9+
+ (if (defined? 'http-get*)
+ (http-get* uri #:decode-body? text?
+ #:port port) ; 2.0.7
+ (http-get uri #:decode-body? text?
+ #:port port)))) ; 2.0.5-
((code)
(response-code resp)))
(case code