diff options
| author | tv <tv@krebsco.de> | 2022-10-18 00:51:20 +0200 |
|---|---|---|
| committer | tv <tv@krebsco.de> | 2022-10-18 00:51:20 +0200 |
| commit | 84a56482858d169769490421e3642e7c2c9d542a (patch) | |
| tree | 8484e9968fd4031c2de3554e592c0b23f91f2b03 /src/main.hs | |
| parent | fc6105a5e7d1e3a07bf07ea85e7902dd8e9fc849 (diff) | |
getDesktopNames: take all desktops into account
Diffstat (limited to 'src/main.hs')
| -rw-r--r-- | src/main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |