diff options
| author | jao <jao@gnu.org> | 2022-09-11 09:25:40 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-09-11 09:25:40 +0100 |
| commit | d7299a0b80f0b15f820a1b7533549e306755441c (patch) | |
| tree | d4c671e703ea87897f7da5ac921b31eb632a159a /src/Xmobar/X11/Bitmap.hs | |
| parent | d579c840a5038d45c4fecde84dc99d6b14677e20 (diff) | |
| download | xmobar-d7299a0b80f0b15f820a1b7533549e306755441c.tar.gz xmobar-d7299a0b80f0b15f820a1b7533549e306755441c.tar.bz2 | |
cairo: bitmaps
Diffstat (limited to 'src/Xmobar/X11/Bitmap.hs')
| -rw-r--r-- | src/Xmobar/X11/Bitmap.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Xmobar/X11/Bitmap.hs b/src/Xmobar/X11/Bitmap.hs index 2aea470..026cd5c 100644 --- a/src/Xmobar/X11/Bitmap.hs +++ b/src/Xmobar/X11/Bitmap.hs @@ -53,8 +53,9 @@ data Bitmap = Bitmap { width :: Dimension , bitmapType :: BitmapType } -updateCache :: Display -> Window -> Map FilePath Bitmap -> FilePath -> - [[(Widget, TextRenderInfo, Int, Maybe [Action])]] -> IO (Map FilePath Bitmap) +updateCache :: Display -> Window -> Map FilePath Bitmap -> FilePath + -> [[(Widget, TextRenderInfo, Int, Maybe [Action])]] + -> IO (Map FilePath Bitmap) updateCache dpy win cache iconRoot ps = do let paths = map (\(Icon p, _, _, _) -> p) . concatMap (filter icons) $ ps icons (Icon _, _, _, _) = True |