Leo Famulari (2016-10-17 23:03 -0400) wrote: > * gnu/packages/backup.scm (borg)[arguments]: Install more documentation > in 'install-doc' phase. > --- > gnu/packages/backup.scm | 9 ++++++++- > 1 file changed, 8 insertions(+), 1 deletion(-) > > diff --git a/gnu/packages/backup.scm b/gnu/packages/backup.scm > index eb5e98d..b75e99b 100644 > --- a/gnu/packages/backup.scm > +++ b/gnu/packages/backup.scm > @@ -439,8 +439,15 @@ detection, and lossless compression.") > (add-after 'install 'install-doc > (lambda* (#:key outputs #:allow-other-keys) > (let* ((out (assoc-ref outputs "out")) > - (man (string-append out "/share/man/man1"))) > + (man (string-append out "/share/man/man1")) > + (misc (string-append out "/share/borg/misc"))) > (and > + (for-each (lambda (file)
Note that the return value of 'for-each' is not specified, so it should not be used inside 'and'. I would just put it before (and (zero? …) …). > + (install-file file misc)) > + (find-files "docs/misc" > + (string-append > "create_chunker-params|" > + "internals-picture|" > + "prune-example"))) > (zero? (system* "python3" "setup.py" "build_ext" > "--inplace")) > (zero? (system* "make" "-C" "docs" "man")) > (begin -- Alex
