diff options
| author | jao <jao@gnu.org> | 2017-04-29 02:09:24 +0200 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2017-04-29 02:09:24 +0200 |
| commit | e41fd61bdeac8779fa24050cc0d44714f7c90f1d (patch) | |
| tree | f724480c121a1246c942ed913f167fa71a9e2564 /src/MinXft.hsc | |
| parent | 938a8d8307c1c4794c5fcf269c587c3c5c5e70df (diff) | |
| download | xmobar-e41fd61bdeac8779fa24050cc0d44714f7c90f1d.tar.gz xmobar-e41fd61bdeac8779fa24050cc0d44714f7c90f1d.tar.bz2 | |
hlint configuration
Diffstat (limited to 'src/MinXft.hsc')
| -rw-r--r-- | src/MinXft.hsc | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/MinXft.hsc b/src/MinXft.hsc index 148efe7..b64a8b8 100644 --- a/src/MinXft.hsc +++ b/src/MinXft.hsc @@ -1,7 +1,7 @@ ------------------------------------------------------------------------------ -- | -- Module: MinXft --- Copyright: (c) 2012, 2014, 2015 Jose Antonio Ortega Ruiz +-- Copyright: (c) 2012, 2014, 2015, 2017 Jose Antonio Ortega Ruiz -- (c) Clemens Fruhwirth <clemens@endorphin.org> 2007 -- License: BSD3-style (see LICENSE) -- @@ -179,7 +179,7 @@ drawXftString' d c fs x y string = do mapM_ (\(f, s, _, xo, yo) -> drawXftString d c f (x+xo) (y+yo) s) chunks -- Split string and determine fonts/offsets for individual parts -getChunks :: Display -> [AXftFont] -> [Char] -> +getChunks :: Display -> [AXftFont] -> String -> IO [(AXftFont, String, XGlyphInfo, Integer, Integer)] getChunks disp fts str = do chunks <- getFonts disp fts str @@ -253,7 +253,7 @@ instance Storable XRenderPictureAttributes where sizeOf _ = #{size XRenderPictureAttributes} alignment _ = alignment (undefined :: CInt) peek _ = return XRenderPictureAttributes - poke p XRenderPictureAttributes = do + poke p XRenderPictureAttributes = memset p 0 #{size XRenderPictureAttributes} -- | Convenience function, gives us an XRender handle to a traditional |