diff options
| author | jao <jao@gnu.org> | 2014-09-18 07:23:55 +0200 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2014-09-18 07:23:55 +0200 |
| commit | c5cca595526a51b10db2896f9facfede049fa4e1 (patch) | |
| tree | 6700369076d3197d093acb502d5d071e70f00e0e /src/XUtil.hsc | |
| parent | 044c25fa934a4b93ef7011dc87dba2fc30e1f22f (diff) | |
| download | xmobar-c5cca595526a51b10db2896f9facfede049fa4e1.tar.gz xmobar-c5cca595526a51b10db2896f9facfede049fa4e1.tar.bz2 | |
Linting of the multixft patch
Diffstat (limited to 'src/XUtil.hsc')
| -rw-r--r-- | src/XUtil.hsc | 6 |
1 files changed, 3 insertions, 3 deletions
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 |