diff options
| author | jao <jao@gnu.org> | 2022-09-12 02:36:42 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-09-12 02:36:42 +0100 |
| commit | eaf2be9bbcf1b0597a52b14d28e0252ec4714bee (patch) | |
| tree | f638f5c7fdd177fef94d34ee961a6797f035e15b /src/Xmobar/X11/Loop.hs | |
| parent | 7e72fe0bc695b1d69ea58d2f28c014aaae6ee613 (diff) | |
| download | xmobar-eaf2be9bbcf1b0597a52b14d28e0252ec4714bee.tar.gz xmobar-eaf2be9bbcf1b0597a52b14d28e0252ec4714bee.tar.bz2 | |
wee refactoring: a couple type synonyms
Diffstat (limited to 'src/Xmobar/X11/Loop.hs')
| -rw-r--r-- | src/Xmobar/X11/Loop.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Xmobar/X11/Loop.hs b/src/Xmobar/X11/Loop.hs index 4cf4b8f..8b68944 100644 --- a/src/Xmobar/X11/Loop.hs +++ b/src/Xmobar/X11/Loop.hs @@ -181,7 +181,7 @@ updateConfigPosition disp cfg = else (cfg {position = OnScreen (n+1) o})) o -> return (cfg {position = OnScreen 1 o}) -runActions :: [([Action], Position, Position)] -> Button -> Position -> IO () +runActions :: [ActionPos] -> Button -> Position -> IO () runActions actions button pos = mapM_ runAction $ filter (\(Spawn b _) -> button `elem` b) $ |