diff options
Diffstat (limited to 'src/Bitmap.hs')
| -rw-r--r-- | src/Bitmap.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/Bitmap.hs b/src/Bitmap.hs index 0f0c746..1acc0b7 100644 --- a/src/Bitmap.hs +++ b/src/Bitmap.hs @@ -2,7 +2,7 @@ ----------------------------------------------------------------------------- -- | -- Module : Bitmap --- Copyright : (C) 2013, 2015 Alexander Polakov +-- Copyright : (C) 2013, 2015, 2017 Alexander Polakov -- License : BSD3 -- -- Maintainer : jao@gnu.org @@ -86,8 +86,7 @@ loadBitmap d w p = do exist <- doesFileExist p if exist then do - res <- runExceptT $ - tryXBM + res <- runExceptT $ tryXBM #ifdef XPM <|> tryXPM #endif @@ -121,7 +120,7 @@ drawBitmap d p gc fc bc x y i = y' = 1 + y - fromIntegral h `div` 2 setForeground d gc fc' setBackground d gc bc' - case (shapePixmap i) of + case shapePixmap i of Nothing -> return () Just mask -> setClipOrigin d gc x y' >> setClipMask d gc mask case bitmapType i of |