From b57dcd7aac68b7d7a7767f18f9594844ee29b448 Mon Sep 17 00:00:00 2001
From: Jens Nolte <jens@nightmarestudio.de>
Date: Wed, 18 Dec 2019 16:59:49 +0100
Subject: [PATCH] Fix click handler by reverting json attribute "block_name" to
"name"
---
src/QBar/Server.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/QBar/Server.hs b/src/QBar/Server.hs
index 24ea3eb..88a1e7e 100644
--- a/src/QBar/Server.hs
+++ b/src/QBar/Server.hs
@@ -56,7 +56,7 @@ instance ToJSON RenderBlock where
where
fullText'' = [ "full_text" .= fullText' ]
shortText'' = fromMaybe (\s -> ["short_text".=s]) mempty shortText'
- blockName'' = fromMaybe (\s -> ["block_name".=s]) mempty blockName'
+ blockName'' = fromMaybe (\s -> ["name".=s]) mempty blockName'
pango'' = [ "markup" .= ("pango" :: T.Text) ]
--
GitLab