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

gnu: docker: Cleanup extraneous comments. 

* gnu/packages/docker.scm (docker): Remove "parenthesis-balancing" comments.
This commit is contained in:
Maxim Cournoyer 2019-04-11 22:08:52 -04:00
parent c627932639
commit 1b14e1bccd
No known key found for this signature in database
GPG Key ID: 1260E46482E63562
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
gnu/packages/docker.scm
View File

@ -389,11 +389,11 @@ built-in registry server of Docker.")
((#,(string-append "exec\\.Command\\(\"" ((#,(string-append "exec\\.Command\\(\""
(syntax->datum (syntax->datum
#'source-text) #'source-text)
"\"")) ; ) "\""))
(string-append "exec.Command(\"" (string-append "exec.Command(\""
(assoc-ref inputs package) (assoc-ref inputs package)
relative-path relative-path
"\"")))))))) ; ) "\""))))))))
(substitute-LookPath "ps" "procps" "/bin/ps") (substitute-LookPath "ps" "procps" "/bin/ps")
(substitute-LookPath "mkfs.xfs" "xfsprogs" "/bin/mkfs.xfs") (substitute-LookPath "mkfs.xfs" "xfsprogs" "/bin/mkfs.xfs")
(substitute-LookPath "lvmdiskscan" "lvm2" "/sbin/lvmdiskscan") (substitute-LookPath "lvmdiskscan" "lvm2" "/sbin/lvmdiskscan")
@ -432,22 +432,22 @@ built-in registry server of Docker.")
;; substitute. ;; substitute.
(substitute* source-files (substitute* source-files
;; Search for Java in PATH. ;; Search for Java in PATH.
(("\\<exec\\.Command\\(\"java\"") ; ) (("\\<exec\\.Command\\(\"java\"")
"xxec.Command(\"java\"") ; ) "xxec.Command(\"java\"")
;; Search for AUFS in PATH (mainline Linux doesn't support it). ;; Search for AUFS in PATH (mainline Linux doesn't support it).
(("\\<exec\\.Command\\(\"auplink\"") ; ) (("\\<exec\\.Command\\(\"auplink\"")
"xxec.Command(\"auplink\"") ; ) "xxec.Command(\"auplink\"")
;; Fail on other unsubstituted commands. ;; Fail on other unsubstituted commands.
(("\\<exec\\.Command\\(\"([a-zA-Z0-9][a-zA-Z0-9_-]*)\"" (("\\<exec\\.Command\\(\"([a-zA-Z0-9][a-zA-Z0-9_-]*)\""
_ executable) ; ) _ executable)
(string-append "exec.Guix_doesnt_want_Command(\"" (string-append "exec.Guix_doesnt_want_Command(\""
executable "\"")) ;) executable "\""))
(("\\<xxec\\.Command") (("\\<xxec\\.Command")
"exec.Command") "exec.Command")
;; Search for ZFS in PATH. ;; Search for ZFS in PATH.
(("\\<LookPath\\(\"zfs\"\\)") "LooxPath(\"zfs\")") (("\\<LookPath\\(\"zfs\"\\)") "LooxPath(\"zfs\")")
;; Fail on other unsubstituted LookPaths. ;; Fail on other unsubstituted LookPaths.
(("\\<LookPath\\(\"") "Guix_doesnt_want_LookPath\\(\"") ; )) (("\\<LookPath\\(\"") "Guix_doesnt_want_LookPath\\(\"")
(("\\<LooxPath") "LookPath"))) (("\\<LooxPath") "LookPath")))
#t)) #t))
(add-after 'patch-paths 'delete-failing-tests (add-after 'patch-paths 'delete-failing-tests