~ruther/guix-local

2e4e01eebf3b4b5a40088580ce15078c5a272ef4 — Ludovic Courtès 12 years ago 4ec9195
gnu: guix: Upgrade to 0.6.

* gnu/packages/package-management.scm (guix): Upgrade to 0.6.
* gnu/services/dmd.scm (dmd-configuration-file): Change /var/nix to
  /var/guix.
* gnu/system/vm.scm (operating-system-default-contents): Likewise.
3 files changed, 9 insertions(+), 10 deletions(-)

M gnu/packages/package-management.scm
M gnu/services/dmd.scm
M gnu/system/vm.scm
M gnu/packages/package-management.scm => gnu/packages/package-management.scm +3 -4
@@ 1,5 1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2013, 2014 Ludovic Courtès <ludo@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;


@@ 31,15 31,14 @@
(define-public guix
  (package
    (name "guix")
    (version "0.5")
    (version "0.6")
    (source (origin
             (method url-fetch)
             (uri (string-append "ftp://alpha.gnu.org/gnu/guix/guix-"
                                 version ".tar.gz"))
             (sha256
              (base32
               "15azhc3lb1m64545q8cs8dzcgjbd2wjxhl6nw0rq6lnvrxz2wjmv"))
             (patches (list (search-patch "guix-test-networking.patch")))))
               "01xw51wizhsk827w4xp79k2b6dxjaviw04r6rbrb85qdxnwg6k9n"))))
    (build-system gnu-build-system)
    (arguments
     `(#:configure-flags (list

M gnu/services/dmd.scm => gnu/services/dmd.scm +2 -2
@@ 66,8 66,8 @@ ETC (the name of a directory in the store) on startup."
                              (not (member file '("." ".."))))))

         ;; Prevent ETC from being GC'd.
         (rm-f "/var/nix/gcroots/etc-directory")
         (symlink ,etc "/var/nix/gcroots/etc-directory"))
         (rm-f "/var/guix/gcroots/etc-directory")
         (symlink ,etc "/var/guix/gcroots/etc-directory"))

       (format #t "starting services...~%")
       (for-each start ',(append-map service-provision services))))

M gnu/system/vm.scm => gnu/system/vm.scm +4 -4
@@ 449,7 449,7 @@ basic contents of the root file system of OS."
          ;; XXX: Deal with automatically allocated ids.
          (uid  (or (user-account-uid user) 0))
          (gid  (or (user-account-gid user) 0))
          (root (string-append "/var/nix/profiles/per-user/"
          (root (string-append "/var/guix/profiles/per-user/"
                               (user-account-name user))))
      `((directory ,root ,uid ,gid)
        (directory ,home ,uid ,gid))))


@@ 462,14 462,14 @@ basic contents of the root file system of OS."
              (directory "/etc")
              (directory "/var/log")                     ; for dmd
              (directory "/var/run/nscd")
              (directory "/var/nix/gcroots")
              ("/var/nix/gcroots/system" -> ,os-dir)
              (directory "/var/guix/gcroots")
              ("/var/guix/gcroots/system" -> ,os-dir)
              (directory "/run")
              ("/run/current-system" -> ,profile)
              (directory "/bin")
              ("/bin/sh" -> "/run/current-system/bin/bash")
              (directory "/tmp")
              (directory "/var/nix/profiles/per-user/root" 0 0)
              (directory "/var/guix/profiles/per-user/root" 0 0)

              (directory "/root" 0 0)             ; an exception
              ,@(append-map user-directories