dannym pushed a commit to branch wip-installer-2
in repository guix.
commit 17fcdea59ad227700c24d7441d873db4539a9b38
Author: John Darrington <[email protected]>
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
