diff options
| author | jao <jao@gnu.org> | 2025-02-12 02:46:02 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2025-02-12 02:46:02 +0000 |
| commit | 7dbc68e896ce23faf7c9b058d4a14eb49ac42da6 (patch) | |
| tree | 690fcaee545a2bfde373185932b315eb3c9adb31 /src/Xmobar/X11 | |
| parent | de7a0aff77114638f3e83835de0fe00395fe6bf7 (diff) | |
| download | xmobar-7dbc68e896ce23faf7c9b058d4a14eb49ac42da6.tar.gz xmobar-7dbc68e896ce23faf7c9b058d4a14eb49ac42da6.tar.bz2 | |
hlint hintson-click
Diffstat (limited to 'src/Xmobar/X11')
| -rw-r--r-- | src/Xmobar/X11/Loop.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Xmobar/X11/Loop.hs b/src/Xmobar/X11/Loop.hs index 5f0a762..834b1f6 100644 --- a/src/Xmobar/X11/Loop.hs +++ b/src/Xmobar/X11/Loop.hs @@ -186,8 +186,8 @@ toActs (r:rs) (([a], x, y):as) res toActs rs ((a, x, y):as) res = toActs rs as ((Act a, x, y):res) runAct :: A.Button -> ActPos -> IO () -runAct b ((Run r), _, _) = E.onClick r b -runAct b ((Act as), _, _) = +runAct b (Run r, _, _) = E.onClick r b +runAct b (Act as, _, _) = mapM_ A.runAction $ filter (\(A.Spawn bs _) -> b `elem` bs) as runActions :: [R.Runnable] -> D.Actions -> A.Button -> X11.Position -> IO () |