summaryrefslogtreecommitdiffhomepage
path: root/src
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2013-02-03 22:00:37 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2013-02-03 22:00:37 +0100
commit5a1e48ec83f31447831d99aaf4429275ab416216 (patch)
tree2d5b299d8a38ae6cbf01c0827fcd1ca181b33af9 /src
parentdc601c199d55a568902b653566cef49c488e415f (diff)
downloadxmobar-5a1e48ec83f31447831d99aaf4429275ab416216.tar.gz
xmobar-5a1e48ec83f31447831d99aaf4429275ab416216.tar.bz2
Slight hlinting
Diffstat (limited to 'src')
-rw-r--r--src/Bitmap.hs2
-rw-r--r--src/XUtil.hsc4
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