Ludovic Courtès writes:
> Ricardo Wurmus <ricardo.wur...@mdc-berlin.de> skribis:
>
>> The numbers in the `bad-response' error message differ for different
>> operations. In all cases the first number (here 403) is larger than the
>> second (here 15). The second number is the reported content length.
>
> That rings a bell.
>
> Could you try this patch?
Thanks for the patch. Unfortunately, guix fails to compile with the
patch applied:
~~~~~
[rwurmus@guix-builder:/localhome/rwurmus-tmp/guix] (621) $ make
make all-recursive
make[1]: Entering directory `/localhome/rwurmus-tmp/guix'
Making all in po/guix
make[2]: Entering directory `/localhome/rwurmus-tmp/guix/po/guix'
make[2]: Leaving directory `/localhome/rwurmus-tmp/guix/po/guix'
Making all in po/packages
make[2]: Entering directory `/localhome/rwurmus-tmp/guix/po/packages'
make[2]: Leaving directory `/localhome/rwurmus-tmp/guix/po/packages'
make[2]: Entering directory `/localhome/rwurmus-tmp/guix'
/usr/bin/mkdir -p `dirname "guix/gnu-maintenance.go"` ; \
unset GUILE_LOAD_COMPILED_PATH ; \
LC_ALL=C \
./pre-inst-env \
/usr/bin/guild compile -L "." -L "." \
-Wformat -Wunbound-variable -Warity-mismatch \
--target="x86_64-unknown-linux-gnu"
\
-o "guix/gnu-maintenance.go" "guix/gnu-maintenance.scm"
;;; note: source file ./guix/http-client.scm
;;; newer than compiled
/home/rwurmus/.cache/guile/ccache/2.0-LE-8-2.0/localhome/rwurmus-tmp/guix/guix/http-client.scm.go
Backtrace:
In system/base/compile.scm:
216: 19 [read-and-compile #<input: guix/gnu-maintenance.scm 5> #:from ...]
232: 18 [lp () #f #<module (#{ g114}#) ca1d80>]
180: 17 [lp (#<procedure compile-tree-il (x e opts)>) (define-module # # ...)
...]
In ice-9/boot-9.scm:
2320: 16 [save-module-excursion #<procedure e509f0 at
language/scheme/compile-tree-il.scm:29:3 ()>]
In language/scheme/compile-tree-il.scm:
31: 15 [#<procedure e509f0 at language/scheme/compile-tree-il.scm:29:3 ()>]
In ice-9/psyntax.scm:
1091: 14 [expand-top-sequence ((define-module # # # ...)) () ((top)) ...]
976: 13 [scan ((define-module (guix gnu-maintenance) #:use-module ...)) () ...]
270: 12 [scan ((#(syntax-object let # ...) (#) (# #) ...)) () ...]
In ice-9/eval.scm:
411: 11 [eval # ()]
In ice-9/boot-9.scm:
2870: 10 [define-module* (guix gnu-maintenance) #:filename ...]
2845: 9 [resolve-imports (((web uri)) ((web client)) ((web response)) ...)]
2783: 8 [resolve-interface (guix http-client) #:select ...]
2708: 7 [#<procedure 9a7440 at ice-9/boot-9.scm:2696:4 (name #:optional
autoload version #:key ensure)> # ...]
2981: 6 [try-module-autoload (guix http-client) #f]
2320: 5 [save-module-excursion #<procedure fb3510 at ice-9/boot-9.scm:2982:17
()>]
3001: 4 [#<procedure fb3510 at ice-9/boot-9.scm:2982:17 ()>]
In unknown file:
?: 3 [primitive-load-path "guix/http-client" ...]
In ice-9/eval.scm:
432: 2 [eval # ()]
In unknown file:
?: 1 [scm-error misc-error #f ...]
In ice-9/boot-9.scm:
106: 0 [#<procedure bde140 at ice-9/boot-9.scm:97:6 (thrown-k . args)>
misc-error ...]
ice-9/boot-9.scm:106:20: In procedure #<procedure bde140 at
ice-9/boot-9.scm:97:6 (thrown-k . args)>:
ice-9/boot-9.scm:106:20: No variable named make-delimited-input-port in
#<interface (web response) f9bd80>
make[2]: *** [guix/gnu-maintenance.go] Error 1
make[2]: Leaving directory `/localhome/rwurmus-tmp/guix'
make[1]: *** [all-recursive] Error 1
make[1]: Leaving directory `/localhome/rwurmus-tmp/guix'
make: *** [all] Error 2
~~~~~
That's odd because:
~~~~~
[rwurmus@guix-builder:/localhome/rwurmus-tmp/guix] (631) $ guile
GNU Guile 2.0.9
Copyright (C) 1995-2013 Free Software Foundation, Inc.
Guile comes with ABSOLUTELY NO WARRANTY; for details type `,show w'.
This program is free software, and you are welcome to redistribute it
under certain conditions; type `,show c' for details.
Enter `,help' for help.
scheme@(guile-user)> ,module (web response)
scheme@(web response)> make-delimited-input-port
$1 = #<procedure make-delimited-input-port (port len keep-alive?)>
scheme@(web response)>
~~~~~
The only difference from master is the applied patch.
~~ Ricardo
