diff options
author | Ludovic Courtès <ludo@gnu.org> | 2017-10-04 21:35:31 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2017-10-05 12:09:17 +0200 |
commit | dd41a7f8d8d07a8638a19404072c78e9d0ac01b2 (patch) | |
tree | e8c81bf6b18fdeef41ee75028e7328a06f25b020 | |
parent | aed1f1b049f6e7ef9f2f2db58bdca6cd3effe94b (diff) | |
download | guix-dd41a7f8d8d07a8638a19404072c78e9d0ac01b2.tar.gz |
file-systems: Add a 'location' field to <file-system>.
* gnu/system/file-systems.scm (<file-system>)[location]: New field.
-rw-r--r-- | gnu/system/file-systems.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/gnu/system/file-systems.scm b/gnu/system/file-systems.scm index 52f16676f5..92f040425d 100644 --- a/gnu/system/file-systems.scm +++ b/gnu/system/file-systems.scm @@ -38,6 +38,7 @@ file-system-check? file-system-create-mount-point? file-system-dependencies + file-system-location file-system-type-predicate @@ -101,7 +102,10 @@ (create-mount-point? file-system-create-mount-point? ; Boolean (default #f)) (dependencies file-system-dependencies ; list of <file-system> - (default '()))) ; or <mapped-device> + (default '())) ; or <mapped-device> + (location file-system-location + (default (current-source-location)) + (innate))) ;; Note: This module is used both on the build side and on the host side. ;; Arrange not to pull (guix store) and (guix config) because the latter |