bartronx7/guix
1
0
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2026-01-25 03:55:08 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions

services/base: Only remount read-write if needed in run-with-writable-store.

Browse source 
* gnu/services/base.scm (run-with-writable-store): Make it a no-op when
the store is already writable (useful for testing).

Change-Id: If598638e9d3eeac242c265cba77f27e4a15f8d9b
This commit is contained in:
Maxim Cournoyer 2025-10-10 11:42:46 +09:00
parent 8cdc7108c1
commit 1d77413c56
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gnu/services/base.scm
View file

@ -1939,10 +1939,9 @@ read-only via %IMMUTABLE-STORE (this wrapper must run as root)."
(define (ensure-writable-store store)
;; Create a new mount namespace and remount STORE with
;; write permissions if it's read-only.
(unshare CLONE_NEWNS)
(let ((fs (statfs store)))
(unless (zero? (logand (file-system-mount-flags fs)
ST_RDONLY))
(when (logand (file-system-mount-flags fs) ST_RDONLY)
(unshare CLONE_NEWNS)
(mount store store "none"
(logior MS_BIND MS_REMOUNT)))))