kreyren/guix-kreyren
1
0
Fork 0
Code Issues 1 Pull Requests 1 Releases Activity

publish: Remove 'regexp-exec' call from the hot path.

Browse Source 
* guix/scripts/publish.scm (extract-narinfo-hash): Rewrite without
resorting to regexps.
This commit is contained in:
Ludovic Courtès 2017-07-21 14:48:52 +02:00 committed by Ludovic Courtès
parent 0a94dc6396
commit 33463986ba
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
guix/scripts/publish.scm
View File

@ -565,13 +565,13 @@ has the given HASH of type ALGO."
" speaking. Welcome!")))
port)))))
(define extract-narinfo-hash
(let ((regexp (make-regexp "^([a-df-np-sv-z0-9]{32}).narinfo$")))
(lambda (str)
"Return the hash within the narinfo resource string STR, or false if STR
(define (extract-narinfo-hash str)
"Return the hash within the narinfo resource string STR, or false if STR
is invalid."
(and=> (regexp-exec regexp str)
(cut match:substring <> 1)))))
(and (string-suffix? ".narinfo" str)
(let ((base (string-drop-right str 8)))
(and (string-every %nix-base32-charset base)
base))))
(define (get-request? request)
"Return #t if REQUEST uses the GET method."