Ricardo, can you see if 834b8a4110 fixes the problem?
Jakob L. Kreuze writes:
> Hi, Ricardo!
>
> Ricardo Wurmus <rek...@elephly.net> writes:
>
>> Me! I tried to use it on ci.guix.gnu.org to upgrade a node, but it
>> failed like this:
>>
>> rekado@berlin /root/maintenance/hydra$ guix deploy deploy-berlin-node.scm
>> Backtrace:
>> 8 (primitive-load "/home/rekado/.config/guix/current/bin/��")
>> In guix/ui.scm:
>> 1655:12 7 (run-guix-command _ . _)
>> In guix/scripts/deploy.scm:
>> 78:33 6 (guix-deploy . _)
>> 69:16 5 (load-source-file "deploy-berlin-node.scm")
>> In guix/ui.scm:
>> 149:4 4 (make-user-module _)
>> In srfi/srfi-1.scm:
>> 640:9 3 (for-each #<procedure 3f2d260 at guix/ui.scm:149:14 (i��> ��)
>> In guix/ui.scm:
>> 150:36 2 (_ (gnu machine ssh))
>> In ice-9/boot-9.scm:
>> 2803:6 1 (resolve-interface _ #:select _ #:hide _ #:prefix _ # _ ��)
>> In unknown file:
>> 0 (scm-error misc-error #f "~A ~S" ("no code for modu��" ��) ��)
>>
>> ERROR: In procedure scm-error:
>> no code for module (gnu machine ssh)
>>
>>
>> Looks like (gnu machine ssh) is not installed. I only see
>> “~/.config/guix/current/share/guile/site/2.2/gnu/machine.scm”, but not
>> “gnu/machine/ssh.scm”.
>>
>> “deploy-berlin-node.scm” is not special. It just uses a procedure to
>> generate the system configuration:
>>
>> (use-service-modules networking ssh)
>> (use-package-modules bootloaders)
>>
>> (use-modules (sysadmin build-machines)
>> (sysadmin people))
>>
>> (define %id 14)
>>
>> (define %system
>> (berlin-build-machine-os %id))
>>
>> (define (id->ip id)
>> (format #f "141.80.167.~d" (+ 131 id)))
>>
>> (list (machine
>> (system %system)
>> (environment managed-host-environment-type)
>> (configuration (machine-ssh-configuration
>> (host-name (id->ip %id))
>> (identity "./id_rsa")
>> (port 22)))))
>>
>>
>> --
>> Ricardo
>
> Thanks for trying it out! I'm realizing that 'guix pull' didn't install
> it for me, either, yet 'gnu/machine/ssh.scm' is in the source tree and
> there's a line for it in 'gnu/local.mk'[1]. Does anyone know what's
> happening here?
>
> Regards,
> Jakob
>
> [1]: https://git.savannah.gnu.org/cgit/guix.git/tree/gnu/local.mk#n569
