machine: Implement 'digital-ocean-environment-type'.wip-deploy

1 files changed, 6 insertions, 6 deletions

diff --git a/gnu/machine/ssh.scm b/gnu/machine/ssh.scm
index ac3aa3e37..0df8b62da 100644
--- a/gnu/machine/ssh.scm
+++ b/gnu/machine/ssh.scm
@@ -61,7 +61,7 @@
 ;;; This module implements remote evaluation and system deployment for
 ;;; machines that are accessible over SSH and have a known host-name. In the
 ;;; sense of the broader "machine" interface, we describe the environment for
-;;; such machines as 'managed-host.
+;;; such machines as "managed-host".
 ;;;
 ;;; Code:
 
@@ -110,8 +110,8 @@ one from the configuration's parameters if one was not provided."
 ;;;
 
 (define (machine-become-command machine)
-  "Return as a list of strings the program and arguments necessary to run a
-shell command with escalated privileges for MACHINE's configuration."
+  "Return as a list of strings the program and arguments necessary to run a shell command with
+escalated privileges for MACHINE's configuration."
   (if (string= "root" (machine-ssh-configuration-user
                        (machine-configuration machine)))
       '()
@@ -119,7 +119,7 @@ shell command with escalated privileges for MACHINE's configuration."
 
 (define (managed-host-remote-eval machine exp)
   "Internal implementation of 'machine-remote-eval' for MACHINE instances with
-an environment type of 'managed-host."
+an environment type of 'managed-host-environment-type'."
   (maybe-raise-unsupported-configuration-error machine)
   (let ((config (machine-configuration machine)))
     (remote-eval exp (machine-ssh-session machine)
@@ -363,7 +363,7 @@ the 'should-roll-back' field set to SHOULD-ROLL-BACK?"
 
 (define (deploy-managed-host machine)
   "Internal implementation of 'deploy-machine' for MACHINE instances with an
-environment type of 'managed-host."
+environment type of 'managed-host-environment-type'."
   (maybe-raise-unsupported-configuration-error machine)
   (when (machine-ssh-configuration-authorize?
          (machine-configuration machine))
@@ -400,7 +400,7 @@ have you run 'guix archive --generate-key?'")
 
 (define (roll-back-managed-host machine)
   "Internal implementation of 'roll-back-machine' for MACHINE instances with
-an environment type of 'managed-host."
+an environment type of 'managed-host-environment-type'."
   (define remote-exp
     (with-extensions (list guile-gcrypt)
       (with-imported-modules (source-module-closure '((guix config)