diff options
| -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 |