diff options
| author | jao <jao@gnu.org> | 2026-05-07 01:05:54 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2026-05-07 01:05:54 +0100 |
| commit | ad7cae0a320c3793a073d82f348b3bacd85ccd35 (patch) | |
| tree | e6157751233b4aaddc6df03977f0385920c4bb6d /src/Xmobar/Plugins/EWMH.hs | |
| parent | 90bdfef9df3dff6eabd993cb76467bba3f2c6edf (diff) | |
| download | xmobar-ad7cae0a320c3793a073d82f348b3bacd85ccd35.tar.gz xmobar-ad7cae0a320c3793a073d82f348b3bacd85ccd35.tar.bz2 | |
Diffstat (limited to 'src/Xmobar/Plugins/EWMH.hs')
| -rw-r--r-- | src/Xmobar/Plugins/EWMH.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Xmobar/Plugins/EWMH.hs b/src/Xmobar/Plugins/EWMH.hs index 78f1cc0..9b583ea 100644 --- a/src/Xmobar/Plugins/EWMH.hs +++ b/src/Xmobar/Plugins/EWMH.hs @@ -232,7 +232,7 @@ updateClientList _ = do where unmanage w = asks display >>= \d -> liftIO $ selectInput d w 0 listen w = asks display >>= \d -> liftIO $ selectInput d w propertyChangeMask - update w = mapM_ (($ w) . snd) clientHandlers + update w = mapM_ (`snd` w) clientHandlers modifyClient :: Window -> (Client -> Client) -> M () modifyClient w f = modify (\s -> s { clients = Map.alter f' w $ clients s }) |