diff options
author | Ludovic Courtès <ludo@gnu.org> | 2019-10-22 18:31:47 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2019-10-22 18:32:52 +0200 |
commit | c93994b5e43acc6048b81836d30632e015306c92 (patch) | |
tree | e9f0e21e936a7f9fca2874eac1fa9310c77b6628 /gnu/machine | |
parent | 12712817ae97eb6305deeaad68ce17c9fa212917 (diff) |
machine: digital-ocean: Rename 'enable-ipv6' to 'enable-ipv6?'.
* gnu/machine/digital-ocean.scm (<digital-ocean-configuration>)[enable-ipv6]:
Rename to...
[enable-ipv6?]: ... this.
(deploy-digital-ocean): Adjust accordingly.
* doc/guix.texi (Invoking guix deploy): Adjust accordingly.
Diffstat (limited to 'gnu/machine')
-rw-r--r-- | gnu/machine/digital-ocean.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gnu/machine/digital-ocean.scm b/gnu/machine/digital-ocean.scm index 5ad7c4d4a3..6f7cf8fb30 100644 --- a/gnu/machine/digital-ocean.scm +++ b/gnu/machine/digital-ocean.scm @@ -52,7 +52,7 @@ 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 @@ takes care to set headers such as 'Accept' and 'Authorization' appropriately." (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 @@ environment type of 'digital-ocean-environment-type'." (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 @@ environment type of 'digital-ocean-environment-type'." ("image" . "debian-9-x64") ("ssh_keys" . ,(vector fingerprint)) ("backups" . #f) - ("ipv6" . ,enable-ipv6) + ("ipv6" . ,enable-ipv6?) ("user_data" . #nil) ("private_networking" . #nil) ("volumes" . #nil) |