From 2c13d81a89196688fb99d44d9eb7a7fb6a7074f6 Mon Sep 17 00:00:00 2001
From: Timotej Lazar <timotej.lazar@araneo.si>
Date: Thu, 11 May 2023 21:51:58 +0200
Subject: [PATCH] services/dkim-key: fix condition for linking current private
 key

---
 services/dkim-key.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/services/dkim-key.scm b/services/dkim-key.scm
index 0bd35b6..9b9f6bd 100644
--- a/services/dkim-key.scm
+++ b/services/dkim-key.scm
@@ -37,7 +37,7 @@
                        public)))
           (display (format #f "Create a TXT record at ~a._domainkey.~a with the contents of ~a/~a~%"
                            #$selector #$domain #$directory public)))
-        (unless (equal? (false-if-exception (readlink current)) key-file)
+        (unless (equal? (false-if-exception (readlink key-file)) private)
           (delete-file key-file)
           (symlink private key-file))))))