summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar/X11/Loop.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Xmobar/X11/Loop.hs')
-rw-r--r--src/Xmobar/X11/Loop.hs2
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