poppler 0.12.1 → 0.12.2
raw patch · 2 files changed
+4/−6 lines, 2 files
Files
- Graphics/UI/Gtk/Poppler/Page.chs +3/−5
- poppler.cabal +1/−1
Graphics/UI/Gtk/Poppler/Page.chs view
@@ -175,11 +175,9 @@ mapM peekPopplerRectangle list -- | Retrieves the contents of the specified selection as text.-pageGetText :: PageClass page => page -> SelectionStyle -> PopplerRectangle- -> IO String -- ^ returns selection string-pageGetText page style rect = - with rect $ \ rectPtr ->- {#call poppler_page_get_text #} (toPage page) ((fromIntegral . fromEnum) style) (castPtr rectPtr)+pageGetText :: PageClass page => page -> IO String -- ^ returns selection string+pageGetText page = + {#call poppler_page_get_text #} (toPage page) >>= peekUTFString -- | Returns the duration of page
poppler.cabal view
@@ -1,5 +1,5 @@ Name: poppler-Version: 0.12.1+Version: 0.12.2 License: GPL-2 License-file: COPYING Copyright: (c) 2001-2010 The Gtk2Hs Team