From 5a1e48ec83f31447831d99aaf4429275ab416216 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sun, 3 Feb 2013 22:00:37 +0100 Subject: Slight hlinting --- src/Bitmap.hs | 2 +- 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 -- cgit v1.2.3