diff options
| author | jao <jao@gnu.org> | 2022-09-19 02:26:50 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-09-19 02:26:50 +0100 |
| commit | c7681d79108f6e03f5adc33ebb96f14cf9b83f16 (patch) | |
| tree | dab5b80419a2862e18f7df7ff3b6a31bdedfc1ad /src/Xmobar/X11/Bitmap.hs | |
| parent | 44e407836e1437bd1f78edc4980eeb9fe42399b6 (diff) | |
| download | xmobar-c7681d79108f6e03f5adc33ebb96f14cf9b83f16.tar.gz xmobar-c7681d79108f6e03f5adc33ebb96f14cf9b83f16.tar.bz2 | |
wee refactoring (more types in X11.Types)
Diffstat (limited to 'src/Xmobar/X11/Bitmap.hs')
| -rw-r--r-- | src/Xmobar/X11/Bitmap.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Xmobar/X11/Bitmap.hs b/src/Xmobar/X11/Bitmap.hs index 027462d..220741e 100644 --- a/src/Xmobar/X11/Bitmap.hs +++ b/src/Xmobar/X11/Bitmap.hs @@ -113,7 +113,7 @@ loadBitmap d w p = do drawBitmap :: Display -> Drawable -> GC -> String -> String -> Position -> Position -> Bitmap -> IO () drawBitmap d p gc fc bc x y i = - withColors d [fc, bc] $ \[fc', bc'] -> do + withColors d [fc, bc] $ \[fc', bc'] -> do let w = width i h = height i y' = 1 + y - fromIntegral h `div` 2 |