From c7681d79108f6e03f5adc33ebb96f14cf9b83f16 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Mon, 19 Sep 2022 02:26:50 +0100
Subject: wee refactoring (more types in X11.Types)

---
 src/Xmobar/X11/Loop.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Xmobar/X11/Loop.hs')

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
-- 
cgit v1.2.3