diff options
| author | Alexander Polakov <plhk@sdf.org> | 2013-02-04 03:17:50 +0400 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2013-02-04 01:23:18 +0100 |
| commit | 3a7859e2147e714471717d4dcb58d9a19c24cb88 (patch) | |
| tree | 6e7cb6721fe2c665056723cab218137b0bd39bf1 /src/XGraphic.hs | |
| parent | 2991a3c18b00bb41197e6a688c4ce07ad52057c0 (diff) | |
| download | xmobar-3a7859e2147e714471717d4dcb58d9a19c24cb88.tar.gz xmobar-3a7859e2147e714471717d4dcb58d9a19c24cb88.tar.bz2 | |
Handle XReadBitmapFile errors
Diffstat (limited to 'src/XGraphic.hs')
| -rw-r--r-- | src/XGraphic.hs | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/src/XGraphic.hs b/src/XGraphic.hs index 9343580..416177f 100644 --- a/src/XGraphic.hs +++ b/src/XGraphic.hs @@ -22,7 +22,7 @@ import Foreign.C -- | interface to the X11 library function @XWriteBitmapFile@. readBitmapFile :: Display -> Drawable -> String - -> IO (Dimension, Dimension, Pixmap, Maybe CInt, Maybe CInt) + -> IO (Either String (Dimension, Dimension, Pixmap, Maybe CInt, Maybe CInt)) readBitmapFile display d filename = withCString filename $ \ c_filename -> alloca $ \ width_return -> @@ -30,7 +30,7 @@ readBitmapFile display d filename = alloca $ \ bitmap_return -> alloca $ \ x_hot_return -> alloca $ \ y_hot_return -> do - _ <- xReadBitmapFile display d c_filename width_return height_return + rv <- xReadBitmapFile display d c_filename width_return height_return bitmap_return x_hot_return y_hot_return width <- peek width_return height <- peek height_return @@ -41,7 +41,12 @@ readBitmapFile display d filename = | otherwise = Just x_hot m_y_hot | y_hot == -1 = Nothing | otherwise = Just y_hot - return (fromIntegral width, fromIntegral height, bitmap, m_x_hot, m_y_hot) + case rv of + 0 -> return $ Right (fromIntegral width, fromIntegral height, bitmap, m_x_hot, m_y_hot) + 1 -> return $ Left "readBitmapFile: BitmapOpenFailed" + 2 -> return $ Left "readBitmapFile: BitmapFileInvalid" + 3 -> return $ Left "readBitmapFile: BitmapNoMemory" + _ -> return $ Left "readBitmapFile: BitmapUnknownError" foreign import ccall unsafe "X11/Xlib.h XReadBitmapFile" xReadBitmapFile :: Display -> Drawable -> CString -> Ptr CInt -> Ptr CInt -> Ptr Pixmap -> Ptr CInt -> Ptr CInt -> IO CInt |