From 98857472d93e6c6b4c9d501ae5c7172874c1ed82 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Mon, 31 Mar 2025 17:02:58 +0100
Subject: hlinting

---
 src/Xmobar/X11/Loop.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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

diff --git a/src/Xmobar/X11/Loop.hs b/src/Xmobar/X11/Loop.hs
index 2dfb34d..0425cff 100644
--- a/src/Xmobar/X11/Loop.hs
+++ b/src/Xmobar/X11/Loop.hs
@@ -170,7 +170,7 @@ updateConfigPosition disp cfg =
 runActions :: D.Actions -> A.Button -> X11.Position -> IO ()
 runActions actions button pos =
   mapM_ A.runAction $
-   filter (\(A.Spawn b _) -> button `elem` b) $
-   concatMap (\(a,_,_) -> a) $
-   filter (\(_, from, to) -> pos' >= from && pos' <= to) actions
+   concatMap
+    (filter (\ (A.Spawn b _) -> button `elem` b) . (\ (a, _, _) -> a))
+    (filter (\ (_, from, to) -> pos' >= from && pos' <= to) actions)
   where pos' = fromIntegral pos
-- 
cgit v1.2.3