mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 21:38:07 -05:00
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.
This commit is contained in:
parent
12712817ae
commit
c93994b5e4
2 changed files with 5 additions and 5 deletions
|
@ -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
|
||||
|
|
|
@ -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)
|
||||
|
|
Loading…
Reference in a new issue