diff options
| author | David Thompson <davet@gnu.org> | 2015-06-28 00:39:43 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2015-07-07 21:20:59 -0400 |
| commit | 575b4b092d73403381277625794042a7b7253cfe (patch) | |
| tree | df2c8790b2f65eed732783eae584c8f065340867 /gnu/system | |
| parent | 9110c2e9421b4f93b04411f72fcea90ae8511f3c (diff) | |
gnu: system: Move file-system->spec to (gnu system file-systems).
* gnu/system/linux-initrd.scm (file-system->spec): Move this...
* gnu/system/file-systems.scm: ... to here.
Diffstat (limited to 'gnu/system')
| -rw-r--r-- | gnu/system/file-systems.scm | 10 | ||||
| -rw-r--r-- | gnu/system/linux-initrd.scm | 7 |
2 files changed, 10 insertions, 7 deletions
diff --git a/gnu/system/file-systems.scm b/gnu/system/file-systems.scm index cbaca88e15..b33f826b45 100644 --- a/gnu/system/file-systems.scm +++ b/gnu/system/file-systems.scm @@ -17,6 +17,7 @@ ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. (define-module (gnu system file-systems) + #:use-module (ice-9 match) #:use-module (guix gexp) #:use-module (guix records) #:use-module (guix store) @@ -33,6 +34,8 @@ file-system-check? file-system-create-mount-point? + file-system->spec + %fuse-control-file-system %binary-format-file-system %shared-memory-file-system @@ -95,6 +98,13 @@ file system." (or (%file-system-needed-for-boot? fs) (string=? "/" (file-system-mount-point fs)))) +(define (file-system->spec fs) + "Return a list corresponding to file-system FS that can be passed to the +initrd code." + (match fs + (($ <file-system> device title mount-point type flags options _ check?) + (list device title mount-point type flags options check?)))) + (define %fuse-control-file-system ;; Control file system for Linux' file systems in user-space (FUSE). (file-system diff --git a/gnu/system/linux-initrd.scm b/gnu/system/linux-initrd.scm index 74dacf1ecd..2b7ae71612 100644 --- a/gnu/system/linux-initrd.scm +++ b/gnu/system/linux-initrd.scm @@ -132,13 +132,6 @@ MODULES and taken from LINUX." (guix elf) (gnu build linux-modules)))) -(define (file-system->spec fs) - "Return a list corresponding to file-system FS that can be passed to the -initrd code." - (match fs - (($ <file-system> device title mount-point type flags options _ check?) - (list device title mount-point type flags options check?)))) - (define* (base-initrd file-systems #:key (linux linux-libre) |