diff options
Diffstat (limited to 'gnu/build/install.scm')
| -rw-r--r-- | gnu/build/install.scm | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/gnu/build/install.scm b/gnu/build/install.scm index 58ee77d1831..df9befe058a 100644 --- a/gnu/build/install.scm +++ b/gnu/build/install.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 supports the installation of the GNU system on a hard disk. | ||
| 25 | ;;; It is meant to be used both in a build environment (in derivations that | ||
| 26 | ;;; build VM images), and on the bare metal (when really installing the | ||
| 27 | ;;; system.) | ||
| 28 | ;;; | ||
| 29 | ;;; Code: | ||
| 30 | |||
| 22 | (define-module (gnu build install) | 31 | (define-module (gnu build install) |
| 23 | #:use-module (guix build syscalls) | 32 | #:use-module (guix build syscalls) |
| 24 | #:use-module (guix build utils) | 33 | #:use-module (guix build utils) |
| @@ -33,15 +42,6 @@ | |||
| 33 | mount-cow-store | 42 | mount-cow-store |
| 34 | unmount-cow-store)) | 43 | unmount-cow-store)) |
| 35 | 44 | ||
| 36 | ;;; Commentary: | ||
| 37 | ;;; | ||
| 38 | ;;; This module supports the installation of the GNU system on a hard disk. | ||
| 39 | ;;; It is meant to be used both in a build environment (in derivations that | ||
| 40 | ;;; build VM images), and on the bare metal (when really installing the | ||
| 41 | ;;; system.) | ||
| 42 | ;;; | ||
| 43 | ;;; Code: | ||
| 44 | |||
| 45 | (define (install-boot-config bootcfg bootcfg-location mount-point) | 45 | (define (install-boot-config bootcfg bootcfg-location mount-point) |
| 46 | "Atomically copy BOOTCFG into BOOTCFG-LOCATION on the MOUNT-POINT. Note | 46 | "Atomically copy BOOTCFG into BOOTCFG-LOCATION on the MOUNT-POINT. Note |
| 47 | that the caller must make sure that BOOTCFG is registered as a GC root so | 47 | that the caller must make sure that BOOTCFG is registered as a GC root so |
