file-systems: Add 'file-system-mapping->bind-mount'.

* gnu/system/file-systems.scm (file-system-mapping->bind-mount): New
procedure.
* gnu/system/linux-container.scm (mapping->file-system): Remove.
(containerized-operating-system)[mapping->fs]: Use
'file-system-mapping->bind-mount' instead of 'mapping->file-system'.
* guix/scripts/environment.scm (launch-environment/container): Likewise.
This commit is contained in:
Ludovic Courtès 2017-02-03 00:20:40 +01:00
parent 0f31d4f07f
commit d2a5e6982d
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
3 changed files with 22 additions and 19 deletions

View file

@ -433,7 +433,8 @@ host file systems to mount inside the container."
(writable? #f)))
reqs)))
(file-systems (append %container-file-systems
(map mapping->file-system mappings))))
(map file-system-mapping->bind-mount
mappings))))
(exit/status
(call-with-container file-systems
(lambda ()