diff --git a/doc/guix.texi b/doc/guix.texi index f24dc6b26b0de24bb4291e1e8c4a07f82ab42e3c..cb004d034df65b9daa0bcf9753417531842cb1f0 100644 --- a/doc/guix.texi +++ b/doc/guix.texi @@ -26050,7 +26050,7 @@ such that no two machines in the deployment have the same set of tags. A Digital Ocean region slug, such as @code{"nyc3"}. @item @code{size} A Digital Ocean size slug, such as @code{"s-1vcpu-1gb"} -@item @code{enable-ipv6} +@item @code{enable-ipv6?} Whether or not the droplet should be created with IPv6 networking. @end table @end deftp diff --git a/gnu/machine/digital-ocean.scm b/gnu/machine/digital-ocean.scm index 5ad7c4d4a35f05f6b0764b3fdbd755a6037a0651..6f7cf8fb30bd4b4c91cd9595d68bd7ed4ed63cb8 100644 --- a/gnu/machine/digital-ocean.scm +++ b/gnu/machine/digital-ocean.scm @@ -52,7 +52,7 @@ (define-module (gnu machine digital-ocean) digital-ocean-configuration-tags digital-ocean-configuration-region digital-ocean-configuration-size - digital-ocean-configuration-enable-ipv6 + digital-ocean-configuration-enable-ipv6? digital-ocean-environment-type)) @@ -128,7 +128,7 @@ (define-record-type* <digital-ocean-configuration> digital-ocean-configuration (tags digital-ocean-configuration-tags) ; list of strings (region digital-ocean-configuration-region) ; string (size digital-ocean-configuration-size) ; string - (enable-ipv6 digital-ocean-configuration-enable-ipv6)) ; boolean + (enable-ipv6? digital-ocean-configuration-enable-ipv6?)) ; boolean (define (read-key-fingerprint file-name) "Read the private key at FILE-NAME and return the key's fingerprint as a hex @@ -324,7 +324,7 @@ (define (deploy-digital-ocean target) (size (digital-ocean-configuration-size config)) (ssh-key (digital-ocean-configuration-ssh-key config)) (fingerprint (read-key-fingerprint ssh-key)) - (enable-ipv6 (digital-ocean-configuration-enable-ipv6 config)) + (enable-ipv6? (digital-ocean-configuration-enable-ipv6? config)) (tags (digital-ocean-configuration-tags config)) (request-body `(("name" . ,name) ("region" . ,region) @@ -332,7 +332,7 @@ (define (deploy-digital-ocean target) ("image" . "debian-9-x64") ("ssh_keys" . ,(vector fingerprint)) ("backups" . #f) - ("ipv6" . ,enable-ipv6) + ("ipv6" . ,enable-ipv6?) ("user_data" . #nil) ("private_networking" . #nil) ("volumes" . #nil)