allow urls for snow docs

This commit is contained in:
Alex Shinn 2017-07-03 06:57:09 +09:00
parent db186784e3
commit 7b68f141c6

View file

@ -604,7 +604,11 @@
`((rename ,test `((rename ,test
,(path-strip-leading-parents test)))) ,(path-strip-leading-parents test))))
(else '())) (else '()))
docs tar-data-files files)))) (remove (lambda (x)
(or (string-prefix? "http://" x)
(string-prefix? "https://" x)))
docs)
tar-data-files files))))
(cons `(package (cons `(package
,@(reverse res) ,@(reverse res)
,@(if (pair? data-files) `((data-files ,@pkg-data-files)) '()) ,@(if (pair? data-files) `((data-files ,@pkg-data-files)) '())