diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-04-27 23:00:51 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-04-27 23:00:51 +0200 |
| commit | 89be37a5a3923b161995286b19759f0b828638e8 (patch) | |
| tree | 4d53448f8f23b7d2063a0e3e777ad2f996e3c6e2 | |
| parent | 61ef22f432933a51dfe9e286488689abb84c1b92 (diff) | |
| download | guix-89be37a5a3923b161995286b19759f0b828638e8.tar.gz guix-89be37a5a3923b161995286b19759f0b828638e8.zip | |
web: Add workaround for <http://bugs.gnu.org/13095>.
* guix/web.scm: Add workaround for <http://bugs.gnu.org/13095>.
| -rw-r--r-- | guix/web.scm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/guix/web.scm b/guix/web.scm index 0fa3f8aa0c..2236bfd621 100644 --- a/guix/web.scm +++ b/guix/web.scm @@ -136,6 +136,10 @@ closed it will also close PORT, unless the KEEP-ALIVE? is true." (module-set! (resolve-module '(web response)) 'read-response-body read-response-body*))) +;; XXX: Work around <http://bugs.gnu.org/13095>, present in Guile +;; up to 2.0.7. +(module-define! (resolve-module '(web client)) + 'shutdown (const #f)) (define* (http-fetch uri #:key (text? #f)) "Return an input port containing the data at URI, and the expected number of |