From 83243937b55862136a0d41303d318d07e51db982 Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@ing.unitn.it>
Date: Thu, 9 Apr 2009 13:38:19 +0200
Subject: trailing space and variable name for the XFT version of printString

Ignore-this: f39d8322665f04683ec99758d290cf49

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

(limited to 'XUtil.hsc')

diff --git a/XUtil.hsc b/XUtil.hsc
index fc0e7b9..0ea39a8 100644
--- a/XUtil.hsc
+++ b/XUtil.hsc
@@ -164,7 +164,7 @@ printString dpy drw fs@(Xft font) gc fc bc x y s = do
   let screen   = defaultScreenOfDisplay dpy
       colormap = defaultColormapOfScreen screen
       visual   = defaultVisualOfScreen screen
-  withColors d [bc] $ \[bcolor] -> do
+  withColors dpy [bc] $ \[bcolor] -> do
     (a,d)  <- textExtents fs s
     gi     <- xftTextExtents dpy font s
     setForeground dpy gc bcolor
-- 
cgit v1.2.3