diff options
Diffstat (limited to 'gnu/packages/version-control.scm')
| -rw-r--r-- | gnu/packages/version-control.scm | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/gnu/packages/version-control.scm b/gnu/packages/version-control.scm index 5fdbf1dfce2..68d508de6bb 100644 --- a/gnu/packages/version-control.scm +++ b/gnu/packages/version-control.scm | |||
| @@ -3731,17 +3731,9 @@ modification time.") | |||
| 3731 | (check-in version))) | 3731 | (check-in version))) |
| 3732 | (sha256 | 3732 | (sha256 |
| 3733 | (base32 "16zrha8vb4dwfmyq86iaz2xz4k91dh018bk94xkxgqbyrr33nm7y")) | 3733 | (base32 "16zrha8vb4dwfmyq86iaz2xz4k91dh018bk94xkxgqbyrr33nm7y")) |
| 3734 | (modules '((guix build utils) | 3734 | (modules '((guix build utils))) |
| 3735 | (ice-9 ftw) | ||
| 3736 | (srfi srfi-26))) | ||
| 3737 | (snippet | 3735 | (snippet |
| 3738 | #~(begin | 3736 | #~(begin |
| 3739 | (define (delete-all-but directory . preserve) | ||
| 3740 | (with-directory-excursion directory | ||
| 3741 | (let* ((pred (negate (cut member <> | ||
| 3742 | (cons* "." ".." preserve)))) | ||
| 3743 | (items (scandir "." pred))) | ||
| 3744 | (for-each (cut delete-file-recursively <>) items)))) | ||
| 3745 | (delete-all-but "autosetup" "proj.tcl" "wh-common.tcl") | 3737 | (delete-all-but "autosetup" "proj.tcl" "wh-common.tcl") |
| 3746 | (delete-file-recursively "extsrc"))))) | 3738 | (delete-file-recursively "extsrc"))))) |
| 3747 | (build-system gnu-build-system) | 3739 | (build-system gnu-build-system) |
