diff options
| author | Marcin Mikołajczyk <marcinmikolajcz@gmail.com> | 2014-02-20 15:27:43 +0100 |
|---|---|---|
| committer | Marcin Mikołajczyk <marcinmikolajcz@gmail.com> | 2014-02-20 15:27:43 +0100 |
| commit | 6ef984e25433608183004086f21a75e51209012c (patch) | |
| tree | 0c7401c21cd08b6c3a313a3dcb20562e886040ce /src/Xmobar.hs | |
| parent | fc240b66c24b8d257299c9ccc8e51f30129e774c (diff) | |
| download | xmobar-6ef984e25433608183004086f21a75e51209012c.tar.gz xmobar-6ef984e25433608183004086f21a75e51209012c.tar.bz2 | |
Change actions syntax
Diffstat (limited to 'src/Xmobar.hs')
| -rw-r--r-- | src/Xmobar.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |