summaryrefslogtreecommitdiffhomepage
path: root/src/XUtil.hsc
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2014-12-30 01:12:28 +0100
committerjao <jao@gnu.org>2014-12-30 01:30:26 +0100
commitf55fd96a34f9e59b56f8abb109c04dd120bf7161 (patch)
tree463c599d6e1338e8613b8a7c808151b11570db66 /src/XUtil.hsc
parent584ff68d9ede856b36b75467b0ca2eb6d9e03ab4 (diff)
downloadxmobar-f55fd96a34f9e59b56f8abb109c04dd120bf7161.tar.gz
xmobar-f55fd96a34f9e59b56f8abb109c04dd120bf7161.tar.bz2
Linting and defaults
Diffstat (limited to 'src/XUtil.hsc')
-rw-r--r--src/XUtil.hsc6
1 files changed, 2 insertions, 4 deletions
diff --git a/src/XUtil.hsc b/src/XUtil.hsc
index e333a22..2e7e361 100644
--- a/src/XUtil.hsc
+++ b/src/XUtil.hsc
@@ -205,10 +205,8 @@ printString d p (Utf8 fs) gc fc bc x y s =
io $ wcDrawImageString d p fs gc x y s
#ifdef XFT
-printString dpy drw fs@(Xft fonts) _ fc bc x y s = do
- (a,d) <- textExtents fs s
- gi <- xftTxtExtents' dpy fonts s
- withDrawingColors dpy drw fc bc $ \draw -> \fc' -> \bc' ->
+printString dpy drw (Xft fonts) _ fc bc x y s = do
+ withDrawingColors dpy drw fc bc $ \draw -> \fc' -> \_ ->
(drawXftString' draw fc' fonts (toInteger x) (toInteger (y - 2)) s)
#endif