diff options
| author | jao <jao@gnu.org> | 2017-04-29 02:09:24 +0200 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2017-04-29 02:09:24 +0200 |
| commit | e41fd61bdeac8779fa24050cc0d44714f7c90f1d (patch) | |
| tree | f724480c121a1246c942ed913f167fa71a9e2564 /src/Bitmap.hs | |
| parent | 938a8d8307c1c4794c5fcf269c587c3c5c5e70df (diff) | |
| download | xmobar-e41fd61bdeac8779fa24050cc0d44714f7c90f1d.tar.gz xmobar-e41fd61bdeac8779fa24050cc0d44714f7c90f1d.tar.bz2 | |
hlint configuration
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 |