Re: Offloading to use Guile-SSH instead of lsh

[Leo Famulari <leo@famulari.name>]

On Fri, Nov 25, 2016 at 11:50:22PM +0100, Ludovic Courtès wrote:
> Hi!
> 
> ludo@gnu.org (Ludovic Courtès) skribis:
> 
> > The ‘wip-guile-ssh’ branch is finally getting into shape.  As soon as
> > a new Guile-SSH release is out, I’ll merge it on master.
> 
> Done!
> 
> It seems to work well in my own tests, but more feedback is welcome.

It looks like there is a spurious module import of (ssh key) with the
latest code:

$ guix pull                                         
                          
Starting download of /tmp/guix-file.rr3z8q
From http://git.savannah.gnu.org/cgit/guix.git/snapshot/master.tar.gz...
 ….tar.gz                                   2.7MiB/s 00:04 | 10.7MiB transferred
unpacking '/gnu/store/7agpxhdimc0gbyjmryfjnnpd1ahzdx4q-guix-latest.tar.gz'...
The following derivation will be built:
   /gnu/store/z958zcva82idmanswyw7zg00zyack221-guix-latest.drv
building path(s) `/gnu/store/q3kckrsgqdnrka24aavbbk423y6zhlkj-guix-latest'
copying and compiling to '/gnu/store/q3kckrsgqdnrka24aavbbk423y6zhlkj-guix-latest'...
loading...	 20.5% of 547 filesBacktrace:
In ice-9/boot-9.scm:
1727: 19 [%start-stack load-stack #<procedure 8fdb60 at ice-9/boot-9.scm:4047:10 ()>]
1732: 18 [#<procedure 8fe6f0 ()>]
In unknown file:
   ?: 17 [primitive-load "/gnu/store/waghfcxyknvhd4ribwz6cxq8b5437y9d-guix-latest-builder"]
In ./guix/build/pull.scm:
  57: 16 [build-guix "/gnu/store/q3kckrsgqdnrka24aavbbk423y6zhlkj-guix-latest" ...]
 123: 15 [#<procedure c0f280 at ./guix/build/pull.scm:57:2 ()>]
In ice-9/boot-9.scm:
2867: 14 [resolve-interface (guix scripts offload) #:select ...]
2792: 13 [#<procedure 852d80 at ice-9/boot-9.scm:2780:4 (name #:optional autoload version #:key ensure)> # ...]
3068: 12 [try-module-autoload (guix scripts offload) #f]
2404: 11 [save-module-excursion #<procedure cf0c90 at ice-9/boot-9.scm:3069:17 ()>]
3088: 10 [#<procedure cf0c90 at ice-9/boot-9.scm:3069:17 ()>]
In unknown file:
   ?: 9 [primitive-load-path "guix/scripts/offload" ...]
In ice-9/eval.scm:
 505: 8 [#<procedure 79c6e0 at ice-9/eval.scm:499:4 (exp)> (define-module # # ...)]
In ice-9/psyntax.scm:
1106: 7 [expand-top-sequence ((define-module # # # ...)) () ((top)) ...]
 989: 6 [scan ((define-module (guix scripts offload) #:use-module ...)) () ...]
 279: 5 [scan ((#(syntax-object let # ...) (#) (# #) ...)) () ...]
In ice-9/eval.scm:
 411: 4 [eval # ()]
In ice-9/boot-9.scm:
2954: 3 [define-module* (guix scripts offload) #:filename ...]
2929: 2 [resolve-imports (((ssh key)) ((ssh auth)) ((ssh session)) ...)]
2870: 1 [resolve-interface (ssh key) #:select ...]
In unknown file:
   ?: 0 [scm-error misc-error #f "~A ~S" ("no code for module" (ssh key)) #f]

ERROR: In procedure scm-error:
ERROR: no code for module (ssh key)
builder for `/gnu/store/z958zcva82idmanswyw7zg00zyack221-guix-latest.drv' failed with exit code 1
guix pull: error: build failed: build of `/gnu/store/z958zcva82idmanswyw7zg00zyack221-guix-latest.drv' failed