diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-31 17:54:58 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-31 18:07:30 -0700 |
| commit | 394f9e614fcf36b2a22cfbab713a662dbf7b8808 (patch) | |
| tree | 190986de69ec3ea295fc68a6587e220bc21e3a0b /src/property/fstab.lisp | |
| parent | 18d47e85101594f0baa8151dccf744f987dce4f4 (diff) | |
| download | consfigurator-394f9e614fcf36b2a22cfbab713a662dbf7b8808.tar.gz | |
strip trailing slashes from mount points in VOLUME fstab entries
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/fstab.lisp')
| -rw-r--r-- | src/property/fstab.lisp | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/property/fstab.lisp b/src/property/fstab.lisp index c150968..17749bf 100644 --- a/src/property/fstab.lisp +++ b/src/property/fstab.lisp @@ -37,7 +37,11 @@ Other properties might fill it in." (strcat "PARTUUID=" (get-findmnt-field (mount-point volume) "PARTUUID"))) (defmethod fs-file ((volume filesystem)) - (mount-point volume)) + (let* ((ns (unix-namestring (mount-point volume))) + (length (length ns))) + (if (and (> length 1) (char= #\/ (last-char ns))) + (subseq ns 0 (1- (length ns))) + ns))) (defmethod fs-vfstype ((volume ext4-filesystem)) "ext4") |