machine: ssh: Make sanity checks in a single round trip.
authorLudovic Courtès <ludo@gnu.org>
Fri, 20 Mar 2020 11:08:10 +0000 (12:08 +0100)
committerLudovic Courtès <ludo@gnu.org>
Mon, 23 Mar 2020 09:48:17 +0000 (10:48 +0100)
commitea6e2299b40c6fbd9749563c52a2d77698bd9337
tree71e1e8f02277b8f905a82d2110d93de49dc7bba4
parent8f53d73493a2949e2db28cd7d689a690b2d9479a
machine: ssh: Make sanity checks in a single round trip.

* gnu/machine/ssh.scm (<remote-assertion>): New record type.
(remote-let): New macro.
(machine-check-file-system-availability): Rewrite to use 'remote-let'
instead of 'mlet' and 'machine-remote-eval'.
(machine-check-initrd-modules): Likewise.
(machine-check-building-for-appropriate-system): Make non-monadic.
(check-deployment-sanity): Rewrite to gather all the assertions as a
single gexp and pass it to 'machine-remote-eval'.
gnu/machine/ssh.scm