summaryrefslogtreecommitdiff
path: root/gnu/packages/vnc.scm
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/packages/vnc.scm')
-rw-r--r--gnu/packages/vnc.scm10
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.