diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-31 13:21:13 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-31 14:18:17 -0700 |
commit | eafc7f5367698872e79918c225a605ff2e320520 (patch) | |
tree | 57c6da392942680d4ce4d2f75aa308c569a3e6fa /src/property/disk.lisp | |
parent | 4295a5d15d8579da3f61788e2fa0af6be40f113c (diff) | |
download | consfigurator-eafc7f5367698872e79918c225a605ff2e320520.tar.gz |
DISK:CREATE-VOLUME for LVM volume groups: pass -Wn to lvcreate(8)
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/disk.lisp')
-rw-r--r-- | src/property/disk.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/property/disk.lisp b/src/property/disk.lisp index cb45e9c..b6d306e 100644 --- a/src/property/disk.lisp +++ b/src/property/disk.lisp @@ -447,7 +447,7 @@ DISK:HAS-VOLUMES, rather than as the VOLUME-CONTENTS of another volume.")) (unless (member volume-label (all-vgs) :test #'string=) (failed-change "Looks like no PVs for VG ~A?" volume-label)) (dolist (lv volume-contents) - (mrun :inform "lvcreate" + (mrun :inform "lvcreate" "-Wn" (if (and (slot-boundp lv 'volume-size) (eql (volume-size lv) :remaining)) '("-l" "100%FREE") |