diff options
| author | Marcin Mikołajczyk <marcinmikolajcz@gmail.com> | 2014-02-18 21:21:39 +0100 |
|---|---|---|
| committer | Marcin Mikołajczyk <marcinmikolajcz@gmail.com> | 2014-02-18 21:21:39 +0100 |
| commit | fc240b66c24b8d257299c9ccc8e51f30129e774c (patch) | |
| tree | 83e2b21c07a3ac6a716c42a20e247437f35822eb /src/Bitmap.hs | |
| parent | 0a9528f92cddd6b145be7e75142af2b1b2905877 (diff) | |
| download | xmobar-fc240b66c24b8d257299c9ccc8e51f30129e774c.tar.gz xmobar-fc240b66c24b8d257299c9ccc8e51f30129e774c.tar.bz2 | |
Add support for multiple actions per item, activated depending on mouse button clicked
Diffstat (limited to 'src/Bitmap.hs')
| -rw-r--r-- | src/Bitmap.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Bitmap.hs b/src/Bitmap.hs index 2045e1a..3673b7a 100644 --- a/src/Bitmap.hs +++ b/src/Bitmap.hs @@ -30,7 +30,7 @@ data Bitmap = Bitmap { width :: Dimension } updateCache :: Display -> Window -> Map FilePath Bitmap -> - [[(Widget, String, Maybe Action)]] -> IO (Map FilePath Bitmap) + [[(Widget, String, Maybe [Action])]] -> IO (Map FilePath Bitmap) updateCache dpy win cache ps = do let paths = map (\(Icon p, _, _) -> p) . concatMap (filter icons) $ ps icons (Icon _, _, _) = True |