14/22: installer: Make minumum-store-size variable global.

[John Darrington]

jmd pushed a commit to branch wip-installer
in repository guix.

commit 417a7e253a5a54245d2af4cd5ccd9a627ebc0941
Author: John Darrington <address@hidden>
Date:   Mon Dec 26 10:38:02 2016 +0100

    installer: Make minumum-store-size variable global.
    
    * gnu/system/installer/filesystems.scm (minimum-store-size): Export 
variable.
    * gnu/system/new.scm: Use variable minimum-store-size instead of literal 
number.
---
 gnu/system/installer/filesystems.scm |    3 ++-
 gnu/system/installer/new.scm         |    2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/gnu/system/installer/filesystems.scm 
b/gnu/system/installer/filesystems.scm
index 29d00fd..f3242ab 100644
--- a/gnu/system/installer/filesystems.scm
+++ b/gnu/system/installer/filesystems.scm
@@ -28,7 +28,8 @@
   #:use-module (ncurses curses)
   #:use-module (ice-9 format)
   #:use-module (srfi srfi-1)
-  
+
+  #:export (minimum-store-size)
   #:export (filesystem-task-complete?)
   #:export (make-filesystem-page))
 
diff --git a/gnu/system/installer/new.scm b/gnu/system/installer/new.scm
index 01ff36d..aed6021 100644
--- a/gnu/system/installer/new.scm
+++ b/gnu/system/installer/new.scm
@@ -69,7 +69,7 @@
   `(
     (disk . ,(make-task partition-menu-title
                         '()
-                        (lambda () (< 12000 (size-of-largest-disk)))
+                        (lambda () (< minimum-store-size 
(size-of-largest-disk)))
                         (lambda (page)
                           (make-disk-page
                            page