summary refs log tree commit diff
path: root/gnu/system/linux-initrd.scm
diff options
context:
space:
mode:
authorDavid Thompson <davet@gnu.org>2015-06-28 00:39:43 -0400
committerDavid Thompson <dthompson2@worcester.edu>2015-07-07 21:20:59 -0400
commit575b4b092d73403381277625794042a7b7253cfe (patch)
treedf2c8790b2f65eed732783eae584c8f065340867 /gnu/system/linux-initrd.scm
parent9110c2e9421b4f93b04411f72fcea90ae8511f3c (diff)
downloadguix-575b4b092d73403381277625794042a7b7253cfe.tar.gz
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/linux-initrd.scm')
-rw-r--r--gnu/system/linux-initrd.scm7
1 files changed, 0 insertions, 7 deletions
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)