diff mbox series

[bug#54578,1/2] guix: Add define-deprecated/public-alias.

Message ID 06c24c012347d2148f26a79e71213e7edb122f42.camel@gmail.com
State Accepted
Headers show
Series [bug#54578,1/2] guix: Add define-deprecated/public-alias. | expand

Commit Message

Liliana Marie Prikler March 29, 2022, 7:16 p.m. UTC 
* guix/deprecation.scm (define-deprecated/public-alias): New variable.
---
 guix/deprecation.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

Comments

Ludovic Courtès March 30, 2022, 7:59 p.m. UTC | #1 
Liliana Marie Prikler <liliana.prikler@gmail.com> skribis:

> * guix/deprecation.scm (define-deprecated/public-alias): New variable.

[...]

> * gnu/services/telephony.scm (murmur-configuration, make-murmur-configuration)

[...]

Both patches LGTM, thank you!

Ludo’.
Liliana Marie Prikler April 12, 2022, 6:42 p.m. UTC | #2 
Am Mittwoch, dem 30.03.2022 um 21:59 +0200 schrieb Ludovic Courtès:
> Liliana Marie Prikler <liliana.prikler@gmail.com> skribis:
> 
> > * guix/deprecation.scm (define-deprecated/public-alias): New
> > variable.
> 
> [...]
> 
> > * gnu/services/telephony.scm (murmur-configuration, make-murmur-
> > configuration)
> 
> [...]
> 
> Both patches LGTM, thank you!
Thanks, pushed them now.
diff mbox series

Patch

diff --git a/guix/deprecation.scm b/guix/deprecation.scm
index 09a27789c9..8147a01e24 100644
--- a/guix/deprecation.scm
+++ b/guix/deprecation.scm
@@ -25,6 +25,7 @@  (define-module (guix deprecation)
 
             define-deprecated/public
             define-deprecated/alias
+            define-deprecated/public-alias
 
             warn-about-old-daemon
             warn-about-deprecation))
@@ -124,3 +125,10 @@  (define-syntax deprecated
         (id
          (identifier? #'id)
          #'replacement)))))
+
+(define-syntax-rule (define-deprecated/public-alias deprecated replacement)
+  "Like define-deprecated/alias, but exporting DEPRECATED.
+It is assumed, that REPLACEMENT is already public."
+  (begin
+    (define-deprecated/alias deprecated replacement)
+    (export deprecated)))