diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-10-29 18:22:19 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-10-29 19:07:58 +0100 |
| commit | e502bf8953afcd1e0cf29cd729e7c62c5c27792f (patch) | |
| tree | 24a796b0e8beef91632b2d36f93fae32b2543c7d /gnu/system | |
| parent | 362f496da9fc929d9548b8a56990779718b13c95 (diff) | |
system: File systems depend on their corresponding device mappings.
Fixes a regression introduced in commit 0adfe95.
* gnu/system.scm (other-file-system-services)[requirements]: Remove.
[add-dependencies]: New procedure.
Use it.
* gnu/system/file-systems.scm (<file-system>)[dependencies]: Update
comment.
* gnu/services/base.scm (mapped-device->dmd-service-name,
dependency->dmd-service-name): New procedures.
(file-system-service-type): Use it.
Diffstat (limited to 'gnu/system')
| -rw-r--r-- | gnu/system/file-systems.scm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/gnu/system/file-systems.scm b/gnu/system/file-systems.scm index 8155b273e35..0a4b385fe33 100644 --- a/gnu/system/file-systems.scm +++ b/gnu/system/file-systems.scm | |||
| @@ -99,9 +99,8 @@ | |||
| 99 | (default #t)) | 99 | (default #t)) |
| 100 | (create-mount-point? file-system-create-mount-point? ; Boolean | 100 | (create-mount-point? file-system-create-mount-point? ; Boolean |
| 101 | (default #f)) | 101 | (default #f)) |
| 102 | (dependencies file-system-dependencies ; list of strings (mount | 102 | (dependencies file-system-dependencies ; list of <file-system> |
| 103 | ; points depended on) | 103 | (default '()))) ; or <mapped-device> |
| 104 | (default '()))) | ||
| 105 | 104 | ||
| 106 | (define-inlinable (file-system-needed-for-boot? fs) | 105 | (define-inlinable (file-system-needed-for-boot? fs) |
| 107 | "Return true if FS has the 'needed-for-boot?' flag set, or if it's the root | 106 | "Return true if FS has the 'needed-for-boot?' flag set, or if it's the root |