~ruther/guix-local

78981bb9bd66ba65af133fda6474664c330f30c4 — Ludovic Courtès 10 years ago 0e3cc31 
file-systems: Do not truncate mount points that already exist.

Reported by David Thompson <dthompson2@worcester.edu>
at <https://lists.gnu.org/archive/html/guix-devel/2015-10/msg00284.html>.

* gnu/build/file-systems.scm (mount-file-system): When SOURCE matches
  'regular-file?', do not create MOUNT-POINT if it already exists.  This
  fixes a bug whereby we would be truncating MOUNT-POINT if it already
  existed.
patch browse .tar.gz 
1 files changed, 1 insertions(+), 1 deletions(-)

M gnu/build/file-systems.scm

M gnu/build/file-systems.scm => gnu/build/file-systems.scm +1 -1
@@ 348,7 348,7 @@ run a file system check."
       ;; in the case of a bind mount, a regular file may be needed.
       (if (and (= MS_BIND (logand flags MS_BIND))
                (regular-file? source))
           (begin
           (unless (file-exists? mount-point)
             (mkdir-p (dirname mount-point))
             (call-with-output-file mount-point (const #t)))
           (mkdir-p mount-point))