From 575b4b092d73403381277625794042a7b7253cfe Mon Sep 17 00:00:00 2001
From: David Thompson <davet@gnu.org>
Date: Sun, 28 Jun 2015 00:39:43 -0400
Subject: [PATCH] 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.
---
 gnu/system/file-systems.scm | 10 ++++++++++
 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 @@ (define-module (gnu system file-systems)
             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 @@ (define-inlinable (file-system-needed-for-boot? fs)
   (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 @@ (define modules
                                 (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)