From 6ef984e25433608183004086f21a75e51209012c Mon Sep 17 00:00:00 2001
From: Marcin Mikołajczyk <marcinmikolajcz@gmail.com>
Date: Thu, 20 Feb 2014 15:27:43 +0100
Subject: Change actions syntax

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

(limited to 'src/Xmobar.hs')

diff --git a/src/Xmobar.hs b/src/Xmobar.hs
index 653ca69..ce32a0a 100644
--- a/src/Xmobar.hs
+++ b/src/Xmobar.hs
@@ -213,7 +213,7 @@ eventLoop tv xc@(XConf d r w fs is cfg) as signal = do
 
         action button x = do
           mapM_ runAction $
-            filter (\(Spawn b _) -> button == b) $
+            filter (\(Spawn b _) -> button `elem` b) $
             concatMap (\(a,_,_) -> a) $
             filter (\(_, from, to) -> x >= from && x <= to) as
           eventLoop tv xc as signal
-- 
cgit v1.2.3