me/guix
Archived
1
0
Fork 0
Code Activity

machine: digital-ocean: Rename 'enable-ipv6' to 'enable-ipv6?'.

Browse source 
* 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.
This commit is contained in:
Ludovic Courtès 2019-10-22 18:31:47 +02:00
parent 12712817ae
commit c93994b5e4
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
doc/guix.texi
View file

@ -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"}. A Digital Ocean region slug, such as @code{"nyc3"}.
@item @code{size} @item @code{size}
A Digital Ocean size slug, such as @code{"s-1vcpu-1gb"} 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. Whether or not the droplet should be created with IPv6 networking.
@end table @end table
@end deftp @end deftp

8
gnu/machine/digital-ocean.scm
View file

@ -52,7 +52,7 @@
digital-ocean-configuration-tags digital-ocean-configuration-tags
digital-ocean-configuration-region digital-ocean-configuration-region
digital-ocean-configuration-size digital-ocean-configuration-size
digital-ocean-configuration-enable-ipv6 digital-ocean-configuration-enable-ipv6?
digital-ocean-environment-type)) 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 (tags digital-ocean-configuration-tags) ; list of strings
(region digital-ocean-configuration-region) ; string (region digital-ocean-configuration-region) ; string
(size digital-ocean-configuration-size) ; 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) (define (read-key-fingerprint file-name)
"Read the private key at FILE-NAME and return the key's fingerprint as a hex "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)) (size (digital-ocean-configuration-size config))
(ssh-key (digital-ocean-configuration-ssh-key config)) (ssh-key (digital-ocean-configuration-ssh-key config))
(fingerprint (read-key-fingerprint ssh-key)) (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)) (tags (digital-ocean-configuration-tags config))
(request-body `(("name" . ,name) (request-body `(("name" . ,name)
("region" . ,region) ("region" . ,region)
@ -332,7 +332,7 @@ environment type of 'digital-ocean-environment-type'."
("image" . "debian-9-x64") ("image" . "debian-9-x64")
("ssh_keys" . ,(vector fingerprint)) ("ssh_keys" . ,(vector fingerprint))
("backups" . #f) ("backups" . #f)
("ipv6" . ,enable-ipv6) ("ipv6" . ,enable-ipv6?)
("user_data" . #nil) ("user_data" . #nil)
("private_networking" . #nil) ("private_networking" . #nil)
("volumes" . #nil) ("volumes" . #nil)