bug#36931: guile-bash repository no longer exists?

[Ludovic Courtès]

Hello,

Björn Höfling <address@hidden> skribis:

> Backtrace:
>            4 (primitive-load "/gnu/store/ixb9ja1vxd46ydf83qbj9f3f6qz?")
> In ./guix/swh.scm:
>     532:8  3 (call-with-temporary-directory #<procedure 8e7740 at ./?>)
>    552:10  2 (_ "/tmp/guix-build-guile-bash-0.1.6-0.1eabc56-checkout?")
> In ./guix/build/utils.scm:
>    778:22  1 (_)
> In unknown file:
>            0 (get-bytevector-n! #f #vu8(0 0 0 0 0 0 0 0 0 0 0 0 0 ?) ?)
>
> ERROR: In procedure get-bytevector-n!:
> In procedure get-bytevector-n!: Wrong type argument in position 1 (expecting 
> open input port): #f

Ouch.  I’ve improved error reporting handling here, but I think the
fundamental issue is that SWH is failing to deliver this thing, even
though it does have it:

--8<---------------cut here---------------start------------->8---
scheme@(guile-user)> ,use(guix swh)
scheme@(guile-user)> (lookup-revision 
"1eabc563ca5692b3e08d84f1f0e6fd2283284469")
$18 = #<<revision> id: "1eabc563ca5692b3e08d84f1f0e6fd2283284469" date: #<date 
nanosecond: 0 second: 35 minute: 27 hour: 9 day: 27 month: 2 year: 2015 
zone-offset: 10800> directory: "ad8976564375ee55f645387bbcdf4b66e6582fbf" 
directory-url: "/api/1/directory/ad8976564375ee55f645387bbcdf4b66e6582fbf/">
scheme@(guile-user)> (vault-fetch (revision-directory $18) 'directory)
$19 = #f
scheme@(guile-user)> (query-vault (revision-directory $18) 'directory)
$20 = #<<vault-reply> id: 3296879 fetch-url: 
"/api/1/vault/directory/ad8976564375ee55f645387bbcdf4b66e6582fbf/raw/" 
object-id: "ad8976564375ee55f645387bbcdf4b66e6582fbf" object-type: directory 
progress-message: #nil status: done>
--8<---------------cut here---------------end--------------->8---

Let’s see!

Ludo’.