diff options
| author | jao <jao@gnu.org> | 2022-09-19 02:26:50 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-09-19 02:26:50 +0100 |
| commit | c7681d79108f6e03f5adc33ebb96f14cf9b83f16 (patch) | |
| tree | dab5b80419a2862e18f7df7ff3b6a31bdedfc1ad /src/Xmobar/X11/Loop.hs | |
| parent | 44e407836e1437bd1f78edc4980eeb9fe42399b6 (diff) | |
| download | xmobar-c7681d79108f6e03f5adc33ebb96f14cf9b83f16.tar.gz xmobar-c7681d79108f6e03f5adc33ebb96f14cf9b83f16.tar.bz2 | |
wee refactoring (more types in X11.Types)
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 74c4c67..3975e21 100644 --- a/src/Xmobar/X11/Loop.hs +++ b/src/Xmobar/X11/Loop.hs @@ -87,7 +87,7 @@ eventLoop dpy w signalv = E.nextEvent' dpy e #endif ev <- X11x.getEvent e - let send s = STM.atomically (STM.putTMVar signalv s) + let send = STM.atomically . STM.putTMVar signalv case ev of X11x.ConfigureEvent {} -> send S.Reposition X11x.RRScreenChangeNotifyEvent {} -> send S.Reposition |