646b892680
Some checks failed
Periodic Merges (6h) / master → staging-nixos (push) Failing after 12m50s
Periodic Merges (6h) / master → staging-next (push) Failing after 12m54s
Periodic Merges (24h) / merge-base(master,staging) → haskell-updates (push) Failing after 11m54s
Periodic Merges (6h) / staging-next → staging (push) Failing after 12m13s
Periodic Merges (24h) / staging-next-25.05 → staging-25.05 (push) Failing after 13m24s
Periodic Merges (24h) / release-25.05 → staging-next-25.05 (push) Failing after 14m28s
17 lines
374 B
Common Lisp
17 lines
374 B
Common Lisp
(defpackage org.lispbuilds.nix/util
|
|
(:use :cl)
|
|
(:import-from :ppcre)
|
|
(:export
|
|
:replace-regexes))
|
|
|
|
(in-package org.lispbuilds.nix/util)
|
|
|
|
(defun replace-regexes (from to str)
|
|
(assert (= (length from) (length to)))
|
|
(if (null from)
|
|
str
|
|
(replace-regexes
|
|
(rest from)
|
|
(rest to)
|
|
(ppcre:regex-replace-all (first from) str (first to)))))
|