diff options
| author | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2019-04-11 22:08:52 -0400 |
|---|---|---|
| committer | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2019-05-05 21:21:01 -0400 |
| commit | 1b14e1bccdf7aecb4cd065fe5d1a20bf712b4e2f (patch) | |
| tree | 3468b51805da3bba6b36b01f47f24c4b255c53e9 /gnu | |
| parent | c627932639797445e70a05b65e9c4744129e8da3 (diff) | |
| download | guix-1b14e1bccdf7aecb4cd065fe5d1a20bf712b4e2f.tar.gz | |
gnu: docker: Cleanup extraneous comments.
* gnu/packages/docker.scm (docker): Remove "parenthesis-balancing" comments.
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/packages/docker.scm | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/gnu/packages/docker.scm b/gnu/packages/docker.scm index df20178e6e..44f902b3ad 100644 --- a/gnu/packages/docker.scm +++ b/gnu/packages/docker.scm @@ -389,11 +389,11 @@ built-in registry server of Docker.") ((#,(string-append "exec\\.Command\\(\"" (syntax->datum #'source-text) - "\"")) ; ) + "\"")) (string-append "exec.Command(\"" (assoc-ref inputs package) relative-path - "\"")))))))) ; ) + "\"")))))))) (substitute-LookPath "ps" "procps" "/bin/ps") (substitute-LookPath "mkfs.xfs" "xfsprogs" "/bin/mkfs.xfs") (substitute-LookPath "lvmdiskscan" "lvm2" "/sbin/lvmdiskscan") @@ -432,22 +432,22 @@ built-in registry server of Docker.") ;; substitute. (substitute* source-files ;; Search for Java in PATH. - (("\\<exec\\.Command\\(\"java\"") ; ) - "xxec.Command(\"java\"") ; ) + (("\\<exec\\.Command\\(\"java\"") + "xxec.Command(\"java\"") ;; Search for AUFS in PATH (mainline Linux doesn't support it). - (("\\<exec\\.Command\\(\"auplink\"") ; ) - "xxec.Command(\"auplink\"") ; ) + (("\\<exec\\.Command\\(\"auplink\"") + "xxec.Command(\"auplink\"") ;; Fail on other unsubstituted commands. (("\\<exec\\.Command\\(\"([a-zA-Z0-9][a-zA-Z0-9_-]*)\"" - _ executable) ; ) + _ executable) (string-append "exec.Guix_doesnt_want_Command(\"" - executable "\"")) ;) + executable "\"")) (("\\<xxec\\.Command") "exec.Command") ;; Search for ZFS in PATH. (("\\<LookPath\\(\"zfs\"\\)") "LooxPath(\"zfs\")") ;; Fail on other unsubstituted LookPaths. - (("\\<LookPath\\(\"") "Guix_doesnt_want_LookPath\\(\"") ; )) + (("\\<LookPath\\(\"") "Guix_doesnt_want_LookPath\\(\"") (("\\<LooxPath") "LookPath"))) #t)) (add-after 'patch-paths 'delete-failing-tests |