From 4cfe241f7223a0f4cfca10fdba185c2997410452 Mon Sep 17 00:00:00 2001
From: Timo Wilken
Date: Wed, 15 Feb 2023 23:36:52 +0100
Subject: Use symbol-append to build polybar service names

---
 tw/home/lap.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'tw/home')

diff --git a/tw/home/lap.scm b/tw/home/lap.scm
index 6fb7d785..f410dd5b 100644
--- a/tw/home/lap.scm
+++ b/tw/home/lap.scm
@@ -91,7 +91,7 @@
 (define (polybar-service monitor)
   (shepherd-service
    (documentation (string-append "Polybar desktop bar for monitor " monitor "."))
-   (provision (list (string->symbol (string-append "polybar-" monitor))))
+   (provision (list (symbol-append 'polybar- (string->symbol monitor))))
    (requirement '(xorg-setup))
    (start #~(make-forkexec-constructor
              (list #$polybar-wrapper)
-- 
cgit v1.2.3