From c5cca595526a51b10db2896f9facfede049fa4e1 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Thu, 18 Sep 2014 07:23:55 +0200
Subject: Linting of the multixft patch

---
 src/XUtil.hsc | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/XUtil.hsc')

diff --git a/src/XUtil.hsc b/src/XUtil.hsc
index b1611d6..1217452 100644
--- a/src/XUtil.hsc
+++ b/src/XUtil.hsc
@@ -2,7 +2,7 @@
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  XUtil
--- Copyright   :  (C) 2011, 2012, 2013 Jose Antonio Ortega Ruiz
+-- Copyright   :  (C) 2011, 2012, 2013, 2014 Jose Antonio Ortega Ruiz
 --                (C) 2007 Andrea Rossato
 -- License     :  BSD3
 --
@@ -124,7 +124,7 @@ initXftFont d s = do
   let fontNames = wordsBy (== ',') (drop 4 s)
   fonts <- mapM openFont fontNames
   return fonts
-  where 
+  where
     openFont fontName = do
         f <- openAXftFont d (defaultScreenOfDisplay d) fontName
         addFinalizer f (closeAXftFont d f)
@@ -185,7 +185,7 @@ printString dpy drw fs@(Xft fonts) _ fc bc x y s = do
                           (y - (a + d) + 1)
                           (xglyphinfo_xOff gi)
                           (a + d)) >>
-    (drawXftString' draw fc' fonts x (y - 2) s)
+    (drawXftString' draw fc' fonts (toInteger x) (toInteger (y - 2)) s)
 #endif
 
 
-- 
cgit v1.2.3