diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2013-02-03 22:00:37 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2013-02-03 22:00:37 +0100 |
| commit | 5a1e48ec83f31447831d99aaf4429275ab416216 (patch) | |
| tree | 2d5b299d8a38ae6cbf01c0827fcd1ca181b33af9 /src | |
| parent | dc601c199d55a568902b653566cef49c488e415f (diff) | |
| download | xmobar-5a1e48ec83f31447831d99aaf4429275ab416216.tar.gz xmobar-5a1e48ec83f31447831d99aaf4429275ab416216.tar.bz2 | |
Slight hlinting
Diffstat (limited to 'src')
| -rw-r--r-- | src/Bitmap.hs | 2 | ||||
| -rw-r--r-- | src/XUtil.hsc | 4 |
2 files changed, 2 insertions, 4 deletions
diff --git a/src/Bitmap.hs b/src/Bitmap.hs index 3479e28..c512ff2 100644 --- a/src/Bitmap.hs +++ b/src/Bitmap.hs @@ -60,4 +60,4 @@ drawBitmap d p gc fc bc x y i = h = height i setForeground d gc fc' setBackground d gc bc' - copyPlane d (pixmap i) p gc 0 0 w h x (y - (fromIntegral h)) 1 + copyPlane d (pixmap i) p gc 0 0 w h x (y - fromIntegral h) 1 diff --git a/src/XUtil.hsc b/src/XUtil.hsc index 164a309..353d158 100644 --- a/src/XUtil.hsc +++ b/src/XUtil.hsc @@ -2,7 +2,7 @@ ----------------------------------------------------------------------------- -- | -- Module : XUtil --- Copyright : (C) 2011, 2012 Jose Antonio Ortega Ruiz +-- Copyright : (C) 2011, 2012, 2013 Jose Antonio Ortega Ruiz -- (C) 2007 Andrea Rossato -- License : BSD3 -- @@ -32,8 +32,6 @@ import Control.Concurrent import Control.Monad.Trans import Control.Exception (SomeException, handle) import Foreign --- import Foreign.C.Types -import Data.Foldable (forM_) import Graphics.X11.Xlib hiding (textExtents, textWidth) import qualified Graphics.X11.Xlib as Xlib (textExtents, textWidth) import Graphics.X11.Xlib.Extras |