Re: [PATCH] build: file-systems: Allow for bind mounting regular files.

[Alex Kost]

David Thompson (2015-08-01 22:17 +0300) wrote:

> diff --git a/gnu/build/file-systems.scm b/gnu/build/file-systems.scm
> index c58d23c..f0d6f70 100644
> --- a/gnu/build/file-systems.scm
> +++ b/gnu/build/file-systems.scm
> @@ -305,6 +305,10 @@ the following:
>                 fsck code device)
>         (start-repl)))))
>  
> +(define (regular-file? file-name)
> +  "Return #t if FILE-NAME is a regular file."
> +  (eq? (stat:type (stat file-name)) 'regular))

There are similar procedures in (guix build utils): 'directory-exists?',
'executable-file?' and 'symbolic-link?'.  So I think it is better to put
'regular-file?' there.  WDYT?

-- 
Alex