diff options
| author | Lars-Dominik Braun <ldb@leibniz-psychology.org> | 2020-07-20 11:28:51 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-07-20 23:25:09 +0200 |
| commit | e8088f0b06c2193f2cce04a48aa1350229442a9f (patch) | |
| tree | aeee709e1061e0bf624c27a11c9019dfd4b5937a /m4/guix.m4 | |
| parent | 6c451e16b74160ac9604914c02a6bafff51fb805 (diff) | |
ssh: Speed up RPCs by using #:nodelay.
Partly fixes <https://bugs.gnu.org/41702>.
* guix/ssh.scm (open-ssh-session): Enable #:nodelay.
* m4/guix.m4 (GUIX_CHECK_GUILE_SSH): Add feature check for this new parameter.
* doc/guix.texi (Requirements): Adjust.
Co-authored-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'm4/guix.m4')
| -rw-r--r-- | m4/guix.m4 | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/m4/guix.m4 b/m4/guix.m4 index 7c27ae74df5..cce03045db5 100644 --- a/m4/guix.m4 +++ b/m4/guix.m4 | |||
| @@ -142,14 +142,16 @@ dnl GUIX_CHECK_GUILE_SSH | |||
| 142 | dnl | 142 | dnl |
| 143 | dnl Check whether a recent-enough Guile-SSH is available. | 143 | dnl Check whether a recent-enough Guile-SSH is available. |
| 144 | AC_DEFUN([GUIX_CHECK_GUILE_SSH], [ | 144 | AC_DEFUN([GUIX_CHECK_GUILE_SSH], [ |
| 145 | dnl Check whether 'userauth-gssapi!' (introduced in 0.12.0) is present. | 145 | dnl Check whether '#:nodelay' paramater to 'make-session' (introduced in |
| 146 | dnl 0.13.0) is present. | ||
| 146 | AC_CACHE_CHECK([whether Guile-SSH is available and recent enough], | 147 | AC_CACHE_CHECK([whether Guile-SSH is available and recent enough], |
| 147 | [guix_cv_have_recent_guile_ssh], | 148 | [guix_cv_have_recent_guile_ssh], |
| 148 | [GUILE_CHECK([retval], | 149 | [GUILE_CHECK([retval], |
| 149 | [(and (@ (ssh channel) channel-send-eof) | 150 | [(and (@ (ssh channel) channel-send-eof) |
| 150 | (@ (ssh popen) open-remote-pipe) | 151 | (@ (ssh popen) open-remote-pipe) |
| 151 | (@ (ssh dist node) node-eval) | 152 | (@ (ssh dist node) node-eval) |
| 152 | (@ (ssh auth) userauth-gssapi!))]) | 153 | (@ (ssh auth) userauth-gssapi!) |
| 154 | ((@ (ssh session) make-session) #:nodelay #t))]) | ||
| 153 | if test "$retval" = 0; then | 155 | if test "$retval" = 0; then |
| 154 | guix_cv_have_recent_guile_ssh="yes" | 156 | guix_cv_have_recent_guile_ssh="yes" |
| 155 | else | 157 | else |
