summaryrefslogtreecommitdiff
path: root/gnu/machine
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/machine')
-rw-r--r--gnu/machine/digital-ocean.scm14
-rw-r--r--gnu/machine/hetzner.scm12
-rw-r--r--gnu/machine/hetzner/http.scm12
-rw-r--r--gnu/machine/ssh.scm18
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.