From d7c25399b7feb8610254140bd14cb67d16146acd Mon Sep 17 00:00:00 2001
From: Runciter
Date: Fri, 13 Dec 2024 14:01:33 +0800
Subject: Remove call to old action procedure.

M  whispers/services/ssh-agent.scm
   Replace leftover call to action procedure by perform-service-action
---
 whispers/services/ssh-agent.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'whispers')

diff --git a/whispers/services/ssh-agent.scm b/whispers/services/ssh-agent.scm
index 834b36a..6b527a1 100644
--- a/whispers/services/ssh-agent.scm
+++ b/whispers/services/ssh-agent.scm
@@ -109,7 +109,9 @@ agent daemon, configurable by CONFIG, a record of the
                      #:log-file
                      #$log-file-path))))
           (map (lambda (key)
-                 (action 'ssh-agent 'add-key key))
+                 (perform-service-action (lookup-service 'ssh-agent)
+                                         'add-key
+                                         key))
                '#$auto-added-keys)
           ret))))
 
-- 
cgit v1.2.3