nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

hg-fetch: Remove .hg directories of sub-repositories. 

* guix/build/hg.scm (hg-fetch): Remove all .hg directories recursively.
This commit is contained in:
Björn Höfling 2018-11-23 18:38:27 +01:00
parent a03894416e
commit b8ca5b3146
No known key found for this signature in database
GPG Key ID: BF286CB6593E5FFD
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
guix/build/hg.scm
View File

@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2016 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2018 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2018 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2018 Björn Höfling <bjoern.hoefling@bjoernhoefling.de>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -45,8 +46,10 @@ Mercurial changeset identifier. Return #t on success, #f otherwise."
;; The contents of '.hg' vary as a function of the current ;; The contents of '.hg' vary as a function of the current
;; status of the Mercurial repo. Since we want a fixed ;; status of the Mercurial repo. Since we want a fixed
;; output, this directory needs to be taken out. ;; output, this directory needs to be taken out.
(with-directory-excursion directory ;; Since the '.hg' file is also in sub-modules, we have to
(delete-file-recursively ".hg")) ;; search for it in all sub-directories.
(for-each delete-file-recursively
(find-files directory "^\\.hg$" #:directories? #t))
#t) #t)