gnu/installer/final.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com>
   3 ;;;
   4 ;;; This file is part of GNU Guix.
   5 ;;;
   6 ;;; GNU Guix is free software; you can redistribute it and/or modify it
   7 ;;; under the terms of the GNU General Public License as published by
   8 ;;; the Free Software Foundation; either version 3 of the License, or (at
   9 ;;; your option) any later version.
  10 ;;;
  11 ;;; GNU Guix is distributed in the hope that it will be useful, but
  12 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  13 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 ;;; GNU General Public License for more details.
  15 ;;;
  16 ;;; You should have received a copy of the GNU General Public License
  17 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  18
  19 (define-module (gnu installer final)
  20   #:use-module (gnu installer newt page)
  21   #:use-module (gnu installer steps)
  22   #:use-module (gnu installer utils)
  23   #:use-module (gnu services herd)
  24   #:use-module (guix build utils)
  25   #:export (install-system))
  26
  27 (define (install-system)
  28   "Start COW-STORE service on target directory and launch guix install command
  29 in a subshell."
  30   (let ((install-command
  31          (format #f "guix system init ~a ~a"
  32                  (%installer-configuration-file)
  33                  (%installer-target-dir))))
  34     (mkdir-p (%installer-target-dir))
  35     (start-service 'cow-store (list (%installer-target-dir)))
  36     (false-if-exception (run-shell-command install-command))))