diff options
| author | Markus Scherer <markus.f.scherer@gmail.com> | 2015-01-08 21:47:45 +0600 |
|---|---|---|
| committer | Markus Scherer <markus.f.scherer@gmail.com> | 2015-01-08 21:47:45 +0600 |
| commit | ee2b41303756bdfaa8955a1e1fd55396dda936b0 (patch) | |
| tree | 4c856e0569da29b97129da4f701e17c2df830b15 /src/Bitmap.hs | |
| parent | 2fea6b75d9dafe437c47e5f813e09bba03832c48 (diff) | |
| download | xmobar-ee2b41303756bdfaa8955a1e1fd55396dda936b0.tar.gz xmobar-ee2b41303756bdfaa8955a1e1fd55396dda936b0.tar.bz2 | |
Support for multiple fonts
Diffstat (limited to 'src/Bitmap.hs')
| -rw-r--r-- | src/Bitmap.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Bitmap.hs b/src/Bitmap.hs index ec99ad8..55ee42f 100644 --- a/src/Bitmap.hs +++ b/src/Bitmap.hs @@ -54,10 +54,10 @@ data Bitmap = Bitmap { width :: Dimension } updateCache :: Display -> Window -> Map FilePath Bitmap -> FilePath -> - [[(Widget, String, Maybe [Action])]] -> IO (Map FilePath Bitmap) + [[(Widget, String, 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 + let paths = map (\(Icon p, _, _, _) -> p) . concatMap (filter icons) $ ps + icons (Icon _, _, _, _) = True icons _ = False expandPath path@('/':_) = path expandPath path@('.':'/':_) = path |