diff options
Diffstat (limited to 'gnu/packages/vnc.scm')
| -rw-r--r-- | gnu/packages/vnc.scm | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/gnu/packages/vnc.scm b/gnu/packages/vnc.scm index 68f65e372fe..9317fa08ccb 100644 --- a/gnu/packages/vnc.scm +++ b/gnu/packages/vnc.scm | |||
| @@ -183,9 +183,7 @@ RDP, VNC, SPICE, NX, XDMCP, SSH and EXEC network protocols are supported.") | |||
| 183 | (uri (git-reference | 183 | (uri (git-reference |
| 184 | (url "https://github.com/TurboVNC/turbovnc") | 184 | (url "https://github.com/TurboVNC/turbovnc") |
| 185 | (commit version))) | 185 | (commit version))) |
| 186 | (modules '((guix build utils) | 186 | (modules '((guix build utils))) |
| 187 | (ice-9 ftw) | ||
| 188 | (srfi srfi-26))) | ||
| 189 | (snippet | 187 | (snippet |
| 190 | #~(begin | 188 | #~(begin |
| 191 | ;; There are a few bundled Java libraries, such as jsch and jzlib, | 189 | ;; There are a few bundled Java libraries, such as jsch and jzlib, |
| @@ -193,12 +191,6 @@ RDP, VNC, SPICE, NX, XDMCP, SSH and EXEC network protocols are supported.") | |||
| 193 | ;; bundled under java/org. These are used by the 'vncviewer' | 191 | ;; bundled under java/org. These are used by the 'vncviewer' |
| 194 | ;; program. The jsch copy is modified and integrates changes from | 192 | ;; program. The jsch copy is modified and integrates changes from |
| 195 | ;; https://github.com/mwiede/jsch, so cannot easily be un-bundled. | 193 | ;; https://github.com/mwiede/jsch, so cannot easily be un-bundled. |
| 196 | (define (delete-all-but directory . preserve) | ||
| 197 | (with-directory-excursion directory | ||
| 198 | (let* ((pred (negate (cut member <> | ||
| 199 | (cons* "." ".." preserve)))) | ||
| 200 | (items (scandir "." pred))) | ||
| 201 | (for-each (cut delete-file-recursively <>) items)))) | ||
| 202 | 194 | ||
| 203 | ;; d3des, rfb (headers) and turbojpeg-jni are small and not | 195 | ;; d3des, rfb (headers) and turbojpeg-jni are small and not |
| 204 | ;; packaged in Guix, so preserve them. | 196 | ;; packaged in Guix, so preserve them. |
