From ae96068742055dd6237693a9f7d6c8c7704221bd Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@ing.unitn.it>
Date: Wed, 10 Feb 2010 14:52:12 +0100
Subject: fix issue 7

Ignore-this: 97784bd32e2fba31eb1a54f24f57f702b04a067d

darcs-hash:20100210135212-d6583-c0ab23a1e93516e8572d437c2fd0d76136c843d0.gz
---
 XUtil.hsc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/XUtil.hsc b/XUtil.hsc
index afdc782..4f6fda2 100644
--- a/XUtil.hsc
+++ b/XUtil.hsc
@@ -176,7 +176,7 @@ printString dpy drw fs@(Xft font) gc fc bc x y s = do
                              (fi $ a + d)
     withXftDraw dpy drw visual colormap $
       \draw -> withXftColorName dpy visual colormap fc $
-      \color -> xftDrawString draw color font x y s
+      \color -> xftDrawString draw color font x (y - 2) s
 #endif
 
 data DynPixel = DynPixel { allocated :: Bool
-- 
cgit v1.2.3