file-systems: Use a second 'mount' call for read-only bind mounts.
authorLudovic Courtès <ludo@gnu.org>
Mon, 20 Apr 2015 20:16:13 +0000 (22:16 +0200)
committerLudovic Courtès <ludo@gnu.org>
Mon, 20 Apr 2015 20:16:13 +0000 (22:16 +0200)
commitb86fee7848f964da4d5e695dc8027d95d40a1c77
treead0c6ef4421da2f5de4fce27170db7a82e8ac74d
parent38cf2ba084881a4c8fca0ee2888b5fd5724e9104
file-systems: Use a second 'mount' call for read-only bind mounts.

* gnu/build/file-systems.scm (MS_REMOUNT): New constant.
  (mount-file-system): Add 'flags' local variable.   When FLAGS has
  MS_BIND & MS_RDONLY, call 'mount' with MS_REMOUNT.
* gnu/services/base.scm (file-system-service) <start>: Likewise.
gnu/build/file-systems.scm
gnu/services/base.scm