From 84a56482858d169769490421e3642e7c2c9d542a Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Tue, 18 Oct 2022 00:51:20 +0200
Subject: getDesktopNames: take all desktops into account

---
 src/main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/main.hs b/src/main.hs
index 4b78f49..669aedd 100644
--- a/src/main.hs
+++ b/src/main.hs
@@ -89,7 +89,7 @@ getCurrentDesktop d =
 
 getDesktopNames :: X11.Display -> IO (Maybe [Text])
 getDesktopNames d = do
-  (fmap (init . Text.split (=='\NUL')) <$>) $
+  (fmap (Text.split (=='\NUL')) <$>) $
       X11.getWindowPropertyText d atom_NET_DESKTOP_NAMES w <|>
       X11.getWindowPropertyText d atom_WIN_WORKSPACE_NAMES w
   where w = X11.defaultRootWindow d
-- 
cgit v1.2.3