diff options
| author | Christopher R. Nelson <christopher.nelson@languidnights.com> | 2023-05-13 13:34:54 -0400 |
|---|---|---|
| committer | Christopher R. Nelson <christopher.nelson@languidnights.com> | 2023-05-13 13:34:54 -0400 |
| commit | c2b3b72d64304cde2108570055963d5cf8d159f0 (patch) | |
| tree | ecce7906c4e5b6e3aa500f1127703a24a4af91f7 | |
| parent | 0234804faecaa58eb061c9c1eef3ee14d79a48d4 (diff) | |
update search-patch to be public?
| -rw-r--r-- | crn/packages.scm | 6 | ||||
| -rw-r--r-- | crn/packages/python-xyz.scm | 4 |
2 files changed, 5 insertions, 5 deletions
diff --git a/crn/packages.scm b/crn/packages.scm index 0e28eb7..aaa92d8 100644 --- a/crn/packages.scm +++ b/crn/packages.scm @@ -25,16 +25,16 @@ search-patches %patch-path)) -(define-public (search-patch file-name) +(define (crn/search-patch file-name) "Search the patch FILE-NAME. Raise an error if not found." (or (search-path (%patch-path) file-name) (raise (formatted-message (G_ "~a: patch not found") file-name)))) -(define-syntax-rule (search-patches file-name ...) +(define-syntax-rule (crn/search-patches file-name ...) "Return the list of absolute file names corresponding to each FILE-NAME found in %PATCH-PATH." - (list (search-patch file-name) ...)) + (list (crn/search-patch file-name) ...)) (define %channel-root (find (lambda (path) diff --git a/crn/packages/python-xyz.scm b/crn/packages/python-xyz.scm index 9e8a2b6..85f66fa 100644 --- a/crn/packages/python-xyz.scm +++ b/crn/packages/python-xyz.scm @@ -26,7 +26,7 @@ (sha256 (base32 "1i5qzcyw2715h1g1hvj7fxykck2bkxyshpngjr3nfcx1lf6smv80")) - (patches (search-patches "typeguard-version.patch")))) + (patches (crn/search-patches "typeguard-version.patch")))) (build-system python-build-system) (native-inputs (list python-mypy python-pytest python-typing-extensions)) (home-page "") @@ -248,7 +248,7 @@ (file-name (git-file-name name version)) (sha256 (base32 "17dqr2lkmcv2ssp7vky27zw599i77whpb1aqh1s6kl8a8vkrz6mg")) - (patches (search-patches "sway-contrib-python.patch")))) + (patches (crn/search-patches "sway-contrib-python.patch")))) (build-system copy-build-system) (arguments '(#:install-plan |