diff options
Diffstat (limited to 'gnu/machine')
| -rw-r--r-- | gnu/machine/digital-ocean.scm | 14 | ||||
| -rw-r--r-- | gnu/machine/hetzner.scm | 12 | ||||
| -rw-r--r-- | gnu/machine/hetzner/http.scm | 12 | ||||
| -rw-r--r-- | gnu/machine/ssh.scm | 18 |
4 files changed, 28 insertions, 28 deletions
diff --git a/gnu/machine/digital-ocean.scm b/gnu/machine/digital-ocean.scm index d0f0bbe4cb6..f88d140900c 100644 --- a/gnu/machine/digital-ocean.scm +++ b/gnu/machine/digital-ocean.scm | |||
| @@ -19,6 +19,13 @@ | |||
| 19 | ;;; You should have received a copy of the GNU General Public License | 19 | ;;; You should have received a copy of the GNU General Public License |
| 20 | ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. | 20 | ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. |
| 21 | 21 | ||
| 22 | ;;; Commentary: | ||
| 23 | ;;; | ||
| 24 | ;;; This module implements a high-level interface for provisioning "droplets" | ||
| 25 | ;;; from the Digital Ocean virtual private server (VPS) service. | ||
| 26 | ;;; | ||
| 27 | ;;; Code: | ||
| 28 | |||
| 22 | (define-module (gnu machine digital-ocean) | 29 | (define-module (gnu machine digital-ocean) |
| 23 | #:use-module (gnu machine ssh) | 30 | #:use-module (gnu machine ssh) |
| 24 | #:use-module (gnu machine) | 31 | #:use-module (gnu machine) |
| @@ -63,13 +70,6 @@ | |||
| 63 | 70 | ||
| 64 | digital-ocean-environment-type)) | 71 | digital-ocean-environment-type)) |
| 65 | 72 | ||
| 66 | ;;; Commentary: | ||
| 67 | ;;; | ||
| 68 | ;;; This module implements a high-level interface for provisioning "droplets" | ||
| 69 | ;;; from the Digital Ocean virtual private server (VPS) service. | ||
| 70 | ;;; | ||
| 71 | ;;; Code: | ||
| 72 | |||
| 73 | (define %api-base "https://api.digitalocean.com") | 73 | (define %api-base "https://api.digitalocean.com") |
| 74 | 74 | ||
| 75 | (define %digital-ocean-token | 75 | (define %digital-ocean-token |
diff --git a/gnu/machine/hetzner.scm b/gnu/machine/hetzner.scm index b4858fa3d26..148e3139b19 100644 --- a/gnu/machine/hetzner.scm +++ b/gnu/machine/hetzner.scm | |||
| @@ -19,6 +19,12 @@ | |||
| 19 | ;;; You should have received a copy of the GNU General Public License | 19 | ;;; You should have received a copy of the GNU General Public License |
| 20 | ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. | 20 | ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. |
| 21 | 21 | ||
| 22 | ;;; Commentary: | ||
| 23 | ;;; | ||
| 24 | ;;; This module implements a high-level interface for provisioning machines on | ||
| 25 | ;;; the Hetzner Cloud service https://docs.hetzner.cloud. | ||
| 26 | ;;; | ||
| 27 | |||
| 22 | (define-module (gnu machine hetzner) | 28 | (define-module (gnu machine hetzner) |
| 23 | #:use-module (gnu bootloader grub) | 29 | #:use-module (gnu bootloader grub) |
| 24 | #:use-module (gnu bootloader) | 30 | #:use-module (gnu bootloader) |
| @@ -91,12 +97,6 @@ | |||
| 91 | hetzner-configuration? | 97 | hetzner-configuration? |
| 92 | hetzner-environment-type)) | 98 | hetzner-environment-type)) |
| 93 | 99 | ||
| 94 | ;;; Commentary: | ||
| 95 | ;;; | ||
| 96 | ;;; This module implements a high-level interface for provisioning machines on | ||
| 97 | ;;; the Hetzner Cloud service https://docs.hetzner.cloud. | ||
| 98 | ;;; | ||
| 99 | |||
| 100 | 100 | ||
| 101 | ;;; | 101 | ;;; |
| 102 | ;;; Hetzner operating systems. | 102 | ;;; Hetzner operating systems. |
diff --git a/gnu/machine/hetzner/http.scm b/gnu/machine/hetzner/http.scm index f8580021a9e..6702a755351 100644 --- a/gnu/machine/hetzner/http.scm +++ b/gnu/machine/hetzner/http.scm | |||
| @@ -17,6 +17,12 @@ | |||
| 17 | ;;; You should have received a copy of the GNU General Public License | 17 | ;;; You should have received a copy of the GNU General Public License |
| 18 | ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. | 18 | ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. |
| 19 | 19 | ||
| 20 | ;;; Commentary: | ||
| 21 | ;;; | ||
| 22 | ;;; This module implements a lower-level interface for interacting with the | ||
| 23 | ;;; Hetzner Cloud API https://docs.hetzner.cloud. | ||
| 24 | ;;; | ||
| 25 | |||
| 20 | (define-module (gnu machine hetzner http) | 26 | (define-module (gnu machine hetzner http) |
| 21 | #:use-module (guix diagnostics) | 27 | #:use-module (guix diagnostics) |
| 22 | #:use-module (guix i18n) | 28 | #:use-module (guix i18n) |
| @@ -179,12 +185,6 @@ | |||
| 179 | make-hetzner-server-type | 185 | make-hetzner-server-type |
| 180 | make-hetzner-ssh-key)) | 186 | make-hetzner-ssh-key)) |
| 181 | 187 | ||
| 182 | ;;; Commentary: | ||
| 183 | ;;; | ||
| 184 | ;;; This module implements a lower-level interface for interacting with the | ||
| 185 | ;;; Hetzner Cloud API https://docs.hetzner.cloud. | ||
| 186 | ;;; | ||
| 187 | |||
| 188 | (define %hetzner-default-api-token | 188 | (define %hetzner-default-api-token |
| 189 | (make-parameter (getenv "GUIX_HETZNER_API_TOKEN"))) | 189 | (make-parameter (getenv "GUIX_HETZNER_API_TOKEN"))) |
| 190 | 190 | ||
diff --git a/gnu/machine/ssh.scm b/gnu/machine/ssh.scm index 0ce28602363..d8c634000f7 100644 --- a/gnu/machine/ssh.scm +++ b/gnu/machine/ssh.scm | |||
| @@ -19,6 +19,15 @@ | |||
| 19 | ;;; You should have received a copy of the GNU General Public License | 19 | ;;; You should have received a copy of the GNU General Public License |
| 20 | ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. | 20 | ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. |
| 21 | 21 | ||
| 22 | ;;; Commentary: | ||
| 23 | ;;; | ||
| 24 | ;;; This module implements remote evaluation and system deployment for | ||
| 25 | ;;; machines that are accessible over SSH and have a known host-name. In the | ||
| 26 | ;;; sense of the broader "machine" interface, we describe the environment for | ||
| 27 | ;;; such machines as 'managed-host. | ||
| 28 | ;;; | ||
| 29 | ;;; Code: | ||
| 30 | |||
| 22 | (define-module (gnu machine ssh) | 31 | (define-module (gnu machine ssh) |
| 23 | #:use-module (gnu bootloader) | 32 | #:use-module (gnu bootloader) |
| 24 | #:use-module (gnu machine) | 33 | #:use-module (gnu machine) |
| @@ -70,15 +79,6 @@ | |||
| 70 | machine-ssh-configuration-host-key | 79 | machine-ssh-configuration-host-key |
| 71 | machine-ssh-configuration-session)) | 80 | machine-ssh-configuration-session)) |
| 72 | 81 | ||
| 73 | ;;; Commentary: | ||
| 74 | ;;; | ||
| 75 | ;;; This module implements remote evaluation and system deployment for | ||
| 76 | ;;; machines that are accessible over SSH and have a known host-name. In the | ||
| 77 | ;;; sense of the broader "machine" interface, we describe the environment for | ||
| 78 | ;;; such machines as 'managed-host. | ||
| 79 | ;;; | ||
| 80 | ;;; Code: | ||
| 81 | |||
| 82 | 82 | ||
| 83 | ;;; | 83 | ;;; |
| 84 | ;;; Parameters for the SSH client. | 84 | ;;; Parameters for the SSH client. |
