Guest User

Untitled

a guest
May 24th, 2018
95
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.27 KB | None | 0 0
  1. getPixbufSizeString :: MonadIO m => Maybe Gdk.Pixbuf -> m String
  2. getPixbufSizeString =
  3. maybe (return "Nothing") $ \pixbuf -> do
  4. width <- Gdk.pixbufGetWidth pixbuf
  5. height <- Gdk.pixbufGetWidth pixbuf
  6. return $ printf "Pixbuf - w: %s h: %s" (show width) (show height)
Add Comment
Please, Sign In to add comment