gi-poppler 0.18.15 → 0.18.17

raw patch · 116 files changed

+34870/−10 lines, 116 filesdep ~haskell-gidep ~haskell-gi-basePVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: haskell-gi, haskell-gi-base

API changes (from Hackage documentation)

Files

• ChangeLog.md +8/−0
• GI/Poppler.hs +60/−0
• GI/Poppler/Callbacks.hs +249/−0
• GI/Poppler/Constants.hs +126/−0
• GI/Poppler/Enums.hs +3034/−0
• GI/Poppler/Enums.hs-boot +153/−0
• GI/Poppler/Flags.hs +465/−0
• GI/Poppler/Flags.hs-boot +48/−0
• GI/Poppler/Functions.hs +234/−0
• GI/Poppler/Objects.hs +81/−0
• GI/Poppler/Objects/Annot.hs +701/−0
• GI/Poppler/Objects/Annot.hs-boot +65/−0
• GI/Poppler/Objects/AnnotCircle.hs +302/−0
• GI/Poppler/Objects/AnnotCircle.hs-boot +35/−0
• GI/Poppler/Objects/AnnotFileAttachment.hs +249/−0
• GI/Poppler/Objects/AnnotFileAttachment.hs-boot +35/−0
• GI/Poppler/Objects/AnnotFreeText.hs +246/−0
• GI/Poppler/Objects/AnnotFreeText.hs-boot +35/−0
• GI/Poppler/Objects/AnnotLine.hs +265/−0
• GI/Poppler/Objects/AnnotLine.hs-boot +32/−0
• GI/Poppler/Objects/AnnotMarkup.hs +804/−0
• GI/Poppler/Objects/AnnotMarkup.hs-boot +71/−0
• GI/Poppler/Objects/AnnotMovie.hs +234/−0
• GI/Poppler/Objects/AnnotMovie.hs-boot +35/−0
• GI/Poppler/Objects/AnnotScreen.hs +186/−0
• GI/Poppler/Objects/AnnotScreen.hs-boot +32/−0
• GI/Poppler/Objects/AnnotSquare.hs +302/−0
• GI/Poppler/Objects/AnnotSquare.hs-boot +35/−0
• GI/Poppler/Objects/AnnotText.hs +463/−0
• GI/Poppler/Objects/AnnotText.hs-boot +44/−0
• GI/Poppler/Objects/AnnotTextMarkup.hs +470/−0
• GI/Poppler/Objects/AnnotTextMarkup.hs-boot +35/−0
• GI/Poppler/Objects/Attachment.hs +239/−0
• GI/Poppler/Objects/Attachment.hs-boot +35/−0
• GI/Poppler/Objects/Document.hs +3473/−0
• GI/Poppler/Objects/Document.hs-boot +212/−0
• GI/Poppler/Objects/FontInfo.hs +273/−0
• GI/Poppler/Objects/FontInfo.hs-boot +35/−0
• GI/Poppler/Objects/FormField.hs +1624/−0
• GI/Poppler/Objects/FormField.hs-boot +128/−0
• GI/Poppler/Objects/Layer.hs +400/−0
• GI/Poppler/Objects/Layer.hs-boot +47/−0
• GI/Poppler/Objects/Media.hs +388/−0
• GI/Poppler/Objects/Media.hs-boot +44/−0
• GI/Poppler/Objects/Movie.hs +313/−0
• GI/Poppler/Objects/Movie.hs-boot +41/−0
• GI/Poppler/Objects/PSFile.hs +313/−0
• GI/Poppler/Objects/PSFile.hs-boot +38/−0
• GI/Poppler/Objects/Page.hs +2057/−0
• GI/Poppler/Objects/Page.hs-boot +125/−0
• GI/Poppler/Objects/StructureElement.hs +2827/−0
• GI/Poppler/Objects/StructureElement.hs-boot +194/−0
• GI/Poppler/Structs.hs +95/−0
• GI/Poppler/Structs/ActionAny.hs +220/−0
• GI/Poppler/Structs/ActionAny.hs-boot +26/−0
• GI/Poppler/Structs/ActionGotoDest.hs +292/−0
• GI/Poppler/Structs/ActionGotoDest.hs-boot +26/−0
• GI/Poppler/Structs/ActionGotoRemote.hs +363/−0
• GI/Poppler/Structs/ActionGotoRemote.hs-boot +26/−0
• GI/Poppler/Structs/ActionJavascript.hs +291/−0
• GI/Poppler/Structs/ActionJavascript.hs-boot +26/−0
• GI/Poppler/Structs/ActionLaunch.hs +362/−0
• GI/Poppler/Structs/ActionLaunch.hs-boot +26/−0
• GI/Poppler/Structs/ActionLayer.hs +218/−0
• GI/Poppler/Structs/ActionLayer.hs-boot +26/−0
• GI/Poppler/Structs/ActionMovie.hs +349/−0
• GI/Poppler/Structs/ActionMovie.hs-boot +26/−0
• GI/Poppler/Structs/ActionNamed.hs +291/−0
• GI/Poppler/Structs/ActionNamed.hs-boot +26/−0
• GI/Poppler/Structs/ActionOCGState.hs +289/−0
• GI/Poppler/Structs/ActionOCGState.hs-boot +26/−0
• GI/Poppler/Structs/ActionRendition.hs +347/−0
• GI/Poppler/Structs/ActionRendition.hs-boot +26/−0
• GI/Poppler/Structs/ActionUri.hs +291/−0
• GI/Poppler/Structs/ActionUri.hs-boot +26/−0
• GI/Poppler/Structs/AnnotCalloutLine.hs +615/−0
• GI/Poppler/Structs/AnnotCalloutLine.hs-boot +32/−0
• GI/Poppler/Structs/AnnotMapping.hs +331/−0
• GI/Poppler/Structs/AnnotMapping.hs-boot +32/−0
• GI/Poppler/Structs/Color.hs +380/−0
• GI/Poppler/Structs/Color.hs-boot +32/−0
• GI/Poppler/Structs/Dest.hs +824/−0
• GI/Poppler/Structs/Dest.hs-boot +32/−0
• GI/Poppler/Structs/FontsIter.hs +575/−0
• GI/Poppler/Structs/FontsIter.hs-boot +59/−0
• GI/Poppler/Structs/FormFieldMapping.hs +331/−0
• GI/Poppler/Structs/FormFieldMapping.hs-boot +32/−0
• GI/Poppler/Structs/ImageMapping.hs +314/−0
• GI/Poppler/Structs/ImageMapping.hs-boot +32/−0
• GI/Poppler/Structs/IndexIter.hs +421/−0
• GI/Poppler/Structs/IndexIter.hs-boot +44/−0
• GI/Poppler/Structs/LayersIter.hs +405/−0
• GI/Poppler/Structs/LayersIter.hs-boot +44/−0
• GI/Poppler/Structs/LinkMapping.hs +331/−0
• GI/Poppler/Structs/LinkMapping.hs-boot +32/−0
• GI/Poppler/Structs/PageTransition.hs +677/−0
• GI/Poppler/Structs/PageTransition.hs-boot +32/−0
• GI/Poppler/Structs/Point.hs +335/−0
• GI/Poppler/Structs/Point.hs-boot +32/−0
• GI/Poppler/Structs/Quadrilateral.hs +396/−0
• GI/Poppler/Structs/Quadrilateral.hs-boot +32/−0
• GI/Poppler/Structs/Rectangle.hs +443/−0
• GI/Poppler/Structs/Rectangle.hs-boot +32/−0
• GI/Poppler/Structs/StructureElementIter.hs +386/−0
• GI/Poppler/Structs/StructureElementIter.hs-boot +41/−0
• GI/Poppler/Structs/TextAttributes.hs +561/−0
• GI/Poppler/Structs/TextAttributes.hs-boot +32/−0
• GI/Poppler/Structs/TextSpan.hs +452/−0
• GI/Poppler/Structs/TextSpan.hs-boot +50/−0
• GI/Poppler/Unions.hs +41/−0
• GI/Poppler/Unions/Action.hs +680/−0
• GI/Poppler/Unions/Action.hs-boot +32/−0
• LICENSE +14/−0
• README.md +1/−1
• gi-poppler.cabal +68/−8
• stack.yaml +1/−1

@@ -1,3 +1,11 @@+### 0.18.17+++ Update to haskell-gi(-base) 0.22++### 0.18.16+++ Update stack version to 12.10+ ### 0.18.15  + Remove enable-overloading flags, and use instead explicit CPP checks for 'haskell-gi-overloading-1.0', see [how to disable overloading](https://github.com/haskell-gi/haskell-gi/wiki/Overloading\#disabling-overloading).

@@ -0,0 +1,60 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.Poppler+    (     module GI.Poppler.Callbacks             ,+    module GI.Poppler.Constants             ,+    module GI.Poppler.Enums                 ,+    module GI.Poppler.Flags                 ,+    module GI.Poppler.Functions             ,+    module GI.Poppler.Objects               ,+    module GI.Poppler.Structs               ,+    module GI.Poppler.Unions                ,++++    module Data.GI.Base                     ,+++    ) where++import GI.Poppler.Callbacks+import GI.Poppler.Constants+import GI.Poppler.Enums+import GI.Poppler.Flags+import GI.Poppler.Functions+import GI.Poppler.Objects+import GI.Poppler.Structs+import GI.Poppler.Unions++import Data.GI.Base.ShortPrelude+import qualified Data.GI.Base.ShortPrelude as SP+import qualified Data.GI.Base.Overloading as O+import qualified Prelude as P++import qualified Data.GI.Base.Attributes as GI.Attributes+import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr+import qualified Data.GI.Base.GClosure as B.GClosure+import qualified Data.GI.Base.GError as B.GError+import qualified Data.GI.Base.GVariant as B.GVariant+import qualified Data.GI.Base.GValue as B.GValue+import qualified Data.GI.Base.GParamSpec as B.GParamSpec+import qualified Data.GI.Base.CallStack as B.CallStack+import qualified Data.GI.Base.Properties as B.Properties+import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map+import qualified Foreign.Ptr as FP+import qualified GHC.OverloadedLabels as OL+++import Data.GI.Base+

@@ -0,0 +1,249 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.Poppler.Callbacks+    ( ++ -- * Signals+-- ** AttachmentSaveFunc #signal:AttachmentSaveFunc#++    AttachmentSaveFunc                      ,+    AttachmentSaveFunc_WithClosures         ,+    C_AttachmentSaveFunc                    ,+    drop_closures_AttachmentSaveFunc        ,+    dynamic_AttachmentSaveFunc              ,+    mk_AttachmentSaveFunc                   ,+    noAttachmentSaveFunc                    ,+    noAttachmentSaveFunc_WithClosures       ,+++-- ** MediaSaveFunc #signal:MediaSaveFunc#++    C_MediaSaveFunc                         ,+    MediaSaveFunc                           ,+    MediaSaveFunc_WithClosures              ,+    drop_closures_MediaSaveFunc             ,+    dynamic_MediaSaveFunc                   ,+    mk_MediaSaveFunc                        ,+    noMediaSaveFunc                         ,+    noMediaSaveFunc_WithClosures            ,+++++    ) where++import Data.GI.Base.ShortPrelude+import qualified Data.GI.Base.ShortPrelude as SP+import qualified Data.GI.Base.Overloading as O+import qualified Prelude as P++import qualified Data.GI.Base.Attributes as GI.Attributes+import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr+import qualified Data.GI.Base.GClosure as B.GClosure+import qualified Data.GI.Base.GError as B.GError+import qualified Data.GI.Base.GVariant as B.GVariant+import qualified Data.GI.Base.GValue as B.GValue+import qualified Data.GI.Base.GParamSpec as B.GParamSpec+import qualified Data.GI.Base.CallStack as B.CallStack+import qualified Data.GI.Base.Properties as B.Properties+import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map+import qualified Foreign.Ptr as FP+import qualified GHC.OverloadedLabels as OL+++-- callback MediaSaveFunc+--          -> Callable {returnType = Just (TBasicType TBoolean), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Just "%TRUE if successful, %FALSE (with @error set) if failed.", sinceVersion = Nothing}, args = [Arg {argCName = "buf", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "buffer containing\n  bytes to be written.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "number of bytes in @buf.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data passed to poppler_media_save_to_callback()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = True, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "Specifies the type of the function passed to\npoppler_media_save_to_callback().  It is called once for each block of\nbytes that is \"written\" by poppler_media_save_to_callback().  If\nsuccessful it should return %TRUE.  If an error occurs it should set\n@error and return %FALSE, in which case poppler_media_save_to_callback()\nwill fail with the same error.", sinceVersion = Just "0.14"}}+-- | Type for the callback on the (unwrapped) C side.+type C_MediaSaveFunc =+    Ptr Word8 ->+    Word64 ->+    Ptr () ->+    Ptr (Ptr GError) ->+    IO CInt++-- Args : [Arg {argCName = "buf", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "buffer containing\n  bytes to be written.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "number of bytes in @buf.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data passed to poppler_media_save_to_callback()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : [Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "number of bytes in @buf.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- returnType : Just (TBasicType TBoolean)+-- throws : True+-- Skip return : False++foreign import ccall "dynamic" __dynamic_C_MediaSaveFunc :: FunPtr C_MediaSaveFunc -> C_MediaSaveFunc++-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.+dynamic_MediaSaveFunc ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    FunPtr C_MediaSaveFunc+    -> ByteString+    {- ^ /@buf@/: buffer containing+  bytes to be written. -}+    -> Ptr ()+    {- ^ /@data@/: user data passed to 'GI.Poppler.Objects.Media.mediaSaveToCallback' -}+    -> m ()+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}+dynamic_MediaSaveFunc __funPtr buf data_ = liftIO $ do+    let count = fromIntegral $ B.length buf+    buf' <- packByteString buf+    onException (do+        _ <- propagateGError $ (__dynamic_C_MediaSaveFunc __funPtr) buf' count data_+        freeMem buf'+        return ()+     ) (do+        freeMem buf'+     )++-- | Generate a function pointer callable from C code, from a `C_MediaSaveFunc`.+foreign import ccall "wrapper"+    mk_MediaSaveFunc :: C_MediaSaveFunc -> IO (FunPtr C_MediaSaveFunc)++{- |+Specifies the type of the function passed to+'GI.Poppler.Objects.Media.mediaSaveToCallback'.  It is called once for each block of+bytes that is \"written\" by 'GI.Poppler.Objects.Media.mediaSaveToCallback'.  If+successful it should return 'True'.  If an error occurs it should set+/@error@/ and return 'False', in which case 'GI.Poppler.Objects.Media.mediaSaveToCallback'+will fail with the same error.++/Since: 0.14/+-}+type MediaSaveFunc =+    ByteString+    {- ^ /@buf@/: buffer containing+  bytes to be written. -}+    -> IO ()+    {- ^ __Returns:__ 'True' if successful, 'False' (with /@error@/ set) if failed. /(Can throw 'Data.GI.Base.GError.GError')/ -}++-- | A convenience synonym for @`Nothing` :: `Maybe` `MediaSaveFunc`@.+noMediaSaveFunc :: Maybe MediaSaveFunc+noMediaSaveFunc = Nothing++{- |+Specifies the type of the function passed to+'GI.Poppler.Objects.Media.mediaSaveToCallback'.  It is called once for each block of+bytes that is \"written\" by 'GI.Poppler.Objects.Media.mediaSaveToCallback'.  If+successful it should return 'True'.  If an error occurs it should set+/@error@/ and return 'False', in which case 'GI.Poppler.Objects.Media.mediaSaveToCallback'+will fail with the same error.++/Since: 0.14/+-}+type MediaSaveFunc_WithClosures =+    ByteString+    {- ^ /@buf@/: buffer containing+  bytes to be written. -}+    -> Ptr ()+    {- ^ /@data@/: user data passed to 'GI.Poppler.Objects.Media.mediaSaveToCallback' -}+    -> IO ()+    {- ^ __Returns:__ 'True' if successful, 'False' (with /@error@/ set) if failed. /(Can throw 'Data.GI.Base.GError.GError')/ -}++-- | A convenience synonym for @`Nothing` :: `Maybe` `MediaSaveFunc_WithClosures`@.+noMediaSaveFunc_WithClosures :: Maybe MediaSaveFunc_WithClosures+noMediaSaveFunc_WithClosures = Nothing++-- | A simple wrapper that ignores the closure arguments.+drop_closures_MediaSaveFunc :: MediaSaveFunc -> MediaSaveFunc_WithClosures+drop_closures_MediaSaveFunc _f buf _ = _f buf++-- No Haskell->C wrapper generated since the function throws.++-- callback AttachmentSaveFunc+--          -> Callable {returnType = Just (TBasicType TBoolean), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Just "%TRUE if successful, %FALSE (with @error set) if failed.", sinceVersion = Nothing}, args = [Arg {argCName = "buf", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "buffer containing\n  bytes to be written.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "number of bytes in @buf.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data passed to poppler_attachment_save_to_callback()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = True, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "Specifies the type of the function passed to\npoppler_attachment_save_to_callback().  It is called once for each block of\nbytes that is \"written\" by poppler_attachment_save_to_callback().  If\nsuccessful it should return %TRUE.  If an error occurs it should set\n@error and return %FALSE, in which case poppler_attachment_save_to_callback()\nwill fail with the same error.", sinceVersion = Nothing}}+-- | Type for the callback on the (unwrapped) C side.+type C_AttachmentSaveFunc =+    Ptr Word8 ->+    Word64 ->+    Ptr () ->+    Ptr (Ptr GError) ->+    IO CInt++-- Args : [Arg {argCName = "buf", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "buffer containing\n  bytes to be written.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "number of bytes in @buf.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data passed to poppler_attachment_save_to_callback()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : [Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "number of bytes in @buf.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- returnType : Just (TBasicType TBoolean)+-- throws : True+-- Skip return : False++foreign import ccall "dynamic" __dynamic_C_AttachmentSaveFunc :: FunPtr C_AttachmentSaveFunc -> C_AttachmentSaveFunc++-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.+dynamic_AttachmentSaveFunc ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    FunPtr C_AttachmentSaveFunc+    -> ByteString+    {- ^ /@buf@/: buffer containing+  bytes to be written. -}+    -> Ptr ()+    {- ^ /@data@/: user data passed to 'GI.Poppler.Objects.Attachment.attachmentSaveToCallback' -}+    -> m ()+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}+dynamic_AttachmentSaveFunc __funPtr buf data_ = liftIO $ do+    let count = fromIntegral $ B.length buf+    buf' <- packByteString buf+    onException (do+        _ <- propagateGError $ (__dynamic_C_AttachmentSaveFunc __funPtr) buf' count data_+        freeMem buf'+        return ()+     ) (do+        freeMem buf'+     )++-- | Generate a function pointer callable from C code, from a `C_AttachmentSaveFunc`.+foreign import ccall "wrapper"+    mk_AttachmentSaveFunc :: C_AttachmentSaveFunc -> IO (FunPtr C_AttachmentSaveFunc)++{- |+Specifies the type of the function passed to+'GI.Poppler.Objects.Attachment.attachmentSaveToCallback'.  It is called once for each block of+bytes that is \"written\" by 'GI.Poppler.Objects.Attachment.attachmentSaveToCallback'.  If+successful it should return 'True'.  If an error occurs it should set+/@error@/ and return 'False', in which case 'GI.Poppler.Objects.Attachment.attachmentSaveToCallback'+will fail with the same error.+-}+type AttachmentSaveFunc =+    ByteString+    {- ^ /@buf@/: buffer containing+  bytes to be written. -}+    -> IO ()+    {- ^ __Returns:__ 'True' if successful, 'False' (with /@error@/ set) if failed. /(Can throw 'Data.GI.Base.GError.GError')/ -}++-- | A convenience synonym for @`Nothing` :: `Maybe` `AttachmentSaveFunc`@.+noAttachmentSaveFunc :: Maybe AttachmentSaveFunc+noAttachmentSaveFunc = Nothing++{- |+Specifies the type of the function passed to+'GI.Poppler.Objects.Attachment.attachmentSaveToCallback'.  It is called once for each block of+bytes that is \"written\" by 'GI.Poppler.Objects.Attachment.attachmentSaveToCallback'.  If+successful it should return 'True'.  If an error occurs it should set+/@error@/ and return 'False', in which case 'GI.Poppler.Objects.Attachment.attachmentSaveToCallback'+will fail with the same error.+-}+type AttachmentSaveFunc_WithClosures =+    ByteString+    {- ^ /@buf@/: buffer containing+  bytes to be written. -}+    -> Ptr ()+    {- ^ /@data@/: user data passed to 'GI.Poppler.Objects.Attachment.attachmentSaveToCallback' -}+    -> IO ()+    {- ^ __Returns:__ 'True' if successful, 'False' (with /@error@/ set) if failed. /(Can throw 'Data.GI.Base.GError.GError')/ -}++-- | A convenience synonym for @`Nothing` :: `Maybe` `AttachmentSaveFunc_WithClosures`@.+noAttachmentSaveFunc_WithClosures :: Maybe AttachmentSaveFunc_WithClosures+noAttachmentSaveFunc_WithClosures = Nothing++-- | A simple wrapper that ignores the closure arguments.+drop_closures_AttachmentSaveFunc :: AttachmentSaveFunc -> AttachmentSaveFunc_WithClosures+drop_closures_AttachmentSaveFunc _f buf _ = _f buf++-- No Haskell->C wrapper generated since the function throws.++

@@ -0,0 +1,126 @@+{-# LANGUAGE PatternSynonyms, ScopedTypeVariables, ViewPatterns #-}+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.Poppler.Constants+    ( +    pattern MINOR_VERSION                   ,+    pattern MICRO_VERSION                   ,+    pattern MAJOR_VERSION                   ,+    pattern HAS_CAIRO                       ,+    pattern ANNOT_TEXT_ICON_PARAGRAPH       ,+    pattern ANNOT_TEXT_ICON_NOTE            ,+    pattern ANNOT_TEXT_ICON_NEW_PARAGRAPH   ,+    pattern ANNOT_TEXT_ICON_KEY             ,+    pattern ANNOT_TEXT_ICON_INSERT          ,+    pattern ANNOT_TEXT_ICON_HELP            ,+    pattern ANNOT_TEXT_ICON_CROSS           ,+    pattern ANNOT_TEXT_ICON_COMMENT         ,+    pattern ANNOT_TEXT_ICON_CIRCLE          ,++    ) where++import Data.GI.Base.ShortPrelude+import qualified Data.GI.Base.ShortPrelude as SP+import qualified Data.GI.Base.Overloading as O+import qualified Prelude as P++import qualified Data.GI.Base.Attributes as GI.Attributes+import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr+import qualified Data.GI.Base.GClosure as B.GClosure+import qualified Data.GI.Base.GError as B.GError+import qualified Data.GI.Base.GVariant as B.GVariant+import qualified Data.GI.Base.GValue as B.GValue+import qualified Data.GI.Base.GParamSpec as B.GParamSpec+import qualified Data.GI.Base.CallStack as B.CallStack+import qualified Data.GI.Base.Properties as B.Properties+import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map+import qualified Foreign.Ptr as FP+import qualified GHC.OverloadedLabels as OL+++{- |+The major version number of the poppler header files (e.g. in poppler version+0.1.2 this is 1.)++/Since: 0.12/+-}+pattern MINOR_VERSION = 73 :: Int32++{- |+The micro version number of the poppler header files (e.g. in poppler version+0.1.2 this is 2.)++/Since: 0.12/+-}+pattern MICRO_VERSION = 0 :: Int32++{- |+The major version number of the poppler header files (e.g. in poppler version+0.1.2 this is 0.)++/Since: 0.12/+-}+pattern MAJOR_VERSION = 0 :: Int32++{- |+Defined if poppler was compiled with cairo support.+-}+pattern HAS_CAIRO = 1 :: Int32++{- |+/No description available in the introspection data./+-}+pattern ANNOT_TEXT_ICON_PARAGRAPH = "Paragraph" :: T.Text++{- |+/No description available in the introspection data./+-}+pattern ANNOT_TEXT_ICON_NOTE = "Note" :: T.Text++{- |+/No description available in the introspection data./+-}+pattern ANNOT_TEXT_ICON_NEW_PARAGRAPH = "NewParagraph" :: T.Text++{- |+/No description available in the introspection data./+-}+pattern ANNOT_TEXT_ICON_KEY = "Key" :: T.Text++{- |+/No description available in the introspection data./+-}+pattern ANNOT_TEXT_ICON_INSERT = "Insert" :: T.Text++{- |+/No description available in the introspection data./+-}+pattern ANNOT_TEXT_ICON_HELP = "Help" :: T.Text++{- |+/No description available in the introspection data./+-}+pattern ANNOT_TEXT_ICON_CROSS = "Cross" :: T.Text++{- |+/No description available in the introspection data./+-}+pattern ANNOT_TEXT_ICON_COMMENT = "Comment" :: T.Text++{- |+/No description available in the introspection data./+-}+pattern ANNOT_TEXT_ICON_CIRCLE = "Circle" :: T.Text++

@@ -0,0 +1,3034 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.Poppler.Enums+    ( ++ -- * Enumerations+-- ** ActionLayerAction #enum:ActionLayerAction#++    ActionLayerAction(..)                   ,+++-- ** ActionMovieOperation #enum:ActionMovieOperation#++    ActionMovieOperation(..)                ,+++-- ** ActionType #enum:ActionType#++    ActionType(..)                          ,+++-- ** AdditionalActionType #enum:AdditionalActionType#++    AdditionalActionType(..)                ,+++-- ** AnnotExternalDataType #enum:AnnotExternalDataType#++    AnnotExternalDataType(..)               ,+++-- ** AnnotFreeTextQuadding #enum:AnnotFreeTextQuadding#++    AnnotFreeTextQuadding(..)               ,+++-- ** AnnotMarkupReplyType #enum:AnnotMarkupReplyType#++    AnnotMarkupReplyType(..)                ,+++-- ** AnnotTextState #enum:AnnotTextState#++    AnnotTextState(..)                      ,+++-- ** AnnotType #enum:AnnotType#++    AnnotType(..)                           ,+++-- ** Backend #enum:Backend#++    Backend(..)                             ,+++-- ** DestType #enum:DestType#++    DestType(..)                            ,+++-- ** Error #enum:Error#++    Error(..)                               ,+    catchError                              ,+    handleError                             ,+++-- ** FontType #enum:FontType#++    FontType(..)                            ,+++-- ** FormButtonType #enum:FormButtonType#++    FormButtonType(..)                      ,+++-- ** FormChoiceType #enum:FormChoiceType#++    FormChoiceType(..)                      ,+++-- ** FormFieldType #enum:FormFieldType#++    FormFieldType(..)                       ,+++-- ** FormTextType #enum:FormTextType#++    FormTextType(..)                        ,+++-- ** MoviePlayMode #enum:MoviePlayMode#++    MoviePlayMode(..)                       ,+++-- ** PDFConformance #enum:PDFConformance#++    PDFConformance(..)                      ,+++-- ** PDFPart #enum:PDFPart#++    PDFPart(..)                             ,+++-- ** PDFSubtype #enum:PDFSubtype#++    PDFSubtype(..)                          ,+++-- ** PageLayout #enum:PageLayout#++    PageLayout(..)                          ,+++-- ** PageMode #enum:PageMode#++    PageMode(..)                            ,+++-- ** PageTransitionAlignment #enum:PageTransitionAlignment#++    PageTransitionAlignment(..)             ,+++-- ** PageTransitionDirection #enum:PageTransitionDirection#++    PageTransitionDirection(..)             ,+++-- ** PageTransitionType #enum:PageTransitionType#++    PageTransitionType(..)                  ,+++-- ** PrintScaling #enum:PrintScaling#++    PrintScaling(..)                        ,+++-- ** SelectionStyle #enum:SelectionStyle#++    SelectionStyle(..)                      ,+++-- ** StructureBlockAlign #enum:StructureBlockAlign#++    StructureBlockAlign(..)                 ,+++-- ** StructureBorderStyle #enum:StructureBorderStyle#++    StructureBorderStyle(..)                ,+++-- ** StructureElementKind #enum:StructureElementKind#++    StructureElementKind(..)                ,+++-- ** StructureFormRole #enum:StructureFormRole#++    StructureFormRole(..)                   ,+++-- ** StructureFormState #enum:StructureFormState#++    StructureFormState(..)                  ,+++-- ** StructureGlyphOrientation #enum:StructureGlyphOrientation#++    StructureGlyphOrientation(..)           ,+++-- ** StructureInlineAlign #enum:StructureInlineAlign#++    StructureInlineAlign(..)                ,+++-- ** StructureListNumbering #enum:StructureListNumbering#++    StructureListNumbering(..)              ,+++-- ** StructurePlacement #enum:StructurePlacement#++    StructurePlacement(..)                  ,+++-- ** StructureRubyAlign #enum:StructureRubyAlign#++    StructureRubyAlign(..)                  ,+++-- ** StructureRubyPosition #enum:StructureRubyPosition#++    StructureRubyPosition(..)               ,+++-- ** StructureTableScope #enum:StructureTableScope#++    StructureTableScope(..)                 ,+++-- ** StructureTextAlign #enum:StructureTextAlign#++    StructureTextAlign(..)                  ,+++-- ** StructureTextDecoration #enum:StructureTextDecoration#++    StructureTextDecoration(..)             ,+++-- ** StructureWritingMode #enum:StructureWritingMode#++    StructureWritingMode(..)                ,+++++    ) where++import Data.GI.Base.ShortPrelude+import qualified Data.GI.Base.ShortPrelude as SP+import qualified Data.GI.Base.Overloading as O+import qualified Prelude as P++import qualified Data.GI.Base.Attributes as GI.Attributes+import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr+import qualified Data.GI.Base.GClosure as B.GClosure+import qualified Data.GI.Base.GError as B.GError+import qualified Data.GI.Base.GVariant as B.GVariant+import qualified Data.GI.Base.GValue as B.GValue+import qualified Data.GI.Base.GParamSpec as B.GParamSpec+import qualified Data.GI.Base.CallStack as B.CallStack+import qualified Data.GI.Base.Properties as B.Properties+import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map+import qualified Foreign.Ptr as FP+import qualified GHC.OverloadedLabels as OL+++-- Enum StructureWritingMode+{- |+/No description available in the introspection data./+-}+data StructureWritingMode = +      StructureWritingModeLrTb+    {- ^+    /No description available in the introspection data./+    -}+    | StructureWritingModeRlTb+    {- ^+    /No description available in the introspection data./+    -}+    | StructureWritingModeTbRl+    {- ^+    /No description available in the introspection data./+    -}+    | AnotherStructureWritingMode Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum StructureWritingMode where+    fromEnum StructureWritingModeLrTb = 0+    fromEnum StructureWritingModeRlTb = 1+    fromEnum StructureWritingModeTbRl = 2+    fromEnum (AnotherStructureWritingMode k) = k++    toEnum 0 = StructureWritingModeLrTb+    toEnum 1 = StructureWritingModeRlTb+    toEnum 2 = StructureWritingModeTbRl+    toEnum k = AnotherStructureWritingMode k++instance P.Ord StructureWritingMode where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_structure_writing_mode_get_type" c_poppler_structure_writing_mode_get_type :: +    IO GType++instance BoxedEnum StructureWritingMode where+    boxedEnumType _ = c_poppler_structure_writing_mode_get_type++-- Enum StructureTextDecoration+{- |+/No description available in the introspection data./+-}+data StructureTextDecoration = +      StructureTextDecorationNone+    {- ^+    /No description available in the introspection data./+    -}+    | StructureTextDecorationUnderline+    {- ^+    /No description available in the introspection data./+    -}+    | StructureTextDecorationOverline+    {- ^+    /No description available in the introspection data./+    -}+    | StructureTextDecorationLinethrough+    {- ^+    /No description available in the introspection data./+    -}+    | AnotherStructureTextDecoration Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum StructureTextDecoration where+    fromEnum StructureTextDecorationNone = 0+    fromEnum StructureTextDecorationUnderline = 1+    fromEnum StructureTextDecorationOverline = 2+    fromEnum StructureTextDecorationLinethrough = 3+    fromEnum (AnotherStructureTextDecoration k) = k++    toEnum 0 = StructureTextDecorationNone+    toEnum 1 = StructureTextDecorationUnderline+    toEnum 2 = StructureTextDecorationOverline+    toEnum 3 = StructureTextDecorationLinethrough+    toEnum k = AnotherStructureTextDecoration k++instance P.Ord StructureTextDecoration where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_structure_text_decoration_get_type" c_poppler_structure_text_decoration_get_type :: +    IO GType++instance BoxedEnum StructureTextDecoration where+    boxedEnumType _ = c_poppler_structure_text_decoration_get_type++-- Enum StructureTextAlign+{- |+/No description available in the introspection data./+-}+data StructureTextAlign = +      StructureTextAlignStart+    {- ^+    /No description available in the introspection data./+    -}+    | StructureTextAlignCenter+    {- ^+    /No description available in the introspection data./+    -}+    | StructureTextAlignEnd+    {- ^+    /No description available in the introspection data./+    -}+    | StructureTextAlignJustify+    {- ^+    /No description available in the introspection data./+    -}+    | AnotherStructureTextAlign Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum StructureTextAlign where+    fromEnum StructureTextAlignStart = 0+    fromEnum StructureTextAlignCenter = 1+    fromEnum StructureTextAlignEnd = 2+    fromEnum StructureTextAlignJustify = 3+    fromEnum (AnotherStructureTextAlign k) = k++    toEnum 0 = StructureTextAlignStart+    toEnum 1 = StructureTextAlignCenter+    toEnum 2 = StructureTextAlignEnd+    toEnum 3 = StructureTextAlignJustify+    toEnum k = AnotherStructureTextAlign k++instance P.Ord StructureTextAlign where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_structure_text_align_get_type" c_poppler_structure_text_align_get_type :: +    IO GType++instance BoxedEnum StructureTextAlign where+    boxedEnumType _ = c_poppler_structure_text_align_get_type++-- Enum StructureTableScope+{- |+/No description available in the introspection data./+-}+data StructureTableScope = +      StructureTableScopeRow+    {- ^+    /No description available in the introspection data./+    -}+    | StructureTableScopeColumn+    {- ^+    /No description available in the introspection data./+    -}+    | StructureTableScopeBoth+    {- ^+    /No description available in the introspection data./+    -}+    | AnotherStructureTableScope Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum StructureTableScope where+    fromEnum StructureTableScopeRow = 0+    fromEnum StructureTableScopeColumn = 1+    fromEnum StructureTableScopeBoth = 2+    fromEnum (AnotherStructureTableScope k) = k++    toEnum 0 = StructureTableScopeRow+    toEnum 1 = StructureTableScopeColumn+    toEnum 2 = StructureTableScopeBoth+    toEnum k = AnotherStructureTableScope k++instance P.Ord StructureTableScope where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_structure_table_scope_get_type" c_poppler_structure_table_scope_get_type :: +    IO GType++instance BoxedEnum StructureTableScope where+    boxedEnumType _ = c_poppler_structure_table_scope_get_type++-- Enum StructureRubyPosition+{- |+/No description available in the introspection data./+-}+data StructureRubyPosition = +      StructureRubyPositionBefore+    {- ^+    /No description available in the introspection data./+    -}+    | StructureRubyPositionAfter+    {- ^+    /No description available in the introspection data./+    -}+    | StructureRubyPositionWarichu+    {- ^+    /No description available in the introspection data./+    -}+    | StructureRubyPositionInline+    {- ^+    /No description available in the introspection data./+    -}+    | AnotherStructureRubyPosition Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum StructureRubyPosition where+    fromEnum StructureRubyPositionBefore = 0+    fromEnum StructureRubyPositionAfter = 1+    fromEnum StructureRubyPositionWarichu = 2+    fromEnum StructureRubyPositionInline = 3+    fromEnum (AnotherStructureRubyPosition k) = k++    toEnum 0 = StructureRubyPositionBefore+    toEnum 1 = StructureRubyPositionAfter+    toEnum 2 = StructureRubyPositionWarichu+    toEnum 3 = StructureRubyPositionInline+    toEnum k = AnotherStructureRubyPosition k++instance P.Ord StructureRubyPosition where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_structure_ruby_position_get_type" c_poppler_structure_ruby_position_get_type :: +    IO GType++instance BoxedEnum StructureRubyPosition where+    boxedEnumType _ = c_poppler_structure_ruby_position_get_type++-- Enum StructureRubyAlign+{- |+/No description available in the introspection data./+-}+data StructureRubyAlign = +      StructureRubyAlignStart+    {- ^+    /No description available in the introspection data./+    -}+    | StructureRubyAlignCenter+    {- ^+    /No description available in the introspection data./+    -}+    | StructureRubyAlignEnd+    {- ^+    /No description available in the introspection data./+    -}+    | StructureRubyAlignJustify+    {- ^+    /No description available in the introspection data./+    -}+    | StructureRubyAlignDistribute+    {- ^+    /No description available in the introspection data./+    -}+    | AnotherStructureRubyAlign Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum StructureRubyAlign where+    fromEnum StructureRubyAlignStart = 0+    fromEnum StructureRubyAlignCenter = 1+    fromEnum StructureRubyAlignEnd = 2+    fromEnum StructureRubyAlignJustify = 3+    fromEnum StructureRubyAlignDistribute = 4+    fromEnum (AnotherStructureRubyAlign k) = k++    toEnum 0 = StructureRubyAlignStart+    toEnum 1 = StructureRubyAlignCenter+    toEnum 2 = StructureRubyAlignEnd+    toEnum 3 = StructureRubyAlignJustify+    toEnum 4 = StructureRubyAlignDistribute+    toEnum k = AnotherStructureRubyAlign k++instance P.Ord StructureRubyAlign where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_structure_ruby_align_get_type" c_poppler_structure_ruby_align_get_type :: +    IO GType++instance BoxedEnum StructureRubyAlign where+    boxedEnumType _ = c_poppler_structure_ruby_align_get_type++-- Enum StructurePlacement+{- |+/No description available in the introspection data./+-}+data StructurePlacement = +      StructurePlacementBlock+    {- ^+    /No description available in the introspection data./+    -}+    | StructurePlacementInline+    {- ^+    /No description available in the introspection data./+    -}+    | StructurePlacementBefore+    {- ^+    /No description available in the introspection data./+    -}+    | StructurePlacementStart+    {- ^+    /No description available in the introspection data./+    -}+    | StructurePlacementEnd+    {- ^+    /No description available in the introspection data./+    -}+    | AnotherStructurePlacement Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum StructurePlacement where+    fromEnum StructurePlacementBlock = 0+    fromEnum StructurePlacementInline = 1+    fromEnum StructurePlacementBefore = 2+    fromEnum StructurePlacementStart = 3+    fromEnum StructurePlacementEnd = 4+    fromEnum (AnotherStructurePlacement k) = k++    toEnum 0 = StructurePlacementBlock+    toEnum 1 = StructurePlacementInline+    toEnum 2 = StructurePlacementBefore+    toEnum 3 = StructurePlacementStart+    toEnum 4 = StructurePlacementEnd+    toEnum k = AnotherStructurePlacement k++instance P.Ord StructurePlacement where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_structure_placement_get_type" c_poppler_structure_placement_get_type :: +    IO GType++instance BoxedEnum StructurePlacement where+    boxedEnumType _ = c_poppler_structure_placement_get_type++-- Enum StructureListNumbering+{- |+/No description available in the introspection data./+-}+data StructureListNumbering = +      StructureListNumberingNone+    {- ^+    /No description available in the introspection data./+    -}+    | StructureListNumberingDisc+    {- ^+    /No description available in the introspection data./+    -}+    | StructureListNumberingCircle+    {- ^+    /No description available in the introspection data./+    -}+    | StructureListNumberingSquare+    {- ^+    /No description available in the introspection data./+    -}+    | StructureListNumberingDecimal+    {- ^+    /No description available in the introspection data./+    -}+    | StructureListNumberingUpperRoman+    {- ^+    /No description available in the introspection data./+    -}+    | StructureListNumberingLowerRoman+    {- ^+    /No description available in the introspection data./+    -}+    | StructureListNumberingUpperAlpha+    {- ^+    /No description available in the introspection data./+    -}+    | StructureListNumberingLowerAlpha+    {- ^+    /No description available in the introspection data./+    -}+    | AnotherStructureListNumbering Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum StructureListNumbering where+    fromEnum StructureListNumberingNone = 0+    fromEnum StructureListNumberingDisc = 1+    fromEnum StructureListNumberingCircle = 2+    fromEnum StructureListNumberingSquare = 3+    fromEnum StructureListNumberingDecimal = 4+    fromEnum StructureListNumberingUpperRoman = 5+    fromEnum StructureListNumberingLowerRoman = 6+    fromEnum StructureListNumberingUpperAlpha = 7+    fromEnum StructureListNumberingLowerAlpha = 8+    fromEnum (AnotherStructureListNumbering k) = k++    toEnum 0 = StructureListNumberingNone+    toEnum 1 = StructureListNumberingDisc+    toEnum 2 = StructureListNumberingCircle+    toEnum 3 = StructureListNumberingSquare+    toEnum 4 = StructureListNumberingDecimal+    toEnum 5 = StructureListNumberingUpperRoman+    toEnum 6 = StructureListNumberingLowerRoman+    toEnum 7 = StructureListNumberingUpperAlpha+    toEnum 8 = StructureListNumberingLowerAlpha+    toEnum k = AnotherStructureListNumbering k++instance P.Ord StructureListNumbering where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_structure_list_numbering_get_type" c_poppler_structure_list_numbering_get_type :: +    IO GType++instance BoxedEnum StructureListNumbering where+    boxedEnumType _ = c_poppler_structure_list_numbering_get_type++-- Enum StructureInlineAlign+{- |+/No description available in the introspection data./+-}+data StructureInlineAlign = +      StructureInlineAlignStart+    {- ^+    /No description available in the introspection data./+    -}+    | StructureInlineAlignCenter+    {- ^+    /No description available in the introspection data./+    -}+    | StructureInlineAlignEnd+    {- ^+    /No description available in the introspection data./+    -}+    | AnotherStructureInlineAlign Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum StructureInlineAlign where+    fromEnum StructureInlineAlignStart = 0+    fromEnum StructureInlineAlignCenter = 1+    fromEnum StructureInlineAlignEnd = 2+    fromEnum (AnotherStructureInlineAlign k) = k++    toEnum 0 = StructureInlineAlignStart+    toEnum 1 = StructureInlineAlignCenter+    toEnum 2 = StructureInlineAlignEnd+    toEnum k = AnotherStructureInlineAlign k++instance P.Ord StructureInlineAlign where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_structure_inline_align_get_type" c_poppler_structure_inline_align_get_type :: +    IO GType++instance BoxedEnum StructureInlineAlign where+    boxedEnumType _ = c_poppler_structure_inline_align_get_type++-- Enum StructureGlyphOrientation+{- |+/No description available in the introspection data./+-}+data StructureGlyphOrientation = +      StructureGlyphOrientationAuto+    {- ^+    /No description available in the introspection data./+    -}+    | StructureGlyphOrientation0+    {- ^+    /No description available in the introspection data./+    -}+    | StructureGlyphOrientation90+    {- ^+    /No description available in the introspection data./+    -}+    | StructureGlyphOrientation180+    {- ^+    /No description available in the introspection data./+    -}+    | StructureGlyphOrientation270+    {- ^+    /No description available in the introspection data./+    -}+    | AnotherStructureGlyphOrientation Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum StructureGlyphOrientation where+    fromEnum StructureGlyphOrientationAuto = 0+    fromEnum StructureGlyphOrientation0 = 0+    fromEnum StructureGlyphOrientation90 = 1+    fromEnum StructureGlyphOrientation180 = 2+    fromEnum StructureGlyphOrientation270 = 3+    fromEnum (AnotherStructureGlyphOrientation k) = k++    toEnum 0 = StructureGlyphOrientationAuto+    toEnum 0 = StructureGlyphOrientation0+    toEnum 1 = StructureGlyphOrientation90+    toEnum 2 = StructureGlyphOrientation180+    toEnum 3 = StructureGlyphOrientation270+    toEnum k = AnotherStructureGlyphOrientation k++instance P.Ord StructureGlyphOrientation where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_structure_glyph_orientation_get_type" c_poppler_structure_glyph_orientation_get_type :: +    IO GType++instance BoxedEnum StructureGlyphOrientation where+    boxedEnumType _ = c_poppler_structure_glyph_orientation_get_type++-- Enum StructureFormState+{- |+/No description available in the introspection data./+-}+data StructureFormState = +      StructureFormStateOn+    {- ^+    /No description available in the introspection data./+    -}+    | StructureFormStateOff+    {- ^+    /No description available in the introspection data./+    -}+    | StructureFormStateNeutral+    {- ^+    /No description available in the introspection data./+    -}+    | AnotherStructureFormState Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum StructureFormState where+    fromEnum StructureFormStateOn = 0+    fromEnum StructureFormStateOff = 1+    fromEnum StructureFormStateNeutral = 2+    fromEnum (AnotherStructureFormState k) = k++    toEnum 0 = StructureFormStateOn+    toEnum 1 = StructureFormStateOff+    toEnum 2 = StructureFormStateNeutral+    toEnum k = AnotherStructureFormState k++instance P.Ord StructureFormState where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_structure_form_state_get_type" c_poppler_structure_form_state_get_type :: +    IO GType++instance BoxedEnum StructureFormState where+    boxedEnumType _ = c_poppler_structure_form_state_get_type++-- Enum StructureFormRole+{- |+/No description available in the introspection data./+-}+data StructureFormRole = +      StructureFormRoleUndefined+    {- ^+    /No description available in the introspection data./+    -}+    | StructureFormRoleRadioButton+    {- ^+    /No description available in the introspection data./+    -}+    | StructureFormRolePushButton+    {- ^+    /No description available in the introspection data./+    -}+    | StructureFormRoleTextValue+    {- ^+    /No description available in the introspection data./+    -}+    | StructureFormRoleCheckbox+    {- ^+    /No description available in the introspection data./+    -}+    | AnotherStructureFormRole Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum StructureFormRole where+    fromEnum StructureFormRoleUndefined = 0+    fromEnum StructureFormRoleRadioButton = 1+    fromEnum StructureFormRolePushButton = 2+    fromEnum StructureFormRoleTextValue = 3+    fromEnum StructureFormRoleCheckbox = 4+    fromEnum (AnotherStructureFormRole k) = k++    toEnum 0 = StructureFormRoleUndefined+    toEnum 1 = StructureFormRoleRadioButton+    toEnum 2 = StructureFormRolePushButton+    toEnum 3 = StructureFormRoleTextValue+    toEnum 4 = StructureFormRoleCheckbox+    toEnum k = AnotherStructureFormRole k++instance P.Ord StructureFormRole where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_structure_form_role_get_type" c_poppler_structure_form_role_get_type :: +    IO GType++instance BoxedEnum StructureFormRole where+    boxedEnumType _ = c_poppler_structure_form_role_get_type++-- Enum StructureElementKind+{- |+/No description available in the introspection data./+-}+data StructureElementKind = +      StructureElementKindContent+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindObjectReference+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindDocument+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindPart+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindArticle+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindSection+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindDiv+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindSpan+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindQuote+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindNote+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindReference+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindBibentry+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindCode+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindLink+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindAnnot+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindBlockquote+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindCaption+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindNonstruct+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindToc+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindTocItem+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindIndex+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindPrivate+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindParagraph+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindHeading+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindHeading1+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindHeading2+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindHeading3+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindHeading4+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindHeading5+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindHeading6+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindList+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindListItem+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindListLabel+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindListBody+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindTable+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindTableRow+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindTableHeading+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindTableData+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindTableHeader+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindTableFooter+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindTableBody+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindRuby+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindRubyBaseText+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindRubyAnnotText+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindRubyPunctuation+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindWarichu+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindWarichuText+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindWarichuPunctuation+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindFigure+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindFormula+    {- ^+    /No description available in the introspection data./+    -}+    | StructureElementKindForm+    {- ^+    /No description available in the introspection data./+    -}+    | AnotherStructureElementKind Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum StructureElementKind where+    fromEnum StructureElementKindContent = 0+    fromEnum StructureElementKindObjectReference = 1+    fromEnum StructureElementKindDocument = 2+    fromEnum StructureElementKindPart = 3+    fromEnum StructureElementKindArticle = 4+    fromEnum StructureElementKindSection = 5+    fromEnum StructureElementKindDiv = 6+    fromEnum StructureElementKindSpan = 7+    fromEnum StructureElementKindQuote = 8+    fromEnum StructureElementKindNote = 9+    fromEnum StructureElementKindReference = 10+    fromEnum StructureElementKindBibentry = 11+    fromEnum StructureElementKindCode = 12+    fromEnum StructureElementKindLink = 13+    fromEnum StructureElementKindAnnot = 14+    fromEnum StructureElementKindBlockquote = 15+    fromEnum StructureElementKindCaption = 16+    fromEnum StructureElementKindNonstruct = 17+    fromEnum StructureElementKindToc = 18+    fromEnum StructureElementKindTocItem = 19+    fromEnum StructureElementKindIndex = 20+    fromEnum StructureElementKindPrivate = 21+    fromEnum StructureElementKindParagraph = 22+    fromEnum StructureElementKindHeading = 23+    fromEnum StructureElementKindHeading1 = 24+    fromEnum StructureElementKindHeading2 = 25+    fromEnum StructureElementKindHeading3 = 26+    fromEnum StructureElementKindHeading4 = 27+    fromEnum StructureElementKindHeading5 = 28+    fromEnum StructureElementKindHeading6 = 29+    fromEnum StructureElementKindList = 30+    fromEnum StructureElementKindListItem = 31+    fromEnum StructureElementKindListLabel = 32+    fromEnum StructureElementKindListBody = 33+    fromEnum StructureElementKindTable = 34+    fromEnum StructureElementKindTableRow = 35+    fromEnum StructureElementKindTableHeading = 36+    fromEnum StructureElementKindTableData = 37+    fromEnum StructureElementKindTableHeader = 38+    fromEnum StructureElementKindTableFooter = 39+    fromEnum StructureElementKindTableBody = 40+    fromEnum StructureElementKindRuby = 41+    fromEnum StructureElementKindRubyBaseText = 42+    fromEnum StructureElementKindRubyAnnotText = 43+    fromEnum StructureElementKindRubyPunctuation = 44+    fromEnum StructureElementKindWarichu = 45+    fromEnum StructureElementKindWarichuText = 46+    fromEnum StructureElementKindWarichuPunctuation = 47+    fromEnum StructureElementKindFigure = 48+    fromEnum StructureElementKindFormula = 49+    fromEnum StructureElementKindForm = 50+    fromEnum (AnotherStructureElementKind k) = k++    toEnum 0 = StructureElementKindContent+    toEnum 1 = StructureElementKindObjectReference+    toEnum 2 = StructureElementKindDocument+    toEnum 3 = StructureElementKindPart+    toEnum 4 = StructureElementKindArticle+    toEnum 5 = StructureElementKindSection+    toEnum 6 = StructureElementKindDiv+    toEnum 7 = StructureElementKindSpan+    toEnum 8 = StructureElementKindQuote+    toEnum 9 = StructureElementKindNote+    toEnum 10 = StructureElementKindReference+    toEnum 11 = StructureElementKindBibentry+    toEnum 12 = StructureElementKindCode+    toEnum 13 = StructureElementKindLink+    toEnum 14 = StructureElementKindAnnot+    toEnum 15 = StructureElementKindBlockquote+    toEnum 16 = StructureElementKindCaption+    toEnum 17 = StructureElementKindNonstruct+    toEnum 18 = StructureElementKindToc+    toEnum 19 = StructureElementKindTocItem+    toEnum 20 = StructureElementKindIndex+    toEnum 21 = StructureElementKindPrivate+    toEnum 22 = StructureElementKindParagraph+    toEnum 23 = StructureElementKindHeading+    toEnum 24 = StructureElementKindHeading1+    toEnum 25 = StructureElementKindHeading2+    toEnum 26 = StructureElementKindHeading3+    toEnum 27 = StructureElementKindHeading4+    toEnum 28 = StructureElementKindHeading5+    toEnum 29 = StructureElementKindHeading6+    toEnum 30 = StructureElementKindList+    toEnum 31 = StructureElementKindListItem+    toEnum 32 = StructureElementKindListLabel+    toEnum 33 = StructureElementKindListBody+    toEnum 34 = StructureElementKindTable+    toEnum 35 = StructureElementKindTableRow+    toEnum 36 = StructureElementKindTableHeading+    toEnum 37 = StructureElementKindTableData+    toEnum 38 = StructureElementKindTableHeader+    toEnum 39 = StructureElementKindTableFooter+    toEnum 40 = StructureElementKindTableBody+    toEnum 41 = StructureElementKindRuby+    toEnum 42 = StructureElementKindRubyBaseText+    toEnum 43 = StructureElementKindRubyAnnotText+    toEnum 44 = StructureElementKindRubyPunctuation+    toEnum 45 = StructureElementKindWarichu+    toEnum 46 = StructureElementKindWarichuText+    toEnum 47 = StructureElementKindWarichuPunctuation+    toEnum 48 = StructureElementKindFigure+    toEnum 49 = StructureElementKindFormula+    toEnum 50 = StructureElementKindForm+    toEnum k = AnotherStructureElementKind k++instance P.Ord StructureElementKind where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_structure_element_kind_get_type" c_poppler_structure_element_kind_get_type :: +    IO GType++instance BoxedEnum StructureElementKind where+    boxedEnumType _ = c_poppler_structure_element_kind_get_type++-- Enum StructureBorderStyle+{- |+/No description available in the introspection data./+-}+data StructureBorderStyle = +      StructureBorderStyleNone+    {- ^+    /No description available in the introspection data./+    -}+    | StructureBorderStyleHidden+    {- ^+    /No description available in the introspection data./+    -}+    | StructureBorderStyleDotted+    {- ^+    /No description available in the introspection data./+    -}+    | StructureBorderStyleDashed+    {- ^+    /No description available in the introspection data./+    -}+    | StructureBorderStyleSolid+    {- ^+    /No description available in the introspection data./+    -}+    | StructureBorderStyleDouble+    {- ^+    /No description available in the introspection data./+    -}+    | StructureBorderStyleGroove+    {- ^+    /No description available in the introspection data./+    -}+    | StructureBorderStyleInset+    {- ^+    /No description available in the introspection data./+    -}+    | StructureBorderStyleOutset+    {- ^+    /No description available in the introspection data./+    -}+    | AnotherStructureBorderStyle Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum StructureBorderStyle where+    fromEnum StructureBorderStyleNone = 0+    fromEnum StructureBorderStyleHidden = 1+    fromEnum StructureBorderStyleDotted = 2+    fromEnum StructureBorderStyleDashed = 3+    fromEnum StructureBorderStyleSolid = 4+    fromEnum StructureBorderStyleDouble = 5+    fromEnum StructureBorderStyleGroove = 6+    fromEnum StructureBorderStyleInset = 7+    fromEnum StructureBorderStyleOutset = 8+    fromEnum (AnotherStructureBorderStyle k) = k++    toEnum 0 = StructureBorderStyleNone+    toEnum 1 = StructureBorderStyleHidden+    toEnum 2 = StructureBorderStyleDotted+    toEnum 3 = StructureBorderStyleDashed+    toEnum 4 = StructureBorderStyleSolid+    toEnum 5 = StructureBorderStyleDouble+    toEnum 6 = StructureBorderStyleGroove+    toEnum 7 = StructureBorderStyleInset+    toEnum 8 = StructureBorderStyleOutset+    toEnum k = AnotherStructureBorderStyle k++instance P.Ord StructureBorderStyle where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_structure_border_style_get_type" c_poppler_structure_border_style_get_type :: +    IO GType++instance BoxedEnum StructureBorderStyle where+    boxedEnumType _ = c_poppler_structure_border_style_get_type++-- Enum StructureBlockAlign+{- |+/No description available in the introspection data./+-}+data StructureBlockAlign = +      StructureBlockAlignBefore+    {- ^+    /No description available in the introspection data./+    -}+    | StructureBlockAlignMiddle+    {- ^+    /No description available in the introspection data./+    -}+    | StructureBlockAlignAfter+    {- ^+    /No description available in the introspection data./+    -}+    | StructureBlockAlignJustify+    {- ^+    /No description available in the introspection data./+    -}+    | AnotherStructureBlockAlign Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum StructureBlockAlign where+    fromEnum StructureBlockAlignBefore = 0+    fromEnum StructureBlockAlignMiddle = 1+    fromEnum StructureBlockAlignAfter = 2+    fromEnum StructureBlockAlignJustify = 3+    fromEnum (AnotherStructureBlockAlign k) = k++    toEnum 0 = StructureBlockAlignBefore+    toEnum 1 = StructureBlockAlignMiddle+    toEnum 2 = StructureBlockAlignAfter+    toEnum 3 = StructureBlockAlignJustify+    toEnum k = AnotherStructureBlockAlign k++instance P.Ord StructureBlockAlign where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_structure_block_align_get_type" c_poppler_structure_block_align_get_type :: +    IO GType++instance BoxedEnum StructureBlockAlign where+    boxedEnumType _ = c_poppler_structure_block_align_get_type++-- Enum SelectionStyle+{- |+Selection styles+-}+data SelectionStyle = +      SelectionStyleGlyph+    {- ^+    glyph is the minimum unit for selection+    -}+    | SelectionStyleWord+    {- ^+    word is the minimum unit for selection+    -}+    | SelectionStyleLine+    {- ^+    line is the minimum unit for selection+    -}+    | AnotherSelectionStyle Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum SelectionStyle where+    fromEnum SelectionStyleGlyph = 0+    fromEnum SelectionStyleWord = 1+    fromEnum SelectionStyleLine = 2+    fromEnum (AnotherSelectionStyle k) = k++    toEnum 0 = SelectionStyleGlyph+    toEnum 1 = SelectionStyleWord+    toEnum 2 = SelectionStyleLine+    toEnum k = AnotherSelectionStyle k++instance P.Ord SelectionStyle where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_selection_style_get_type" c_poppler_selection_style_get_type :: +    IO GType++instance BoxedEnum SelectionStyle where+    boxedEnumType _ = c_poppler_selection_style_get_type++-- Enum PrintScaling+{- |+PrintScaling viewer preference++/Since: 0.73/+-}+data PrintScaling = +      PrintScalingAppDefault+    {- ^+    application\'s default page scaling+    -}+    | PrintScalingNone+    {- ^+    no page scaling+    -}+    | AnotherPrintScaling Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum PrintScaling where+    fromEnum PrintScalingAppDefault = 0+    fromEnum PrintScalingNone = 1+    fromEnum (AnotherPrintScaling k) = k++    toEnum 0 = PrintScalingAppDefault+    toEnum 1 = PrintScalingNone+    toEnum k = AnotherPrintScaling k++instance P.Ord PrintScaling where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_print_scaling_get_type" c_poppler_print_scaling_get_type :: +    IO GType++instance BoxedEnum PrintScaling where+    boxedEnumType _ = c_poppler_print_scaling_get_type++-- Enum PageTransitionType+{- |+Page transition types+-}+data PageTransitionType = +      PageTransitionTypeReplace+    {- ^+    the new page replace the old one+    -}+    | PageTransitionTypeSplit+    {- ^+    two lines sweep across the screen, revealing the new page+    -}+    | PageTransitionTypeBlinds+    {- ^+    multiple lines, evenly spaced across the screen, synchronously+    sweep in the same direction to reveal the new page+    -}+    | PageTransitionTypeBox+    {- ^+    a rectangular box sweeps inward from the edges of the page or+    outward from the center revealing the new page+    -}+    | PageTransitionTypeWipe+    {- ^+    a single line sweeps across the screen from one edge to the other+    revealing the new page+    -}+    | PageTransitionTypeDissolve+    {- ^+    the old page dissolves gradually to reveal the new one+    -}+    | PageTransitionTypeGlitter+    {- ^+    similar to @/POPPLER_PAGE_TRANSITION_DISSOLVE/@, except that the effect+    sweeps across the page in a wide band moving from one side of the screen to the other+    -}+    | PageTransitionTypeFly+    {- ^+    changes are flown out or in to or from a location that is offscreen+    -}+    | PageTransitionTypePush+    {- ^+    the old page slides off the screen while the new page slides in+    -}+    | PageTransitionTypeCover+    {- ^+    the new page slides on to the screen covering the old page+    -}+    | PageTransitionTypeUncover+    {- ^+    the old page slides off the screen uncovering the new page+    -}+    | PageTransitionTypeFade+    {- ^+    the new page gradually becomes visible through the old one+    -}+    | AnotherPageTransitionType Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum PageTransitionType where+    fromEnum PageTransitionTypeReplace = 0+    fromEnum PageTransitionTypeSplit = 1+    fromEnum PageTransitionTypeBlinds = 2+    fromEnum PageTransitionTypeBox = 3+    fromEnum PageTransitionTypeWipe = 4+    fromEnum PageTransitionTypeDissolve = 5+    fromEnum PageTransitionTypeGlitter = 6+    fromEnum PageTransitionTypeFly = 7+    fromEnum PageTransitionTypePush = 8+    fromEnum PageTransitionTypeCover = 9+    fromEnum PageTransitionTypeUncover = 10+    fromEnum PageTransitionTypeFade = 11+    fromEnum (AnotherPageTransitionType k) = k++    toEnum 0 = PageTransitionTypeReplace+    toEnum 1 = PageTransitionTypeSplit+    toEnum 2 = PageTransitionTypeBlinds+    toEnum 3 = PageTransitionTypeBox+    toEnum 4 = PageTransitionTypeWipe+    toEnum 5 = PageTransitionTypeDissolve+    toEnum 6 = PageTransitionTypeGlitter+    toEnum 7 = PageTransitionTypeFly+    toEnum 8 = PageTransitionTypePush+    toEnum 9 = PageTransitionTypeCover+    toEnum 10 = PageTransitionTypeUncover+    toEnum 11 = PageTransitionTypeFade+    toEnum k = AnotherPageTransitionType k++instance P.Ord PageTransitionType where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_page_transition_type_get_type" c_poppler_page_transition_type_get_type :: +    IO GType++instance BoxedEnum PageTransitionType where+    boxedEnumType _ = c_poppler_page_transition_type_get_type++-- Enum PageTransitionDirection+{- |+Page transition direction types for @/POPPLER_PAGE_TRANSITION_SPLIT/@,+@/POPPLER_PAGE_TRANSITION_BOX/@ and @/POPPLER_PAGE_TRANSITION_FLY/@ transition types+-}+data PageTransitionDirection = +      PageTransitionDirectionInward+    {- ^+    inward from the edges of the page+    -}+    | PageTransitionDirectionOutward+    {- ^+    outward from the center of the page+    -}+    | AnotherPageTransitionDirection Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum PageTransitionDirection where+    fromEnum PageTransitionDirectionInward = 0+    fromEnum PageTransitionDirectionOutward = 1+    fromEnum (AnotherPageTransitionDirection k) = k++    toEnum 0 = PageTransitionDirectionInward+    toEnum 1 = PageTransitionDirectionOutward+    toEnum k = AnotherPageTransitionDirection k++instance P.Ord PageTransitionDirection where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_page_transition_direction_get_type" c_poppler_page_transition_direction_get_type :: +    IO GType++instance BoxedEnum PageTransitionDirection where+    boxedEnumType _ = c_poppler_page_transition_direction_get_type++-- Enum PageTransitionAlignment+{- |+Page transition alignment types for @/POPPLER_PAGE_TRANSITION_SPLIT/@+and @/POPPLER_PAGE_TRANSITION_BLINDS/@ transition types+-}+data PageTransitionAlignment = +      PageTransitionAlignmentHorizontal+    {- ^+    horizontal dimension+    -}+    | PageTransitionAlignmentVertical+    {- ^+    vertical dimension+    -}+    | AnotherPageTransitionAlignment Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum PageTransitionAlignment where+    fromEnum PageTransitionAlignmentHorizontal = 0+    fromEnum PageTransitionAlignmentVertical = 1+    fromEnum (AnotherPageTransitionAlignment k) = k++    toEnum 0 = PageTransitionAlignmentHorizontal+    toEnum 1 = PageTransitionAlignmentVertical+    toEnum k = AnotherPageTransitionAlignment k++instance P.Ord PageTransitionAlignment where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_page_transition_alignment_get_type" c_poppler_page_transition_alignment_get_type :: +    IO GType++instance BoxedEnum PageTransitionAlignment where+    boxedEnumType _ = c_poppler_page_transition_alignment_get_type++-- Enum PageMode+{- |+Page modes+-}+data PageMode = +      PageModeUnset+    {- ^+    no specific mode set+    -}+    | PageModeNone+    {- ^+    neither document outline nor thumbnails visible+    -}+    | PageModeUseOutlines+    {- ^+    document outline visible+    -}+    | PageModeUseThumbs+    {- ^+    thumbnails visible+    -}+    | PageModeFullScreen+    {- ^+    full-screen mode+    -}+    | PageModeUseOc+    {- ^+    layers panel visible+    -}+    | PageModeUseAttachments+    {- ^+    attachments panel visible+    -}+    | AnotherPageMode Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum PageMode where+    fromEnum PageModeUnset = 0+    fromEnum PageModeNone = 1+    fromEnum PageModeUseOutlines = 2+    fromEnum PageModeUseThumbs = 3+    fromEnum PageModeFullScreen = 4+    fromEnum PageModeUseOc = 5+    fromEnum PageModeUseAttachments = 6+    fromEnum (AnotherPageMode k) = k++    toEnum 0 = PageModeUnset+    toEnum 1 = PageModeNone+    toEnum 2 = PageModeUseOutlines+    toEnum 3 = PageModeUseThumbs+    toEnum 4 = PageModeFullScreen+    toEnum 5 = PageModeUseOc+    toEnum 6 = PageModeUseAttachments+    toEnum k = AnotherPageMode k++instance P.Ord PageMode where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_page_mode_get_type" c_poppler_page_mode_get_type :: +    IO GType++instance BoxedEnum PageMode where+    boxedEnumType _ = c_poppler_page_mode_get_type++-- Enum PageLayout+{- |+Page layout types+-}+data PageLayout = +      PageLayoutUnset+    {- ^+    no specific layout set+    -}+    | PageLayoutSinglePage+    {- ^+    one page at a time+    -}+    | PageLayoutOneColumn+    {- ^+    pages in one column+    -}+    | PageLayoutTwoColumnLeft+    {- ^+    pages in two columns with odd numbered pages on the left+    -}+    | PageLayoutTwoColumnRight+    {- ^+    pages in two columns with odd numbered pages on the right+    -}+    | PageLayoutTwoPageLeft+    {- ^+    two pages at a time with odd numbered pages on the left+    -}+    | PageLayoutTwoPageRight+    {- ^+    two pages at a time with odd numbered pages on the right+    -}+    | AnotherPageLayout Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum PageLayout where+    fromEnum PageLayoutUnset = 0+    fromEnum PageLayoutSinglePage = 1+    fromEnum PageLayoutOneColumn = 2+    fromEnum PageLayoutTwoColumnLeft = 3+    fromEnum PageLayoutTwoColumnRight = 4+    fromEnum PageLayoutTwoPageLeft = 5+    fromEnum PageLayoutTwoPageRight = 6+    fromEnum (AnotherPageLayout k) = k++    toEnum 0 = PageLayoutUnset+    toEnum 1 = PageLayoutSinglePage+    toEnum 2 = PageLayoutOneColumn+    toEnum 3 = PageLayoutTwoColumnLeft+    toEnum 4 = PageLayoutTwoColumnRight+    toEnum 5 = PageLayoutTwoPageLeft+    toEnum 6 = PageLayoutTwoPageRight+    toEnum k = AnotherPageLayout k++instance P.Ord PageLayout where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_page_layout_get_type" c_poppler_page_layout_get_type :: +    IO GType++instance BoxedEnum PageLayout where+    boxedEnumType _ = c_poppler_page_layout_get_type++-- Enum PDFSubtype+{- |+PDF Subtype++/Since: 0.70/+-}+data PDFSubtype = +      PDFSubtypeUnset+    {- ^+    Null+    -}+    | PDFSubtypePdfA+    {- ^+    ISO 19005 - Document management -- Electronic document file format for long-term preservation (PDF\/A)+    -}+    | PDFSubtypePdfE+    {- ^+    ISO 24517 - Document management -- Engineering document format using PDF (PDF\/E)+    -}+    | PDFSubtypePdfUa+    {- ^+    ISO 14289 - Document management applications -- Electronic document file format enhancement for accessibility (PDF\/UA)+    -}+    | PDFSubtypePdfVt+    {- ^+    ISO 16612 - Graphic technology -- Variable data exchange (PDF\/VT)+    -}+    | PDFSubtypePdfX+    {- ^+    ISO 15930 - Graphic technology -- Prepress digital data exchange (PDF\/X)+    -}+    | PDFSubtypeNone+    {- ^+    Not compliant with the above standards+    -}+    | AnotherPDFSubtype Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum PDFSubtype where+    fromEnum PDFSubtypeUnset = 0+    fromEnum PDFSubtypePdfA = 1+    fromEnum PDFSubtypePdfE = 2+    fromEnum PDFSubtypePdfUa = 3+    fromEnum PDFSubtypePdfVt = 4+    fromEnum PDFSubtypePdfX = 5+    fromEnum PDFSubtypeNone = 6+    fromEnum (AnotherPDFSubtype k) = k++    toEnum 0 = PDFSubtypeUnset+    toEnum 1 = PDFSubtypePdfA+    toEnum 2 = PDFSubtypePdfE+    toEnum 3 = PDFSubtypePdfUa+    toEnum 4 = PDFSubtypePdfVt+    toEnum 5 = PDFSubtypePdfX+    toEnum 6 = PDFSubtypeNone+    toEnum k = AnotherPDFSubtype k++instance P.Ord PDFSubtype where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_pdf_subtype_get_type" c_poppler_pdf_subtype_get_type :: +    IO GType++instance BoxedEnum PDFSubtype where+    boxedEnumType _ = c_poppler_pdf_subtype_get_type++-- Enum PDFPart+{- |+PDF Subtype Part++/Since: 0.70/+-}+data PDFPart = +      PDFPartUnset+    {- ^+    Null+    -}+    | PDFPart1+    {- ^+    1+    -}+    | PDFPart2+    {- ^+    2+    -}+    | PDFPart3+    {- ^+    3+    -}+    | PDFPart4+    {- ^+    4+    -}+    | PDFPart5+    {- ^+    5+    -}+    | PDFPart6+    {- ^+    6+    -}+    | PDFPart7+    {- ^+    7+    -}+    | PDFPart8+    {- ^+    8+    -}+    | PDFPartNone+    {- ^+    No part available+    -}+    | AnotherPDFPart Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum PDFPart where+    fromEnum PDFPartUnset = 0+    fromEnum PDFPart1 = 1+    fromEnum PDFPart2 = 2+    fromEnum PDFPart3 = 3+    fromEnum PDFPart4 = 4+    fromEnum PDFPart5 = 5+    fromEnum PDFPart6 = 6+    fromEnum PDFPart7 = 7+    fromEnum PDFPart8 = 8+    fromEnum PDFPartNone = 9+    fromEnum (AnotherPDFPart k) = k++    toEnum 0 = PDFPartUnset+    toEnum 1 = PDFPart1+    toEnum 2 = PDFPart2+    toEnum 3 = PDFPart3+    toEnum 4 = PDFPart4+    toEnum 5 = PDFPart5+    toEnum 6 = PDFPart6+    toEnum 7 = PDFPart7+    toEnum 8 = PDFPart8+    toEnum 9 = PDFPartNone+    toEnum k = AnotherPDFPart k++instance P.Ord PDFPart where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_pdf_part_get_type" c_poppler_pdf_part_get_type :: +    IO GType++instance BoxedEnum PDFPart where+    boxedEnumType _ = c_poppler_pdf_part_get_type++-- Enum PDFConformance+{- |+PDF Subtype Conformance++/Since: 0.70/+-}+data PDFConformance = +      PDFConformanceUnset+    {- ^+    Null+    -}+    | PDFConformanceA+    {- ^+    Level A (accessible) conformance (PDF\/A)+    -}+    | PDFConformanceB+    {- ^+    Level B (basic) conformance (PDF\/A)+    -}+    | PDFConformanceG+    {- ^+    Level G (external graphical content) (PDF\/X)+    -}+    | PDFConformanceN+    {- ^+    Level N (external ICC Profile) (PDF\/X)+    -}+    | PDFConformanceP+    {- ^+    Level P (ICC Profile) (PDF\/X)+    -}+    | PDFConformancePg+    {- ^+    Level PG (conjunction of P and G) (PDF\/X)+    -}+    | PDFConformanceU+    {- ^+    Level U (Unicode) conformance (PDF\/A)+    -}+    | PDFConformanceNone+    {- ^+    No conformance level available+    -}+    | AnotherPDFConformance Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum PDFConformance where+    fromEnum PDFConformanceUnset = 0+    fromEnum PDFConformanceA = 1+    fromEnum PDFConformanceB = 2+    fromEnum PDFConformanceG = 3+    fromEnum PDFConformanceN = 4+    fromEnum PDFConformanceP = 5+    fromEnum PDFConformancePg = 6+    fromEnum PDFConformanceU = 7+    fromEnum PDFConformanceNone = 8+    fromEnum (AnotherPDFConformance k) = k++    toEnum 0 = PDFConformanceUnset+    toEnum 1 = PDFConformanceA+    toEnum 2 = PDFConformanceB+    toEnum 3 = PDFConformanceG+    toEnum 4 = PDFConformanceN+    toEnum 5 = PDFConformanceP+    toEnum 6 = PDFConformancePg+    toEnum 7 = PDFConformanceU+    toEnum 8 = PDFConformanceNone+    toEnum k = AnotherPDFConformance k++instance P.Ord PDFConformance where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_pdf_conformance_get_type" c_poppler_pdf_conformance_get_type :: +    IO GType++instance BoxedEnum PDFConformance where+    boxedEnumType _ = c_poppler_pdf_conformance_get_type++-- Enum MoviePlayMode+{- |+Play mode enum values.++/Since: 0.54/+-}+data MoviePlayMode = +      MoviePlayModeOnce+    {- ^+    the movie should be played once and controls should be closed at the end.+    -}+    | MoviePlayModeOpen+    {- ^+    the movie should be played once, but controls should be left open.+    -}+    | MoviePlayModeRepeat+    {- ^+    the movie should be played in loop, until manually stopped.+    -}+    | MoviePlayModePalindrome+    {- ^+    the movie should be played forward and backward, forward and backward,+      and so forth, until manually stopped.+    -}+    | AnotherMoviePlayMode Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum MoviePlayMode where+    fromEnum MoviePlayModeOnce = 0+    fromEnum MoviePlayModeOpen = 1+    fromEnum MoviePlayModeRepeat = 2+    fromEnum MoviePlayModePalindrome = 3+    fromEnum (AnotherMoviePlayMode k) = k++    toEnum 0 = MoviePlayModeOnce+    toEnum 1 = MoviePlayModeOpen+    toEnum 2 = MoviePlayModeRepeat+    toEnum 3 = MoviePlayModePalindrome+    toEnum k = AnotherMoviePlayMode k++instance P.Ord MoviePlayMode where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_movie_play_mode_get_type" c_poppler_movie_play_mode_get_type :: +    IO GType++instance BoxedEnum MoviePlayMode where+    boxedEnumType _ = c_poppler_movie_play_mode_get_type++-- Enum FormTextType+{- |+/No description available in the introspection data./+-}+data FormTextType = +      FormTextTypeNormal+    {- ^+    /No description available in the introspection data./+    -}+    | FormTextTypeMultiline+    {- ^+    /No description available in the introspection data./+    -}+    | FormTextTypeFileSelect+    {- ^+    /No description available in the introspection data./+    -}+    | AnotherFormTextType Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum FormTextType where+    fromEnum FormTextTypeNormal = 0+    fromEnum FormTextTypeMultiline = 1+    fromEnum FormTextTypeFileSelect = 2+    fromEnum (AnotherFormTextType k) = k++    toEnum 0 = FormTextTypeNormal+    toEnum 1 = FormTextTypeMultiline+    toEnum 2 = FormTextTypeFileSelect+    toEnum k = AnotherFormTextType k++instance P.Ord FormTextType where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_form_text_type_get_type" c_poppler_form_text_type_get_type :: +    IO GType++instance BoxedEnum FormTextType where+    boxedEnumType _ = c_poppler_form_text_type_get_type++-- Enum FormFieldType+{- |+/No description available in the introspection data./+-}+data FormFieldType = +      FormFieldTypeUnknown+    {- ^+    /No description available in the introspection data./+    -}+    | FormFieldTypeButton+    {- ^+    /No description available in the introspection data./+    -}+    | FormFieldTypeText+    {- ^+    /No description available in the introspection data./+    -}+    | FormFieldTypeChoice+    {- ^+    /No description available in the introspection data./+    -}+    | FormFieldTypeSignature+    {- ^+    /No description available in the introspection data./+    -}+    | AnotherFormFieldType Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum FormFieldType where+    fromEnum FormFieldTypeUnknown = 0+    fromEnum FormFieldTypeButton = 1+    fromEnum FormFieldTypeText = 2+    fromEnum FormFieldTypeChoice = 3+    fromEnum FormFieldTypeSignature = 4+    fromEnum (AnotherFormFieldType k) = k++    toEnum 0 = FormFieldTypeUnknown+    toEnum 1 = FormFieldTypeButton+    toEnum 2 = FormFieldTypeText+    toEnum 3 = FormFieldTypeChoice+    toEnum 4 = FormFieldTypeSignature+    toEnum k = AnotherFormFieldType k++instance P.Ord FormFieldType where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_form_field_type_get_type" c_poppler_form_field_type_get_type :: +    IO GType++instance BoxedEnum FormFieldType where+    boxedEnumType _ = c_poppler_form_field_type_get_type++-- Enum FormChoiceType+{- |+/No description available in the introspection data./+-}+data FormChoiceType = +      FormChoiceTypeCombo+    {- ^+    /No description available in the introspection data./+    -}+    | FormChoiceTypeList+    {- ^+    /No description available in the introspection data./+    -}+    | AnotherFormChoiceType Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum FormChoiceType where+    fromEnum FormChoiceTypeCombo = 0+    fromEnum FormChoiceTypeList = 1+    fromEnum (AnotherFormChoiceType k) = k++    toEnum 0 = FormChoiceTypeCombo+    toEnum 1 = FormChoiceTypeList+    toEnum k = AnotherFormChoiceType k++instance P.Ord FormChoiceType where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_form_choice_type_get_type" c_poppler_form_choice_type_get_type :: +    IO GType++instance BoxedEnum FormChoiceType where+    boxedEnumType _ = c_poppler_form_choice_type_get_type++-- Enum FormButtonType+{- |+/No description available in the introspection data./+-}+data FormButtonType = +      FormButtonTypePush+    {- ^+    /No description available in the introspection data./+    -}+    | FormButtonTypeCheck+    {- ^+    /No description available in the introspection data./+    -}+    | FormButtonTypeRadio+    {- ^+    /No description available in the introspection data./+    -}+    | AnotherFormButtonType Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum FormButtonType where+    fromEnum FormButtonTypePush = 0+    fromEnum FormButtonTypeCheck = 1+    fromEnum FormButtonTypeRadio = 2+    fromEnum (AnotherFormButtonType k) = k++    toEnum 0 = FormButtonTypePush+    toEnum 1 = FormButtonTypeCheck+    toEnum 2 = FormButtonTypeRadio+    toEnum k = AnotherFormButtonType k++instance P.Ord FormButtonType where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_form_button_type_get_type" c_poppler_form_button_type_get_type :: +    IO GType++instance BoxedEnum FormButtonType where+    boxedEnumType _ = c_poppler_form_button_type_get_type++-- Enum FontType+{- |+Font types+-}+data FontType = +      FontTypeUnknown+    {- ^+    unknown font type+    -}+    | FontTypeType1+    {- ^+    Type 1 font type+    -}+    | FontTypeType1c+    {- ^+    Type 1 font type embedded in Compact Font Format (CFF) font program+    -}+    | FontTypeType1cot+    {- ^+    Type 1 font type embedded in OpenType font program+    -}+    | FontTypeType3+    {- ^+    A font type that is defined with PDF graphics operators+    -}+    | FontTypeTruetype+    {- ^+    TrueType font type+    -}+    | FontTypeTruetypeot+    {- ^+    TrueType font type embedded in OpenType font program+    -}+    | FontTypeCidType0+    {- ^+    CIDFont type based on Type 1 font technology+    -}+    | FontTypeCidType0c+    {- ^+    CIDFont type based on Type 1 font technology embedded in CFF font program+    -}+    | FontTypeCidType0cot+    {- ^+    CIDFont type based on Type 1 font technology embedded in OpenType font program+    -}+    | FontTypeCidType2+    {- ^+    CIDFont type based on TrueType font technology+    -}+    | FontTypeCidType2ot+    {- ^+    CIDFont type based on TrueType font technology embedded in OpenType font program+    -}+    | AnotherFontType Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum FontType where+    fromEnum FontTypeUnknown = 0+    fromEnum FontTypeType1 = 1+    fromEnum FontTypeType1c = 2+    fromEnum FontTypeType1cot = 3+    fromEnum FontTypeType3 = 4+    fromEnum FontTypeTruetype = 5+    fromEnum FontTypeTruetypeot = 6+    fromEnum FontTypeCidType0 = 7+    fromEnum FontTypeCidType0c = 8+    fromEnum FontTypeCidType0cot = 9+    fromEnum FontTypeCidType2 = 10+    fromEnum FontTypeCidType2ot = 11+    fromEnum (AnotherFontType k) = k++    toEnum 0 = FontTypeUnknown+    toEnum 1 = FontTypeType1+    toEnum 2 = FontTypeType1c+    toEnum 3 = FontTypeType1cot+    toEnum 4 = FontTypeType3+    toEnum 5 = FontTypeTruetype+    toEnum 6 = FontTypeTruetypeot+    toEnum 7 = FontTypeCidType0+    toEnum 8 = FontTypeCidType0c+    toEnum 9 = FontTypeCidType0cot+    toEnum 10 = FontTypeCidType2+    toEnum 11 = FontTypeCidType2ot+    toEnum k = AnotherFontType k++instance P.Ord FontType where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_font_type_get_type" c_poppler_font_type_get_type :: +    IO GType++instance BoxedEnum FontType where+    boxedEnumType _ = c_poppler_font_type_get_type++-- Enum Error+{- |+Error codes returned by 'GI.Poppler.Objects.Document.Document'+-}+data Error = +      ErrorInvalid+    {- ^+    Generic error when a document operation fails+    -}+    | ErrorEncrypted+    {- ^+    Document is encrypted+    -}+    | ErrorOpenFile+    {- ^+    File could not be opened for writing when saving document+    -}+    | ErrorBadCatalog+    {- ^+    Failed to read the document catalog+    -}+    | ErrorDamaged+    {- ^+    Document is damaged+    -}+    | AnotherError Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum Error where+    fromEnum ErrorInvalid = 0+    fromEnum ErrorEncrypted = 1+    fromEnum ErrorOpenFile = 2+    fromEnum ErrorBadCatalog = 3+    fromEnum ErrorDamaged = 4+    fromEnum (AnotherError k) = k++    toEnum 0 = ErrorInvalid+    toEnum 1 = ErrorEncrypted+    toEnum 2 = ErrorOpenFile+    toEnum 3 = ErrorBadCatalog+    toEnum 4 = ErrorDamaged+    toEnum k = AnotherError k++instance P.Ord Error where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++instance GErrorClass Error where+    gerrorClassDomain _ = "poppler-quark"++-- | Catch exceptions of type `Error`. This is a specialized version of `Data.GI.Base.GError.catchGErrorJustDomain`.+catchError ::+    IO a ->+    (Error -> GErrorMessage -> IO a) ->+    IO a+catchError = catchGErrorJustDomain++-- | Handle exceptions of type `Error`. This is a specialized version of `Data.GI.Base.GError.handleGErrorJustDomain`.+handleError ::+    (Error -> GErrorMessage -> IO a) ->+    IO a ->+    IO a+handleError = handleGErrorJustDomain++foreign import ccall "poppler_error_get_type" c_poppler_error_get_type :: +    IO GType++instance BoxedEnum Error where+    boxedEnumType _ = c_poppler_error_get_type++-- Enum DestType+{- |+Destination types+-}+data DestType = +      DestTypeUnknown+    {- ^+    unknown destination+    -}+    | DestTypeXyz+    {- ^+    go to page with coordinates (left, top)+    positioned at the upper-left corner of the window and the contents of+    the page magnified by the factor zoom+    -}+    | DestTypeFit+    {- ^+    go to page with its contents magnified just+    enough to fit the entire page within the window both horizontally and+    vertically+    -}+    | DestTypeFith+    {- ^+    go to page with the vertical coordinate top+    positioned at the top edge of the window and the contents of the page+    magnified just enough to fit the entire width of the page within the window+    -}+    | DestTypeFitv+    {- ^+    go to page with the horizontal coordinate+    left positioned at the left edge of the window and the contents of the+    page magnified just enough to fit the entire height of the page within the window+    -}+    | DestTypeFitr+    {- ^+    go to page with its contents magnified just+    enough to fit the rectangle specified by the coordinates left, bottom,+    right, and top entirely within the window both horizontally and vertically+    -}+    | DestTypeFitb+    {- ^+    go to page with its contents magnified just enough to fit+    its bounding box entirely within the window both horizontally and vertically+    -}+    | DestTypeFitbh+    {- ^+    go to page with the vertical+    coordinate top positioned at the top edge of the window and the+    contents of the page magnified just enough to fit the entire width of its+    bounding box within the window+    -}+    | DestTypeFitbv+    {- ^+    go to page with the horizontal+    coordinate left positioned at the left edge of the window and the+    contents of the page magnified just enough to fit the entire height of its+    bounding box within the window+    -}+    | DestTypeNamed+    {- ^+    got to page specified by a name. See 'GI.Poppler.Objects.Document.documentFindDest'+    -}+    | AnotherDestType Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum DestType where+    fromEnum DestTypeUnknown = 0+    fromEnum DestTypeXyz = 1+    fromEnum DestTypeFit = 2+    fromEnum DestTypeFith = 3+    fromEnum DestTypeFitv = 4+    fromEnum DestTypeFitr = 5+    fromEnum DestTypeFitb = 6+    fromEnum DestTypeFitbh = 7+    fromEnum DestTypeFitbv = 8+    fromEnum DestTypeNamed = 9+    fromEnum (AnotherDestType k) = k++    toEnum 0 = DestTypeUnknown+    toEnum 1 = DestTypeXyz+    toEnum 2 = DestTypeFit+    toEnum 3 = DestTypeFith+    toEnum 4 = DestTypeFitv+    toEnum 5 = DestTypeFitr+    toEnum 6 = DestTypeFitb+    toEnum 7 = DestTypeFitbh+    toEnum 8 = DestTypeFitbv+    toEnum 9 = DestTypeNamed+    toEnum k = AnotherDestType k++instance P.Ord DestType where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_dest_type_get_type" c_poppler_dest_type_get_type :: +    IO GType++instance BoxedEnum DestType where+    boxedEnumType _ = c_poppler_dest_type_get_type++-- Enum Backend+{- |+Backend codes returned by 'GI.Poppler.Functions.getBackend'.+-}+data Backend = +      BackendUnknown+    {- ^+    Unknown backend+    -}+    | BackendSplash+    {- ^+    Splash backend+    -}+    | BackendCairo+    {- ^+    Cairo backend+    -}+    | AnotherBackend Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum Backend where+    fromEnum BackendUnknown = 0+    fromEnum BackendSplash = 1+    fromEnum BackendCairo = 2+    fromEnum (AnotherBackend k) = k++    toEnum 0 = BackendUnknown+    toEnum 1 = BackendSplash+    toEnum 2 = BackendCairo+    toEnum k = AnotherBackend k++instance P.Ord Backend where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_backend_get_type" c_poppler_backend_get_type :: +    IO GType++instance BoxedEnum Backend where+    boxedEnumType _ = c_poppler_backend_get_type++-- Enum AnnotType+{- |+/No description available in the introspection data./+-}+data AnnotType = +      AnnotTypeUnknown+    {- ^+    /No description available in the introspection data./+    -}+    | AnnotTypeText+    {- ^+    /No description available in the introspection data./+    -}+    | AnnotTypeLink+    {- ^+    /No description available in the introspection data./+    -}+    | AnnotTypeFreeText+    {- ^+    /No description available in the introspection data./+    -}+    | AnnotTypeLine+    {- ^+    /No description available in the introspection data./+    -}+    | AnnotTypeSquare+    {- ^+    /No description available in the introspection data./+    -}+    | AnnotTypeCircle+    {- ^+    /No description available in the introspection data./+    -}+    | AnnotTypePolygon+    {- ^+    /No description available in the introspection data./+    -}+    | AnnotTypePolyLine+    {- ^+    /No description available in the introspection data./+    -}+    | AnnotTypeHighlight+    {- ^+    /No description available in the introspection data./+    -}+    | AnnotTypeUnderline+    {- ^+    /No description available in the introspection data./+    -}+    | AnnotTypeSquiggly+    {- ^+    /No description available in the introspection data./+    -}+    | AnnotTypeStrikeOut+    {- ^+    /No description available in the introspection data./+    -}+    | AnnotTypeStamp+    {- ^+    /No description available in the introspection data./+    -}+    | AnnotTypeCaret+    {- ^+    /No description available in the introspection data./+    -}+    | AnnotTypeInk+    {- ^+    /No description available in the introspection data./+    -}+    | AnnotTypePopup+    {- ^+    /No description available in the introspection data./+    -}+    | AnnotTypeFileAttachment+    {- ^+    /No description available in the introspection data./+    -}+    | AnnotTypeSound+    {- ^+    /No description available in the introspection data./+    -}+    | AnnotTypeMovie+    {- ^+    /No description available in the introspection data./+    -}+    | AnnotTypeWidget+    {- ^+    /No description available in the introspection data./+    -}+    | AnnotTypeScreen+    {- ^+    /No description available in the introspection data./+    -}+    | AnnotTypePrinterMark+    {- ^+    /No description available in the introspection data./+    -}+    | AnnotTypeTrapNet+    {- ^+    /No description available in the introspection data./+    -}+    | AnnotTypeWatermark+    {- ^+    /No description available in the introspection data./+    -}+    | AnnotType3d+    {- ^+    /No description available in the introspection data./+    -}+    | AnotherAnnotType Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum AnnotType where+    fromEnum AnnotTypeUnknown = 0+    fromEnum AnnotTypeText = 1+    fromEnum AnnotTypeLink = 2+    fromEnum AnnotTypeFreeText = 3+    fromEnum AnnotTypeLine = 4+    fromEnum AnnotTypeSquare = 5+    fromEnum AnnotTypeCircle = 6+    fromEnum AnnotTypePolygon = 7+    fromEnum AnnotTypePolyLine = 8+    fromEnum AnnotTypeHighlight = 9+    fromEnum AnnotTypeUnderline = 10+    fromEnum AnnotTypeSquiggly = 11+    fromEnum AnnotTypeStrikeOut = 12+    fromEnum AnnotTypeStamp = 13+    fromEnum AnnotTypeCaret = 14+    fromEnum AnnotTypeInk = 15+    fromEnum AnnotTypePopup = 16+    fromEnum AnnotTypeFileAttachment = 17+    fromEnum AnnotTypeSound = 18+    fromEnum AnnotTypeMovie = 19+    fromEnum AnnotTypeWidget = 20+    fromEnum AnnotTypeScreen = 21+    fromEnum AnnotTypePrinterMark = 22+    fromEnum AnnotTypeTrapNet = 23+    fromEnum AnnotTypeWatermark = 24+    fromEnum AnnotType3d = 25+    fromEnum (AnotherAnnotType k) = k++    toEnum 0 = AnnotTypeUnknown+    toEnum 1 = AnnotTypeText+    toEnum 2 = AnnotTypeLink+    toEnum 3 = AnnotTypeFreeText+    toEnum 4 = AnnotTypeLine+    toEnum 5 = AnnotTypeSquare+    toEnum 6 = AnnotTypeCircle+    toEnum 7 = AnnotTypePolygon+    toEnum 8 = AnnotTypePolyLine+    toEnum 9 = AnnotTypeHighlight+    toEnum 10 = AnnotTypeUnderline+    toEnum 11 = AnnotTypeSquiggly+    toEnum 12 = AnnotTypeStrikeOut+    toEnum 13 = AnnotTypeStamp+    toEnum 14 = AnnotTypeCaret+    toEnum 15 = AnnotTypeInk+    toEnum 16 = AnnotTypePopup+    toEnum 17 = AnnotTypeFileAttachment+    toEnum 18 = AnnotTypeSound+    toEnum 19 = AnnotTypeMovie+    toEnum 20 = AnnotTypeWidget+    toEnum 21 = AnnotTypeScreen+    toEnum 22 = AnnotTypePrinterMark+    toEnum 23 = AnnotTypeTrapNet+    toEnum 24 = AnnotTypeWatermark+    toEnum 25 = AnnotType3d+    toEnum k = AnotherAnnotType k++instance P.Ord AnnotType where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_annot_type_get_type" c_poppler_annot_type_get_type :: +    IO GType++instance BoxedEnum AnnotType where+    boxedEnumType _ = c_poppler_annot_type_get_type++-- Enum AnnotTextState+{- |+/No description available in the introspection data./+-}+data AnnotTextState = +      AnnotTextStateMarked+    {- ^+    /No description available in the introspection data./+    -}+    | AnnotTextStateUnmarked+    {- ^+    /No description available in the introspection data./+    -}+    | AnnotTextStateAccepted+    {- ^+    /No description available in the introspection data./+    -}+    | AnnotTextStateRejected+    {- ^+    /No description available in the introspection data./+    -}+    | AnnotTextStateCancelled+    {- ^+    /No description available in the introspection data./+    -}+    | AnnotTextStateCompleted+    {- ^+    /No description available in the introspection data./+    -}+    | AnnotTextStateNone+    {- ^+    /No description available in the introspection data./+    -}+    | AnnotTextStateUnknown+    {- ^+    /No description available in the introspection data./+    -}+    | AnotherAnnotTextState Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum AnnotTextState where+    fromEnum AnnotTextStateMarked = 0+    fromEnum AnnotTextStateUnmarked = 1+    fromEnum AnnotTextStateAccepted = 2+    fromEnum AnnotTextStateRejected = 3+    fromEnum AnnotTextStateCancelled = 4+    fromEnum AnnotTextStateCompleted = 5+    fromEnum AnnotTextStateNone = 6+    fromEnum AnnotTextStateUnknown = 7+    fromEnum (AnotherAnnotTextState k) = k++    toEnum 0 = AnnotTextStateMarked+    toEnum 1 = AnnotTextStateUnmarked+    toEnum 2 = AnnotTextStateAccepted+    toEnum 3 = AnnotTextStateRejected+    toEnum 4 = AnnotTextStateCancelled+    toEnum 5 = AnnotTextStateCompleted+    toEnum 6 = AnnotTextStateNone+    toEnum 7 = AnnotTextStateUnknown+    toEnum k = AnotherAnnotTextState k++instance P.Ord AnnotTextState where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_annot_text_state_get_type" c_poppler_annot_text_state_get_type :: +    IO GType++instance BoxedEnum AnnotTextState where+    boxedEnumType _ = c_poppler_annot_text_state_get_type++-- Enum AnnotMarkupReplyType+{- |+/No description available in the introspection data./+-}+data AnnotMarkupReplyType = +      AnnotMarkupReplyTypeR+    {- ^+    /No description available in the introspection data./+    -}+    | AnnotMarkupReplyTypeGroup+    {- ^+    /No description available in the introspection data./+    -}+    | AnotherAnnotMarkupReplyType Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum AnnotMarkupReplyType where+    fromEnum AnnotMarkupReplyTypeR = 0+    fromEnum AnnotMarkupReplyTypeGroup = 1+    fromEnum (AnotherAnnotMarkupReplyType k) = k++    toEnum 0 = AnnotMarkupReplyTypeR+    toEnum 1 = AnnotMarkupReplyTypeGroup+    toEnum k = AnotherAnnotMarkupReplyType k++instance P.Ord AnnotMarkupReplyType where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_annot_markup_reply_type_get_type" c_poppler_annot_markup_reply_type_get_type :: +    IO GType++instance BoxedEnum AnnotMarkupReplyType where+    boxedEnumType _ = c_poppler_annot_markup_reply_type_get_type++-- Enum AnnotFreeTextQuadding+{- |+/No description available in the introspection data./+-}+data AnnotFreeTextQuadding = +      AnnotFreeTextQuaddingLeftJustified+    {- ^+    /No description available in the introspection data./+    -}+    | AnnotFreeTextQuaddingCentered+    {- ^+    /No description available in the introspection data./+    -}+    | AnnotFreeTextQuaddingRightJustified+    {- ^+    /No description available in the introspection data./+    -}+    | AnotherAnnotFreeTextQuadding Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum AnnotFreeTextQuadding where+    fromEnum AnnotFreeTextQuaddingLeftJustified = 0+    fromEnum AnnotFreeTextQuaddingCentered = 1+    fromEnum AnnotFreeTextQuaddingRightJustified = 2+    fromEnum (AnotherAnnotFreeTextQuadding k) = k++    toEnum 0 = AnnotFreeTextQuaddingLeftJustified+    toEnum 1 = AnnotFreeTextQuaddingCentered+    toEnum 2 = AnnotFreeTextQuaddingRightJustified+    toEnum k = AnotherAnnotFreeTextQuadding k++instance P.Ord AnnotFreeTextQuadding where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_annot_free_text_quadding_get_type" c_poppler_annot_free_text_quadding_get_type :: +    IO GType++instance BoxedEnum AnnotFreeTextQuadding where+    boxedEnumType _ = c_poppler_annot_free_text_quadding_get_type++-- Enum AnnotExternalDataType+{- |+/No description available in the introspection data./+-}+data AnnotExternalDataType = +      AnnotExternalDataType3d+    {- ^+    /No description available in the introspection data./+    -}+    | AnnotExternalDataTypeUnknown+    {- ^+    /No description available in the introspection data./+    -}+    | AnotherAnnotExternalDataType Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum AnnotExternalDataType where+    fromEnum AnnotExternalDataType3d = 0+    fromEnum AnnotExternalDataTypeUnknown = 1+    fromEnum (AnotherAnnotExternalDataType k) = k++    toEnum 0 = AnnotExternalDataType3d+    toEnum 1 = AnnotExternalDataTypeUnknown+    toEnum k = AnotherAnnotExternalDataType k++instance P.Ord AnnotExternalDataType where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_annot_external_data_type_get_type" c_poppler_annot_external_data_type_get_type :: +    IO GType++instance BoxedEnum AnnotExternalDataType where+    boxedEnumType _ = c_poppler_annot_external_data_type_get_type++-- Enum AdditionalActionType+{- |+Form field additional action types to be passed to /@popplerFormFieldGetAdditionalAction@/++/Since: 0.72/+-}+data AdditionalActionType = +      AdditionalActionTypeFieldModified+    {- ^+    The action to be performed when the user modifies the field.+    -}+    | AdditionalActionTypeFormatField+    {- ^+    The action to be performed before the field is formatted to+    display its value.+    -}+    | AdditionalActionTypeValidateField+    {- ^+    The action to be performed when the field value changes.+    -}+    | AdditionalActionTypeCalculateField+    {- ^+    The action to be performed when the field needs to be+    recalculated.+    -}+    | AnotherAdditionalActionType Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum AdditionalActionType where+    fromEnum AdditionalActionTypeFieldModified = 0+    fromEnum AdditionalActionTypeFormatField = 1+    fromEnum AdditionalActionTypeValidateField = 2+    fromEnum AdditionalActionTypeCalculateField = 3+    fromEnum (AnotherAdditionalActionType k) = k++    toEnum 0 = AdditionalActionTypeFieldModified+    toEnum 1 = AdditionalActionTypeFormatField+    toEnum 2 = AdditionalActionTypeValidateField+    toEnum 3 = AdditionalActionTypeCalculateField+    toEnum k = AnotherAdditionalActionType k++instance P.Ord AdditionalActionType where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_additional_action_type_get_type" c_poppler_additional_action_type_get_type :: +    IO GType++instance BoxedEnum AdditionalActionType where+    boxedEnumType _ = c_poppler_additional_action_type_get_type++-- Enum ActionType+{- |+Action types+-}+data ActionType = +      ActionTypeUnknown+    {- ^+    unknown action+    -}+    | ActionTypeNone+    {- ^+    no action specified+    -}+    | ActionTypeGotoDest+    {- ^+    go to destination+    -}+    | ActionTypeGotoRemote+    {- ^+    go to destination in another document+    -}+    | ActionTypeLaunch+    {- ^+    launch app (or open document+    -}+    | ActionTypeUri+    {- ^+    URI+    -}+    | ActionTypeNamed+    {- ^+    predefined action+    -}+    | ActionTypeMovie+    {- ^+    play movies. Since 0.14+    -}+    | ActionTypeRendition+    {- ^+    play multimedia content. Since 0.14+    -}+    | ActionTypeOcgState+    {- ^+    state of layer. Since 0.14+    -}+    | ActionTypeJavascript+    {- ^+    Javascript. Since 0.18+    -}+    | AnotherActionType Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum ActionType where+    fromEnum ActionTypeUnknown = 0+    fromEnum ActionTypeNone = 1+    fromEnum ActionTypeGotoDest = 2+    fromEnum ActionTypeGotoRemote = 3+    fromEnum ActionTypeLaunch = 4+    fromEnum ActionTypeUri = 5+    fromEnum ActionTypeNamed = 6+    fromEnum ActionTypeMovie = 7+    fromEnum ActionTypeRendition = 8+    fromEnum ActionTypeOcgState = 9+    fromEnum ActionTypeJavascript = 10+    fromEnum (AnotherActionType k) = k++    toEnum 0 = ActionTypeUnknown+    toEnum 1 = ActionTypeNone+    toEnum 2 = ActionTypeGotoDest+    toEnum 3 = ActionTypeGotoRemote+    toEnum 4 = ActionTypeLaunch+    toEnum 5 = ActionTypeUri+    toEnum 6 = ActionTypeNamed+    toEnum 7 = ActionTypeMovie+    toEnum 8 = ActionTypeRendition+    toEnum 9 = ActionTypeOcgState+    toEnum 10 = ActionTypeJavascript+    toEnum k = AnotherActionType k++instance P.Ord ActionType where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_action_type_get_type" c_poppler_action_type_get_type :: +    IO GType++instance BoxedEnum ActionType where+    boxedEnumType _ = c_poppler_action_type_get_type++-- Enum ActionMovieOperation+{- |+Movie operations++/Since: 0.14/+-}+data ActionMovieOperation = +      ActionMovieOperationPlay+    {- ^+    play movie+    -}+    | ActionMovieOperationPause+    {- ^+    pause playing movie+    -}+    | ActionMovieOperationResume+    {- ^+    resume paused movie+    -}+    | ActionMovieOperationStop+    {- ^+    stop playing movie+    -}+    | AnotherActionMovieOperation Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum ActionMovieOperation where+    fromEnum ActionMovieOperationPlay = 0+    fromEnum ActionMovieOperationPause = 1+    fromEnum ActionMovieOperationResume = 2+    fromEnum ActionMovieOperationStop = 3+    fromEnum (AnotherActionMovieOperation k) = k++    toEnum 0 = ActionMovieOperationPlay+    toEnum 1 = ActionMovieOperationPause+    toEnum 2 = ActionMovieOperationResume+    toEnum 3 = ActionMovieOperationStop+    toEnum k = AnotherActionMovieOperation k++instance P.Ord ActionMovieOperation where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_action_movie_operation_get_type" c_poppler_action_movie_operation_get_type :: +    IO GType++instance BoxedEnum ActionMovieOperation where+    boxedEnumType _ = c_poppler_action_movie_operation_get_type++-- Enum ActionLayerAction+{- |+Layer actions++/Since: 0.14/+-}+data ActionLayerAction = +      ActionLayerActionOn+    {- ^+    set layer visibility on+    -}+    | ActionLayerActionOff+    {- ^+    set layer visibility off+    -}+    | ActionLayerActionToggle+    {- ^+    reverse the layer visibility state+    -}+    | AnotherActionLayerAction Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum ActionLayerAction where+    fromEnum ActionLayerActionOn = 0+    fromEnum ActionLayerActionOff = 1+    fromEnum ActionLayerActionToggle = 2+    fromEnum (AnotherActionLayerAction k) = k++    toEnum 0 = ActionLayerActionOn+    toEnum 1 = ActionLayerActionOff+    toEnum 2 = ActionLayerActionToggle+    toEnum k = AnotherActionLayerAction k++instance P.Ord ActionLayerAction where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_action_layer_action_get_type" c_poppler_action_layer_action_get_type :: +    IO GType++instance BoxedEnum ActionLayerAction where+    boxedEnumType _ = c_poppler_action_layer_action_get_type++

@@ -0,0 +1,153 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.Poppler.Enums where++import Data.GI.Base.ShortPrelude+import qualified Data.GI.Base.ShortPrelude as SP+import qualified Data.GI.Base.Overloading as O+import qualified Prelude as P++import qualified Data.GI.Base.Attributes as GI.Attributes+import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr+import qualified Data.GI.Base.GClosure as B.GClosure+import qualified Data.GI.Base.GError as B.GError+import qualified Data.GI.Base.GVariant as B.GVariant+import qualified Data.GI.Base.GValue as B.GValue+import qualified Data.GI.Base.GParamSpec as B.GParamSpec+import qualified Data.GI.Base.CallStack as B.CallStack+import qualified Data.GI.Base.Properties as B.Properties+import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map+import qualified Foreign.Ptr as FP+import qualified GHC.OverloadedLabels as OL++data StructureWritingMode+instance P.Enum StructureWritingMode where+instance BoxedEnum StructureWritingMode where+data StructureTextDecoration+instance P.Enum StructureTextDecoration where+instance BoxedEnum StructureTextDecoration where+data StructureTextAlign+instance P.Enum StructureTextAlign where+instance BoxedEnum StructureTextAlign where+data StructureTableScope+instance P.Enum StructureTableScope where+instance BoxedEnum StructureTableScope where+data StructureRubyPosition+instance P.Enum StructureRubyPosition where+instance BoxedEnum StructureRubyPosition where+data StructureRubyAlign+instance P.Enum StructureRubyAlign where+instance BoxedEnum StructureRubyAlign where+data StructurePlacement+instance P.Enum StructurePlacement where+instance BoxedEnum StructurePlacement where+data StructureListNumbering+instance P.Enum StructureListNumbering where+instance BoxedEnum StructureListNumbering where+data StructureInlineAlign+instance P.Enum StructureInlineAlign where+instance BoxedEnum StructureInlineAlign where+data StructureGlyphOrientation+instance P.Enum StructureGlyphOrientation where+instance BoxedEnum StructureGlyphOrientation where+data StructureFormState+instance P.Enum StructureFormState where+instance BoxedEnum StructureFormState where+data StructureFormRole+instance P.Enum StructureFormRole where+instance BoxedEnum StructureFormRole where+data StructureElementKind+instance P.Enum StructureElementKind where+instance BoxedEnum StructureElementKind where+data StructureBorderStyle+instance P.Enum StructureBorderStyle where+instance BoxedEnum StructureBorderStyle where+data StructureBlockAlign+instance P.Enum StructureBlockAlign where+instance BoxedEnum StructureBlockAlign where+data SelectionStyle+instance P.Enum SelectionStyle where+instance BoxedEnum SelectionStyle where+data PrintScaling+instance P.Enum PrintScaling where+instance BoxedEnum PrintScaling where+data PageTransitionType+instance P.Enum PageTransitionType where+instance BoxedEnum PageTransitionType where+data PageTransitionDirection+instance P.Enum PageTransitionDirection where+instance BoxedEnum PageTransitionDirection where+data PageTransitionAlignment+instance P.Enum PageTransitionAlignment where+instance BoxedEnum PageTransitionAlignment where+data PageMode+instance P.Enum PageMode where+instance BoxedEnum PageMode where+data PageLayout+instance P.Enum PageLayout where+instance BoxedEnum PageLayout where+data PDFSubtype+instance P.Enum PDFSubtype where+instance BoxedEnum PDFSubtype where+data PDFPart+instance P.Enum PDFPart where+instance BoxedEnum PDFPart where+data PDFConformance+instance P.Enum PDFConformance where+instance BoxedEnum PDFConformance where+data MoviePlayMode+instance P.Enum MoviePlayMode where+instance BoxedEnum MoviePlayMode where+data FormTextType+instance P.Enum FormTextType where+instance BoxedEnum FormTextType where+data FormFieldType+instance P.Enum FormFieldType where+instance BoxedEnum FormFieldType where+data FormChoiceType+instance P.Enum FormChoiceType where+instance BoxedEnum FormChoiceType where+data FormButtonType+instance P.Enum FormButtonType where+instance BoxedEnum FormButtonType where+data FontType+instance P.Enum FontType where+instance BoxedEnum FontType where+data Error+instance P.Enum Error where+instance BoxedEnum Error where+data DestType+instance P.Enum DestType where+instance BoxedEnum DestType where+data Backend+instance P.Enum Backend where+instance BoxedEnum Backend where+data AnnotType+instance P.Enum AnnotType where+instance BoxedEnum AnnotType where+data AnnotTextState+instance P.Enum AnnotTextState where+instance BoxedEnum AnnotTextState where+data AnnotMarkupReplyType+instance P.Enum AnnotMarkupReplyType where+instance BoxedEnum AnnotMarkupReplyType where+data AnnotFreeTextQuadding+instance P.Enum AnnotFreeTextQuadding where+instance BoxedEnum AnnotFreeTextQuadding where+data AnnotExternalDataType+instance P.Enum AnnotExternalDataType where+instance BoxedEnum AnnotExternalDataType where+data AdditionalActionType+instance P.Enum AdditionalActionType where+instance BoxedEnum AdditionalActionType where+data ActionType+instance P.Enum ActionType where+instance BoxedEnum ActionType where+data ActionMovieOperation+instance P.Enum ActionMovieOperation where+instance BoxedEnum ActionMovieOperation where+data ActionLayerAction+instance P.Enum ActionLayerAction where+instance BoxedEnum ActionLayerAction where

@@ -0,0 +1,465 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.Poppler.Flags+    ( ++ -- * Flags+-- ** AnnotFlag #flag:AnnotFlag#++    AnnotFlag(..)                           ,+++-- ** FindFlags #flag:FindFlags#++    FindFlags(..)                           ,+++-- ** Permissions #flag:Permissions#++    Permissions(..)                         ,+++-- ** PrintFlags #flag:PrintFlags#++    PrintFlags(..)                          ,+++-- ** StructureGetTextFlags #flag:StructureGetTextFlags#++    StructureGetTextFlags(..)               ,+++-- ** ViewerPreferences #flag:ViewerPreferences#++    ViewerPreferences(..)                   ,+++++    ) where++import Data.GI.Base.ShortPrelude+import qualified Data.GI.Base.ShortPrelude as SP+import qualified Data.GI.Base.Overloading as O+import qualified Prelude as P++import qualified Data.GI.Base.Attributes as GI.Attributes+import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr+import qualified Data.GI.Base.GClosure as B.GClosure+import qualified Data.GI.Base.GError as B.GError+import qualified Data.GI.Base.GVariant as B.GVariant+import qualified Data.GI.Base.GValue as B.GValue+import qualified Data.GI.Base.GParamSpec as B.GParamSpec+import qualified Data.GI.Base.CallStack as B.CallStack+import qualified Data.GI.Base.Properties as B.Properties+import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map+import qualified Foreign.Ptr as FP+import qualified GHC.OverloadedLabels as OL+++-- Flags ViewerPreferences+{- |+Viewer preferences+-}+data ViewerPreferences = +      ViewerPreferencesUnset+    {- ^+    no preferences set+    -}+    | ViewerPreferencesHideToolbar+    {- ^+    hider toolbars when document is active+    -}+    | ViewerPreferencesHideMenubar+    {- ^+    hide menu bar when document is active+    -}+    | ViewerPreferencesHideWindowui+    {- ^+    hide UI elements in document\'s window+    -}+    | ViewerPreferencesFitWindow+    {- ^+    resize document\'s window to fit the size of the first displayed page+    -}+    | ViewerPreferencesCenterWindow+    {- ^+    position the document\'s window in the center of the screen+    -}+    | ViewerPreferencesDisplayDocTitle+    {- ^+    display document title in window\'s title bar+    -}+    | ViewerPreferencesDirectionRtl+    {- ^+    the predominant reading order for text is right to left+    -}+    | AnotherViewerPreferences Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum ViewerPreferences where+    fromEnum ViewerPreferencesUnset = 0+    fromEnum ViewerPreferencesHideToolbar = 1+    fromEnum ViewerPreferencesHideMenubar = 2+    fromEnum ViewerPreferencesHideWindowui = 4+    fromEnum ViewerPreferencesFitWindow = 8+    fromEnum ViewerPreferencesCenterWindow = 16+    fromEnum ViewerPreferencesDisplayDocTitle = 32+    fromEnum ViewerPreferencesDirectionRtl = 64+    fromEnum (AnotherViewerPreferences k) = k++    toEnum 0 = ViewerPreferencesUnset+    toEnum 1 = ViewerPreferencesHideToolbar+    toEnum 2 = ViewerPreferencesHideMenubar+    toEnum 4 = ViewerPreferencesHideWindowui+    toEnum 8 = ViewerPreferencesFitWindow+    toEnum 16 = ViewerPreferencesCenterWindow+    toEnum 32 = ViewerPreferencesDisplayDocTitle+    toEnum 64 = ViewerPreferencesDirectionRtl+    toEnum k = AnotherViewerPreferences k++instance P.Ord ViewerPreferences where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_viewer_preferences_get_type" c_poppler_viewer_preferences_get_type :: +    IO GType++instance BoxedFlags ViewerPreferences where+    boxedFlagsType _ = c_poppler_viewer_preferences_get_type++instance IsGFlag ViewerPreferences++-- Flags StructureGetTextFlags+{- |+/No description available in the introspection data./+-}+data StructureGetTextFlags = +      StructureGetTextFlagsNone+    {- ^+    No flags.+    -}+    | StructureGetTextFlagsRecursive+    {- ^+    For non-leaf, non-content+       elements, recursively obtain the text from all the elements+       enclosed in the subtree.+    -}+    | AnotherStructureGetTextFlags Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum StructureGetTextFlags where+    fromEnum StructureGetTextFlagsNone = 0+    fromEnum StructureGetTextFlagsRecursive = 1+    fromEnum (AnotherStructureGetTextFlags k) = k++    toEnum 0 = StructureGetTextFlagsNone+    toEnum 1 = StructureGetTextFlagsRecursive+    toEnum k = AnotherStructureGetTextFlags k++instance P.Ord StructureGetTextFlags where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_structure_get_text_flags_get_type" c_poppler_structure_get_text_flags_get_type :: +    IO GType++instance BoxedFlags StructureGetTextFlags where+    boxedFlagsType _ = c_poppler_structure_get_text_flags_get_type++instance IsGFlag StructureGetTextFlags++-- Flags PrintFlags+{- |+Printing flags++/Since: 0.16/+-}+data PrintFlags = +      PrintFlagsDocument+    {- ^+    print main document contents+    -}+    | PrintFlagsMarkupAnnots+    {- ^+    print document and markup annotations+    -}+    | PrintFlagsStampAnnotsOnly+    {- ^+    print document and only stamp annotations+    -}+    | PrintFlagsAll+    {- ^+    print main document contents and all markup annotations+    -}+    | AnotherPrintFlags Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum PrintFlags where+    fromEnum PrintFlagsDocument = 0+    fromEnum PrintFlagsMarkupAnnots = 1+    fromEnum PrintFlagsStampAnnotsOnly = 2+    fromEnum PrintFlagsAll = 1+    fromEnum (AnotherPrintFlags k) = k++    toEnum 0 = PrintFlagsDocument+    toEnum 1 = PrintFlagsMarkupAnnots+    toEnum 2 = PrintFlagsStampAnnotsOnly+    toEnum 1 = PrintFlagsAll+    toEnum k = AnotherPrintFlags k++instance P.Ord PrintFlags where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_print_flags_get_type" c_poppler_print_flags_get_type :: +    IO GType++instance BoxedFlags PrintFlags where+    boxedFlagsType _ = c_poppler_print_flags_get_type++instance IsGFlag PrintFlags++-- Flags Permissions+{- |+Permissions+-}+data Permissions = +      PermissionsOkToPrint+    {- ^+    document can be printer+    -}+    | PermissionsOkToModify+    {- ^+    document contents can be modified+    -}+    | PermissionsOkToCopy+    {- ^+    document can be copied+    -}+    | PermissionsOkToAddNotes+    {- ^+    annotations can added to the document+    -}+    | PermissionsOkToFillForm+    {- ^+    interactive form fields can be filled in+    -}+    | PermissionsOkToExtractContents+    {- ^+    extract text and graphics+    (in support of accessibility to users with disabilities or for other purposes). Since 0.18+    -}+    | PermissionsOkToAssemble+    {- ^+    assemble the document (insert, rotate, or delete pages and create+    bookmarks or thumbnail images). Since 0.18+    -}+    | PermissionsOkToPrintHighResolution+    {- ^+    document can be printer at high resolution. Since 0.18+    -}+    | PermissionsFull+    {- ^+    document permits all operations+    -}+    | AnotherPermissions Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum Permissions where+    fromEnum PermissionsOkToPrint = 1+    fromEnum PermissionsOkToModify = 2+    fromEnum PermissionsOkToCopy = 4+    fromEnum PermissionsOkToAddNotes = 8+    fromEnum PermissionsOkToFillForm = 16+    fromEnum PermissionsOkToExtractContents = 32+    fromEnum PermissionsOkToAssemble = 64+    fromEnum PermissionsOkToPrintHighResolution = 128+    fromEnum PermissionsFull = 255+    fromEnum (AnotherPermissions k) = k++    toEnum 1 = PermissionsOkToPrint+    toEnum 2 = PermissionsOkToModify+    toEnum 4 = PermissionsOkToCopy+    toEnum 8 = PermissionsOkToAddNotes+    toEnum 16 = PermissionsOkToFillForm+    toEnum 32 = PermissionsOkToExtractContents+    toEnum 64 = PermissionsOkToAssemble+    toEnum 128 = PermissionsOkToPrintHighResolution+    toEnum 255 = PermissionsFull+    toEnum k = AnotherPermissions k++instance P.Ord Permissions where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_permissions_get_type" c_poppler_permissions_get_type :: +    IO GType++instance BoxedFlags Permissions where+    boxedFlagsType _ = c_poppler_permissions_get_type++instance IsGFlag Permissions++-- Flags FindFlags+{- |+Flags using while searching text in a page++/Since: 0.22/+-}+data FindFlags = +      FindFlagsDefault+    {- ^+    use default search settings+    -}+    | FindFlagsCaseSensitive+    {- ^+    do case sensitive search+    -}+    | FindFlagsBackwards+    {- ^+    search backwards+    -}+    | FindFlagsWholeWordsOnly+    {- ^+    search only whole words+    -}+    | FindFlagsIgnoreDiacritics+    {- ^+    do diacritics insensitive search,+    i.e. ignore accents, umlauts, diaeresis,etc. while matching. This+    option will be ignored if the search term is not pure ascii. Since 0.73.+    -}+    | AnotherFindFlags Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum FindFlags where+    fromEnum FindFlagsDefault = 0+    fromEnum FindFlagsCaseSensitive = 1+    fromEnum FindFlagsBackwards = 2+    fromEnum FindFlagsWholeWordsOnly = 4+    fromEnum FindFlagsIgnoreDiacritics = 8+    fromEnum (AnotherFindFlags k) = k++    toEnum 0 = FindFlagsDefault+    toEnum 1 = FindFlagsCaseSensitive+    toEnum 2 = FindFlagsBackwards+    toEnum 4 = FindFlagsWholeWordsOnly+    toEnum 8 = FindFlagsIgnoreDiacritics+    toEnum k = AnotherFindFlags k++instance P.Ord FindFlags where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_find_flags_get_type" c_poppler_find_flags_get_type :: +    IO GType++instance BoxedFlags FindFlags where+    boxedFlagsType _ = c_poppler_find_flags_get_type++instance IsGFlag FindFlags++-- Flags AnnotFlag+{- |+/No description available in the introspection data./+-}+data AnnotFlag = +      AnnotFlagUnknown+    {- ^+    /No description available in the introspection data./+    -}+    | AnnotFlagInvisible+    {- ^+    /No description available in the introspection data./+    -}+    | AnnotFlagHidden+    {- ^+    /No description available in the introspection data./+    -}+    | AnnotFlagPrint+    {- ^+    /No description available in the introspection data./+    -}+    | AnnotFlagNoZoom+    {- ^+    /No description available in the introspection data./+    -}+    | AnnotFlagNoRotate+    {- ^+    /No description available in the introspection data./+    -}+    | AnnotFlagNoView+    {- ^+    /No description available in the introspection data./+    -}+    | AnnotFlagReadOnly+    {- ^+    /No description available in the introspection data./+    -}+    | AnnotFlagLocked+    {- ^+    /No description available in the introspection data./+    -}+    | AnnotFlagToggleNoView+    {- ^+    /No description available in the introspection data./+    -}+    | AnnotFlagLockedContents+    {- ^+    /No description available in the introspection data./+    -}+    | AnotherAnnotFlag Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum AnnotFlag where+    fromEnum AnnotFlagUnknown = 0+    fromEnum AnnotFlagInvisible = 1+    fromEnum AnnotFlagHidden = 2+    fromEnum AnnotFlagPrint = 4+    fromEnum AnnotFlagNoZoom = 8+    fromEnum AnnotFlagNoRotate = 16+    fromEnum AnnotFlagNoView = 32+    fromEnum AnnotFlagReadOnly = 64+    fromEnum AnnotFlagLocked = 128+    fromEnum AnnotFlagToggleNoView = 256+    fromEnum AnnotFlagLockedContents = 512+    fromEnum (AnotherAnnotFlag k) = k++    toEnum 0 = AnnotFlagUnknown+    toEnum 1 = AnnotFlagInvisible+    toEnum 2 = AnnotFlagHidden+    toEnum 4 = AnnotFlagPrint+    toEnum 8 = AnnotFlagNoZoom+    toEnum 16 = AnnotFlagNoRotate+    toEnum 32 = AnnotFlagNoView+    toEnum 64 = AnnotFlagReadOnly+    toEnum 128 = AnnotFlagLocked+    toEnum 256 = AnnotFlagToggleNoView+    toEnum 512 = AnnotFlagLockedContents+    toEnum k = AnotherAnnotFlag k++instance P.Ord AnnotFlag where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "poppler_annot_flag_get_type" c_poppler_annot_flag_get_type :: +    IO GType++instance BoxedFlags AnnotFlag where+    boxedFlagsType _ = c_poppler_annot_flag_get_type++instance IsGFlag AnnotFlag++

@@ -0,0 +1,48 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.Poppler.Flags where++import Data.GI.Base.ShortPrelude+import qualified Data.GI.Base.ShortPrelude as SP+import qualified Data.GI.Base.Overloading as O+import qualified Prelude as P++import qualified Data.GI.Base.Attributes as GI.Attributes+import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr+import qualified Data.GI.Base.GClosure as B.GClosure+import qualified Data.GI.Base.GError as B.GError+import qualified Data.GI.Base.GVariant as B.GVariant+import qualified Data.GI.Base.GValue as B.GValue+import qualified Data.GI.Base.GParamSpec as B.GParamSpec+import qualified Data.GI.Base.CallStack as B.CallStack+import qualified Data.GI.Base.Properties as B.Properties+import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map+import qualified Foreign.Ptr as FP+import qualified GHC.OverloadedLabels as OL++data ViewerPreferences+instance P.Enum ViewerPreferences where+instance BoxedFlags ViewerPreferences where+instance IsGFlag ViewerPreferences+data StructureGetTextFlags+instance P.Enum StructureGetTextFlags where+instance BoxedFlags StructureGetTextFlags where+instance IsGFlag StructureGetTextFlags+data PrintFlags+instance P.Enum PrintFlags where+instance BoxedFlags PrintFlags where+instance IsGFlag PrintFlags+data Permissions+instance P.Enum Permissions where+instance BoxedFlags Permissions where+instance IsGFlag Permissions+data FindFlags+instance P.Enum FindFlags where+instance BoxedFlags FindFlags where+instance IsGFlag FindFlags+data AnnotFlag+instance P.Enum AnnotFlag where+instance BoxedFlags AnnotFlag where+instance IsGFlag AnnotFlag

@@ -0,0 +1,234 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.Poppler.Functions+    ( ++ -- * Methods+-- ** dateParse #method:dateParse#++    dateParse                               ,+++-- ** getBackend #method:getBackend#++    getBackend                              ,+++-- ** getVersion #method:getVersion#++    getVersion                              ,+++-- ** namedDestFromBytestring #method:namedDestFromBytestring#++    namedDestFromBytestring                 ,+++-- ** namedDestToBytestring #method:namedDestToBytestring#++    namedDestToBytestring                   ,+++++    ) where++import Data.GI.Base.ShortPrelude+import qualified Data.GI.Base.ShortPrelude as SP+import qualified Data.GI.Base.Overloading as O+import qualified Prelude as P++import qualified Data.GI.Base.Attributes as GI.Attributes+import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr+import qualified Data.GI.Base.GClosure as B.GClosure+import qualified Data.GI.Base.GError as B.GError+import qualified Data.GI.Base.GVariant as B.GVariant+import qualified Data.GI.Base.GValue as B.GValue+import qualified Data.GI.Base.GParamSpec as B.GParamSpec+import qualified Data.GI.Base.CallStack as B.CallStack+import qualified Data.GI.Base.Properties as B.Properties+import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map+import qualified Foreign.Ptr as FP+import qualified GHC.OverloadedLabels as OL++import {-# SOURCE #-} qualified GI.Poppler.Enums as Poppler.Enums++-- function poppler_named_dest_to_bytestring+-- Args : [Arg {argCName = "named_dest", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a location to store the length of the returned bytestring", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a location to store the length of the returned bytestring", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- returnType : Just (TCArray False (-1) 1 (TBasicType TUInt8))+-- throws : False+-- Skip return : False++foreign import ccall "poppler_named_dest_to_bytestring" poppler_named_dest_to_bytestring :: +    CString ->                              -- named_dest : TBasicType TUTF8+    Ptr Word64 ->                           -- length : TBasicType TUInt64+    IO (Ptr Word8)++{- |+Converts a named dest string (e.g. from 'GI.Poppler.Structs.Dest.Dest'.@/named_dest/@) into a+bytestring, inverting the transformation of+'GI.Poppler.Functions.namedDestFromBytestring'.++Note that the returned data is not zero terminated and may also+contains embedded NUL bytes.++If /@name@/ is not a valid named dest string, returns 'Nothing'.++The returned data must be freed using 'GI.GLib.Functions.free'.++/Since: 0.73/+-}+namedDestToBytestring ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    T.Text+    -> m (Maybe ByteString)+    {- ^ __Returns:__ a new bytestring,+  or 'Nothing' -}+namedDestToBytestring namedDest = liftIO $ do+    namedDest' <- textToCString namedDest+    length_ <- allocMem :: IO (Ptr Word64)+    result <- poppler_named_dest_to_bytestring namedDest' length_+    length_' <- peek length_+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (unpackByteStringWithLength length_') result'+        freeMem result'+        return result''+    freeMem namedDest'+    freeMem length_+    return maybeResult+++-- function poppler_named_dest_from_bytestring+-- Args : [Arg {argCName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the bytestring data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the bytestring length", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the bytestring length", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "poppler_named_dest_from_bytestring" poppler_named_dest_from_bytestring :: +    Ptr Word8 ->                            -- data : TCArray False (-1) 1 (TBasicType TUInt8)+    Word64 ->                               -- length : TBasicType TUInt64+    IO CString++{- |+Converts a bytestring into a zero-terminated string suitable to+pass to 'GI.Poppler.Objects.Document.documentFindDest'.++Note that the returned string has no defined encoding and is not+suitable for display to the user.++The returned data must be freed using 'GI.GLib.Functions.free'.++/Since: 0.73/+-}+namedDestFromBytestring ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    ByteString+    {- ^ /@data@/: the bytestring data -}+    -> m T.Text+    {- ^ __Returns:__ the named dest -}+namedDestFromBytestring data_ = liftIO $ do+    let length_ = fromIntegral $ B.length data_+    data_' <- packByteString data_+    result <- poppler_named_dest_from_bytestring data_' length_+    checkUnexpectedReturnNULL "namedDestFromBytestring" result+    result' <- cstringToText result+    freeMem result+    freeMem data_'+    return result'+++-- function poppler_get_version+-- Args : []+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "poppler_get_version" poppler_get_version :: +    IO CString++{- |+Returns the version of poppler in use.  This result is not to be freed.+-}+getVersion ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    m T.Text+    {- ^ __Returns:__ the version of poppler. -}+getVersion  = liftIO $ do+    result <- poppler_get_version+    checkUnexpectedReturnNULL "getVersion" result+    result' <- cstringToText result+    return result'+++-- function poppler_get_backend+-- Args : []+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "Poppler", name = "Backend"}))+-- throws : False+-- Skip return : False++foreign import ccall "poppler_get_backend" poppler_get_backend :: +    IO CUInt++{- |+Returns the backend compiled into the poppler library.+-}+getBackend ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    m Poppler.Enums.Backend+    {- ^ __Returns:__ The backend used by poppler -}+getBackend  = liftIO $ do+    result <- poppler_get_backend+    let result' = (toEnum . fromIntegral) result+    return result'+++-- function poppler_date_parse+-- Args : [Arg {argCName = "date", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "string to parse", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timet", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an uninitialized #time_t", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "poppler_date_parse" poppler_date_parse :: +    CString ->                              -- date : TBasicType TUTF8+    CLong ->                                -- timet : TBasicType TLong+    IO CInt++{- |+Parses a PDF format date string and converts it to a @/time_t/@. Returns @/FALSE/@+if the parsing fails or the input string is not a valid PDF format date string++/Since: 0.12/+-}+dateParse ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    T.Text+    {- ^ /@date@/: string to parse -}+    -> CLong+    {- ^ /@timet@/: an uninitialized @/time_t/@ -}+    -> m Bool+    {- ^ __Returns:__ @/TRUE/@, if /@timet@/ was set -}+dateParse date timet = liftIO $ do+    date' <- textToCString date+    result <- poppler_date_parse date' timet+    let result' = (/= 0) result+    freeMem date'+    return result'+++

@@ -0,0 +1,81 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.Poppler.Objects+    (     module GI.Poppler.Objects.Annot         ,+    module GI.Poppler.Objects.AnnotCircle   ,+    module GI.Poppler.Objects.AnnotFileAttachment,+    module GI.Poppler.Objects.AnnotFreeText ,+    module GI.Poppler.Objects.AnnotLine     ,+    module GI.Poppler.Objects.AnnotMarkup   ,+    module GI.Poppler.Objects.AnnotMovie    ,+    module GI.Poppler.Objects.AnnotScreen   ,+    module GI.Poppler.Objects.AnnotSquare   ,+    module GI.Poppler.Objects.AnnotText     ,+    module GI.Poppler.Objects.AnnotTextMarkup,+    module GI.Poppler.Objects.Attachment    ,+    module GI.Poppler.Objects.Document      ,+    module GI.Poppler.Objects.FontInfo      ,+    module GI.Poppler.Objects.FormField     ,+    module GI.Poppler.Objects.Layer         ,+    module GI.Poppler.Objects.Media         ,+    module GI.Poppler.Objects.Movie         ,+    module GI.Poppler.Objects.PSFile        ,+    module GI.Poppler.Objects.Page          ,+    module GI.Poppler.Objects.StructureElement,+++    ) where++import GI.Poppler.Objects.Annot+import GI.Poppler.Objects.AnnotCircle+import GI.Poppler.Objects.AnnotFileAttachment+import GI.Poppler.Objects.AnnotFreeText+import GI.Poppler.Objects.AnnotLine+import GI.Poppler.Objects.AnnotMarkup+import GI.Poppler.Objects.AnnotMovie+import GI.Poppler.Objects.AnnotScreen+import GI.Poppler.Objects.AnnotSquare+import GI.Poppler.Objects.AnnotText+import GI.Poppler.Objects.AnnotTextMarkup+import GI.Poppler.Objects.Attachment+import GI.Poppler.Objects.Document+import GI.Poppler.Objects.FontInfo+import GI.Poppler.Objects.FormField+import GI.Poppler.Objects.Layer+import GI.Poppler.Objects.Media+import GI.Poppler.Objects.Movie+import GI.Poppler.Objects.PSFile+import GI.Poppler.Objects.Page+import GI.Poppler.Objects.StructureElement++import Data.GI.Base.ShortPrelude+import qualified Data.GI.Base.ShortPrelude as SP+import qualified Data.GI.Base.Overloading as O+import qualified Prelude as P++import qualified Data.GI.Base.Attributes as GI.Attributes+import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr+import qualified Data.GI.Base.GClosure as B.GClosure+import qualified Data.GI.Base.GError as B.GError+import qualified Data.GI.Base.GVariant as B.GVariant+import qualified Data.GI.Base.GValue as B.GValue+import qualified Data.GI.Base.GParamSpec as B.GParamSpec+import qualified Data.GI.Base.CallStack as B.CallStack+import qualified Data.GI.Base.Properties as B.Properties+import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map+import qualified Foreign.Ptr as FP+import qualified GHC.OverloadedLabels as OL+++

@@ -0,0 +1,701 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.Poppler.Objects.Annot+    ( ++-- * Exported types+    Annot(..)                               ,+    IsAnnot                                 ,+    toAnnot                                 ,+    noAnnot                                 ,+++ -- * Methods+-- ** getAnnotType #method:getAnnotType#++#if ENABLE_OVERLOADING+    AnnotGetAnnotTypeMethodInfo             ,+#endif+    annotGetAnnotType                       ,+++-- ** getColor #method:getColor#++#if ENABLE_OVERLOADING+    AnnotGetColorMethodInfo                 ,+#endif+    annotGetColor                           ,+++-- ** getContents #method:getContents#++#if ENABLE_OVERLOADING+    AnnotGetContentsMethodInfo              ,+#endif+    annotGetContents                        ,+++-- ** getFlags #method:getFlags#++#if ENABLE_OVERLOADING+    AnnotGetFlagsMethodInfo                 ,+#endif+    annotGetFlags                           ,+++-- ** getModified #method:getModified#++#if ENABLE_OVERLOADING+    AnnotGetModifiedMethodInfo              ,+#endif+    annotGetModified                        ,+++-- ** getName #method:getName#++#if ENABLE_OVERLOADING+    AnnotGetNameMethodInfo                  ,+#endif+    annotGetName                            ,+++-- ** getPageIndex #method:getPageIndex#++#if ENABLE_OVERLOADING+    AnnotGetPageIndexMethodInfo             ,+#endif+    annotGetPageIndex                       ,+++-- ** getRectangle #method:getRectangle#++#if ENABLE_OVERLOADING+    AnnotGetRectangleMethodInfo             ,+#endif+    annotGetRectangle                       ,+++-- ** setColor #method:setColor#++#if ENABLE_OVERLOADING+    AnnotSetColorMethodInfo                 ,+#endif+    annotSetColor                           ,+++-- ** setContents #method:setContents#++#if ENABLE_OVERLOADING+    AnnotSetContentsMethodInfo              ,+#endif+    annotSetContents                        ,+++-- ** setFlags #method:setFlags#++#if ENABLE_OVERLOADING+    AnnotSetFlagsMethodInfo                 ,+#endif+    annotSetFlags                           ,+++-- ** setRectangle #method:setRectangle#++#if ENABLE_OVERLOADING+    AnnotSetRectangleMethodInfo             ,+#endif+    annotSetRectangle                       ,+++++    ) where++import Data.GI.Base.ShortPrelude+import qualified Data.GI.Base.ShortPrelude as SP+import qualified Data.GI.Base.Overloading as O+import qualified Prelude as P++import qualified Data.GI.Base.Attributes as GI.Attributes+import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr+import qualified Data.GI.Base.GClosure as B.GClosure+import qualified Data.GI.Base.GError as B.GError+import qualified Data.GI.Base.GVariant as B.GVariant+import qualified Data.GI.Base.GValue as B.GValue+import qualified Data.GI.Base.GParamSpec as B.GParamSpec+import qualified Data.GI.Base.CallStack as B.CallStack+import qualified Data.GI.Base.Properties as B.Properties+import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map+import qualified Foreign.Ptr as FP+import qualified GHC.OverloadedLabels as OL++import qualified GI.GObject.Objects.Object as GObject.Object+import {-# SOURCE #-} qualified GI.Poppler.Enums as Poppler.Enums+import {-# SOURCE #-} qualified GI.Poppler.Flags as Poppler.Flags+import {-# SOURCE #-} qualified GI.Poppler.Structs.Color as Poppler.Color+import {-# SOURCE #-} qualified GI.Poppler.Structs.Rectangle as Poppler.Rectangle++-- | Memory-managed wrapper type.+newtype Annot = Annot (ManagedPtr Annot)+foreign import ccall "poppler_annot_get_type"+    c_poppler_annot_get_type :: IO GType++instance GObject Annot where+    gobjectType = c_poppler_annot_get_type+    ++-- | Type class for types which can be safely cast to `Annot`, for instance with `toAnnot`.+class (GObject o, O.IsDescendantOf Annot o) => IsAnnot o+instance (GObject o, O.IsDescendantOf Annot o) => IsAnnot o++instance O.HasParentTypes Annot+type instance O.ParentTypes Annot = '[GObject.Object.Object]++-- | Cast to `Annot`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toAnnot :: (MonadIO m, IsAnnot o) => o -> m Annot+toAnnot = liftIO . unsafeCastTo Annot++-- | A convenience alias for `Nothing` :: `Maybe` `Annot`.+noAnnot :: Maybe Annot+noAnnot = Nothing++#if ENABLE_OVERLOADING+type family ResolveAnnotMethod (t :: Symbol) (o :: *) :: * where+    ResolveAnnotMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolveAnnotMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolveAnnotMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolveAnnotMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolveAnnotMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolveAnnotMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolveAnnotMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolveAnnotMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolveAnnotMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolveAnnotMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolveAnnotMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolveAnnotMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolveAnnotMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolveAnnotMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolveAnnotMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolveAnnotMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolveAnnotMethod "getAnnotType" o = AnnotGetAnnotTypeMethodInfo+    ResolveAnnotMethod "getColor" o = AnnotGetColorMethodInfo+    ResolveAnnotMethod "getContents" o = AnnotGetContentsMethodInfo+    ResolveAnnotMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolveAnnotMethod "getFlags" o = AnnotGetFlagsMethodInfo+    ResolveAnnotMethod "getModified" o = AnnotGetModifiedMethodInfo+    ResolveAnnotMethod "getName" o = AnnotGetNameMethodInfo+    ResolveAnnotMethod "getPageIndex" o = AnnotGetPageIndexMethodInfo+    ResolveAnnotMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolveAnnotMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolveAnnotMethod "getRectangle" o = AnnotGetRectangleMethodInfo+    ResolveAnnotMethod "setColor" o = AnnotSetColorMethodInfo+    ResolveAnnotMethod "setContents" o = AnnotSetContentsMethodInfo+    ResolveAnnotMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolveAnnotMethod "setFlags" o = AnnotSetFlagsMethodInfo+    ResolveAnnotMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolveAnnotMethod "setRectangle" o = AnnotSetRectangleMethodInfo+    ResolveAnnotMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveAnnotMethod t Annot, O.MethodInfo info Annot p) => OL.IsLabel t (Annot -> p) where+#if MIN_VERSION_base(4,10,0)+    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)+#else+    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)+#endif++#endif++#if ENABLE_OVERLOADING+instance O.HasAttributeList Annot+type instance O.AttributeList Annot = AnnotAttributeList+type AnnotAttributeList = ('[ ] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+#endif++#if ENABLE_OVERLOADING+type instance O.SignalList Annot = AnnotSignalList+type AnnotSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])++#endif++-- method Annot::get_annot_type+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "poppler_annot", argType = TInterface (Name {namespace = "Poppler", name = "Annot"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerAnnot", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "Poppler", name = "AnnotType"}))+-- throws : False+-- Skip return : False++foreign import ccall "poppler_annot_get_annot_type" poppler_annot_get_annot_type :: +    Ptr Annot ->                            -- poppler_annot : TInterface (Name {namespace = "Poppler", name = "Annot"})+    IO CUInt++{- |+Gets the type of /@popplerAnnot@/+-}+annotGetAnnotType ::+    (B.CallStack.HasCallStack, MonadIO m, IsAnnot a) =>+    a+    {- ^ /@popplerAnnot@/: a 'GI.Poppler.Objects.Annot.Annot' -}+    -> m Poppler.Enums.AnnotType+    {- ^ __Returns:__ 'GI.Poppler.Enums.AnnotType' of /@popplerAnnot@/. -}+annotGetAnnotType popplerAnnot = liftIO $ do+    popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot+    result <- poppler_annot_get_annot_type popplerAnnot'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr popplerAnnot+    return result'++#if ENABLE_OVERLOADING+data AnnotGetAnnotTypeMethodInfo+instance (signature ~ (m Poppler.Enums.AnnotType), MonadIO m, IsAnnot a) => O.MethodInfo AnnotGetAnnotTypeMethodInfo a signature where+    overloadedMethod _ = annotGetAnnotType++#endif++-- method Annot::get_color+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "poppler_annot", argType = TInterface (Name {namespace = "Poppler", name = "Annot"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerAnnot", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "Poppler", name = "Color"}))+-- throws : False+-- Skip return : False++foreign import ccall "poppler_annot_get_color" poppler_annot_get_color :: +    Ptr Annot ->                            -- poppler_annot : TInterface (Name {namespace = "Poppler", name = "Annot"})+    IO (Ptr Poppler.Color.Color)++{- |+Retrieves the color of /@popplerAnnot@/.+-}+annotGetColor ::+    (B.CallStack.HasCallStack, MonadIO m, IsAnnot a) =>+    a+    {- ^ /@popplerAnnot@/: a 'GI.Poppler.Objects.Annot.Annot' -}+    -> m Poppler.Color.Color+    {- ^ __Returns:__ a new allocated 'GI.Poppler.Structs.Color.Color' with the color values of+              /@popplerAnnot@/, or 'Nothing'. It must be freed with 'GI.GLib.Functions.free' when done. -}+annotGetColor popplerAnnot = liftIO $ do+    popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot+    result <- poppler_annot_get_color popplerAnnot'+    checkUnexpectedReturnNULL "annotGetColor" result+    result' <- (wrapBoxed Poppler.Color.Color) result+    touchManagedPtr popplerAnnot+    return result'++#if ENABLE_OVERLOADING+data AnnotGetColorMethodInfo+instance (signature ~ (m Poppler.Color.Color), MonadIO m, IsAnnot a) => O.MethodInfo AnnotGetColorMethodInfo a signature where+    overloadedMethod _ = annotGetColor++#endif++-- method Annot::get_contents+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "poppler_annot", argType = TInterface (Name {namespace = "Poppler", name = "Annot"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerAnnot", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "poppler_annot_get_contents" poppler_annot_get_contents :: +    Ptr Annot ->                            -- poppler_annot : TInterface (Name {namespace = "Poppler", name = "Annot"})+    IO CString++{- |+Retrieves the contents of /@popplerAnnot@/.+-}+annotGetContents ::+    (B.CallStack.HasCallStack, MonadIO m, IsAnnot a) =>+    a+    {- ^ /@popplerAnnot@/: a 'GI.Poppler.Objects.Annot.Annot' -}+    -> m T.Text+    {- ^ __Returns:__ a new allocated string with the contents of /@popplerAnnot@/. It+              must be freed with 'GI.GLib.Functions.free' when done. -}+annotGetContents popplerAnnot = liftIO $ do+    popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot+    result <- poppler_annot_get_contents popplerAnnot'+    checkUnexpectedReturnNULL "annotGetContents" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr popplerAnnot+    return result'++#if ENABLE_OVERLOADING+data AnnotGetContentsMethodInfo+instance (signature ~ (m T.Text), MonadIO m, IsAnnot a) => O.MethodInfo AnnotGetContentsMethodInfo a signature where+    overloadedMethod _ = annotGetContents++#endif++-- method Annot::get_flags+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "poppler_annot", argType = TInterface (Name {namespace = "Poppler", name = "Annot"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerAnnot", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "Poppler", name = "AnnotFlag"}))+-- throws : False+-- Skip return : False++foreign import ccall "poppler_annot_get_flags" poppler_annot_get_flags :: +    Ptr Annot ->                            -- poppler_annot : TInterface (Name {namespace = "Poppler", name = "Annot"})+    IO CUInt++{- |+Retrieves the flag field specifying various characteristics of the+/@popplerAnnot@/.+-}+annotGetFlags ::+    (B.CallStack.HasCallStack, MonadIO m, IsAnnot a) =>+    a+    {- ^ /@popplerAnnot@/: a 'GI.Poppler.Objects.Annot.Annot' -}+    -> m [Poppler.Flags.AnnotFlag]+    {- ^ __Returns:__ the flag field of /@popplerAnnot@/. -}+annotGetFlags popplerAnnot = liftIO $ do+    popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot+    result <- poppler_annot_get_flags popplerAnnot'+    let result' = wordToGFlags result+    touchManagedPtr popplerAnnot+    return result'++#if ENABLE_OVERLOADING+data AnnotGetFlagsMethodInfo+instance (signature ~ (m [Poppler.Flags.AnnotFlag]), MonadIO m, IsAnnot a) => O.MethodInfo AnnotGetFlagsMethodInfo a signature where+    overloadedMethod _ = annotGetFlags++#endif++-- method Annot::get_modified+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "poppler_annot", argType = TInterface (Name {namespace = "Poppler", name = "Annot"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerAnnot", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "poppler_annot_get_modified" poppler_annot_get_modified :: +    Ptr Annot ->                            -- poppler_annot : TInterface (Name {namespace = "Poppler", name = "Annot"})+    IO CString++{- |+Retrieves the last modification data of /@popplerAnnot@/. The returned+string will be either a PDF format date or a text string.+See also @/poppler_date_parse/@()+-}+annotGetModified ::+    (B.CallStack.HasCallStack, MonadIO m, IsAnnot a) =>+    a+    {- ^ /@popplerAnnot@/: a 'GI.Poppler.Objects.Annot.Annot' -}+    -> m T.Text+    {- ^ __Returns:__ a new allocated string with the last modification data of+              /@popplerAnnot@/. It must be freed with 'GI.GLib.Functions.free' when done. -}+annotGetModified popplerAnnot = liftIO $ do+    popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot+    result <- poppler_annot_get_modified popplerAnnot'+    checkUnexpectedReturnNULL "annotGetModified" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr popplerAnnot+    return result'++#if ENABLE_OVERLOADING+data AnnotGetModifiedMethodInfo+instance (signature ~ (m T.Text), MonadIO m, IsAnnot a) => O.MethodInfo AnnotGetModifiedMethodInfo a signature where+    overloadedMethod _ = annotGetModified++#endif++-- method Annot::get_name+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "poppler_annot", argType = TInterface (Name {namespace = "Poppler", name = "Annot"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerAnnot", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "poppler_annot_get_name" poppler_annot_get_name :: +    Ptr Annot ->                            -- poppler_annot : TInterface (Name {namespace = "Poppler", name = "Annot"})+    IO CString++{- |+Retrieves the name of /@popplerAnnot@/.+-}+annotGetName ::+    (B.CallStack.HasCallStack, MonadIO m, IsAnnot a) =>+    a+    {- ^ /@popplerAnnot@/: a 'GI.Poppler.Objects.Annot.Annot' -}+    -> m T.Text+    {- ^ __Returns:__ a new allocated string with the name of /@popplerAnnot@/. It must+              be freed with 'GI.GLib.Functions.free' when done. -}+annotGetName popplerAnnot = liftIO $ do+    popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot+    result <- poppler_annot_get_name popplerAnnot'+    checkUnexpectedReturnNULL "annotGetName" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr popplerAnnot+    return result'++#if ENABLE_OVERLOADING+data AnnotGetNameMethodInfo+instance (signature ~ (m T.Text), MonadIO m, IsAnnot a) => O.MethodInfo AnnotGetNameMethodInfo a signature where+    overloadedMethod _ = annotGetName++#endif++-- method Annot::get_page_index+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "poppler_annot", argType = TInterface (Name {namespace = "Poppler", name = "Annot"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerAnnot", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TInt)+-- throws : False+-- Skip return : False++foreign import ccall "poppler_annot_get_page_index" poppler_annot_get_page_index :: +    Ptr Annot ->                            -- poppler_annot : TInterface (Name {namespace = "Poppler", name = "Annot"})+    IO Int32++{- |+Returns the page index to which /@popplerAnnot@/ is associated, or -1 if unknown++/Since: 0.14/+-}+annotGetPageIndex ::+    (B.CallStack.HasCallStack, MonadIO m, IsAnnot a) =>+    a+    {- ^ /@popplerAnnot@/: a 'GI.Poppler.Objects.Annot.Annot' -}+    -> m Int32+    {- ^ __Returns:__ page index or -1 -}+annotGetPageIndex popplerAnnot = liftIO $ do+    popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot+    result <- poppler_annot_get_page_index popplerAnnot'+    touchManagedPtr popplerAnnot+    return result++#if ENABLE_OVERLOADING+data AnnotGetPageIndexMethodInfo+instance (signature ~ (m Int32), MonadIO m, IsAnnot a) => O.MethodInfo AnnotGetPageIndexMethodInfo a signature where+    overloadedMethod _ = annotGetPageIndex++#endif++-- method Annot::get_rectangle+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "poppler_annot", argType = TInterface (Name {namespace = "Poppler", name = "Annot"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerAnnot", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "poppler_rect", argType = TInterface (Name {namespace = "Poppler", name = "Rectangle"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerRectangle to store the annotation's coordinates", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "poppler_annot_get_rectangle" poppler_annot_get_rectangle :: +    Ptr Annot ->                            -- poppler_annot : TInterface (Name {namespace = "Poppler", name = "Annot"})+    Ptr Poppler.Rectangle.Rectangle ->      -- poppler_rect : TInterface (Name {namespace = "Poppler", name = "Rectangle"})+    IO ()++{- |+Retrieves the rectangle representing the page coordinates where the+annotation /@popplerAnnot@/ is placed.++/Since: 0.26/+-}+annotGetRectangle ::+    (B.CallStack.HasCallStack, MonadIO m, IsAnnot a) =>+    a+    {- ^ /@popplerAnnot@/: a 'GI.Poppler.Objects.Annot.Annot' -}+    -> m (Poppler.Rectangle.Rectangle)+annotGetRectangle popplerAnnot = liftIO $ do+    popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot+    popplerRect <- callocBoxedBytes 32 :: IO (Ptr Poppler.Rectangle.Rectangle)+    poppler_annot_get_rectangle popplerAnnot' popplerRect+    popplerRect' <- (wrapBoxed Poppler.Rectangle.Rectangle) popplerRect+    touchManagedPtr popplerAnnot+    return popplerRect'++#if ENABLE_OVERLOADING+data AnnotGetRectangleMethodInfo+instance (signature ~ (m (Poppler.Rectangle.Rectangle)), MonadIO m, IsAnnot a) => O.MethodInfo AnnotGetRectangleMethodInfo a signature where+    overloadedMethod _ = annotGetRectangle++#endif++-- method Annot::set_color+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "poppler_annot", argType = TInterface (Name {namespace = "Poppler", name = "Annot"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerAnnot", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "poppler_color", argType = TInterface (Name {namespace = "Poppler", name = "Color"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #PopplerColor, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "poppler_annot_set_color" poppler_annot_set_color :: +    Ptr Annot ->                            -- poppler_annot : TInterface (Name {namespace = "Poppler", name = "Annot"})+    Ptr Poppler.Color.Color ->              -- poppler_color : TInterface (Name {namespace = "Poppler", name = "Color"})+    IO ()++{- |+Sets the color of /@popplerAnnot@/.++/Since: 0.16/+-}+annotSetColor ::+    (B.CallStack.HasCallStack, MonadIO m, IsAnnot a) =>+    a+    {- ^ /@popplerAnnot@/: a 'GI.Poppler.Objects.Annot.Annot' -}+    -> Maybe (Poppler.Color.Color)+    {- ^ /@popplerColor@/: a 'GI.Poppler.Structs.Color.Color', or 'Nothing' -}+    -> m ()+annotSetColor popplerAnnot popplerColor = liftIO $ do+    popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot+    maybePopplerColor <- case popplerColor of+        Nothing -> return nullPtr+        Just jPopplerColor -> do+            jPopplerColor' <- unsafeManagedPtrGetPtr jPopplerColor+            return jPopplerColor'+    poppler_annot_set_color popplerAnnot' maybePopplerColor+    touchManagedPtr popplerAnnot+    whenJust popplerColor touchManagedPtr+    return ()++#if ENABLE_OVERLOADING+data AnnotSetColorMethodInfo+instance (signature ~ (Maybe (Poppler.Color.Color) -> m ()), MonadIO m, IsAnnot a) => O.MethodInfo AnnotSetColorMethodInfo a signature where+    overloadedMethod _ = annotSetColor++#endif++-- method Annot::set_contents+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "poppler_annot", argType = TInterface (Name {namespace = "Poppler", name = "Annot"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerAnnot", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "contents", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a text string containing the new contents", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "poppler_annot_set_contents" poppler_annot_set_contents :: +    Ptr Annot ->                            -- poppler_annot : TInterface (Name {namespace = "Poppler", name = "Annot"})+    CString ->                              -- contents : TBasicType TUTF8+    IO ()++{- |+Sets the contents of /@popplerAnnot@/ to the given value,+replacing the current contents.++/Since: 0.12/+-}+annotSetContents ::+    (B.CallStack.HasCallStack, MonadIO m, IsAnnot a) =>+    a+    {- ^ /@popplerAnnot@/: a 'GI.Poppler.Objects.Annot.Annot' -}+    -> T.Text+    {- ^ /@contents@/: a text string containing the new contents -}+    -> m ()+annotSetContents popplerAnnot contents = liftIO $ do+    popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot+    contents' <- textToCString contents+    poppler_annot_set_contents popplerAnnot' contents'+    touchManagedPtr popplerAnnot+    freeMem contents'+    return ()++#if ENABLE_OVERLOADING+data AnnotSetContentsMethodInfo+instance (signature ~ (T.Text -> m ()), MonadIO m, IsAnnot a) => O.MethodInfo AnnotSetContentsMethodInfo a signature where+    overloadedMethod _ = annotSetContents++#endif++-- method Annot::set_flags+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "poppler_annot", argType = TInterface (Name {namespace = "Poppler", name = "Annot"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerAnnot", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Poppler", name = "AnnotFlag"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerAnnotFlag", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "poppler_annot_set_flags" poppler_annot_set_flags :: +    Ptr Annot ->                            -- poppler_annot : TInterface (Name {namespace = "Poppler", name = "Annot"})+    CUInt ->                                -- flags : TInterface (Name {namespace = "Poppler", name = "AnnotFlag"})+    IO ()++{- |+Sets the flag field specifying various characteristics of the+/@popplerAnnot@/.++/Since: 0.22/+-}+annotSetFlags ::+    (B.CallStack.HasCallStack, MonadIO m, IsAnnot a) =>+    a+    {- ^ /@popplerAnnot@/: a 'GI.Poppler.Objects.Annot.Annot' -}+    -> [Poppler.Flags.AnnotFlag]+    {- ^ /@flags@/: a 'GI.Poppler.Flags.AnnotFlag' -}+    -> m ()+annotSetFlags popplerAnnot flags = liftIO $ do+    popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot+    let flags' = gflagsToWord flags+    poppler_annot_set_flags popplerAnnot' flags'+    touchManagedPtr popplerAnnot+    return ()++#if ENABLE_OVERLOADING+data AnnotSetFlagsMethodInfo+instance (signature ~ ([Poppler.Flags.AnnotFlag] -> m ()), MonadIO m, IsAnnot a) => O.MethodInfo AnnotSetFlagsMethodInfo a signature where+    overloadedMethod _ = annotSetFlags++#endif++-- method Annot::set_rectangle+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "poppler_annot", argType = TInterface (Name {namespace = "Poppler", name = "Annot"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerAnnot", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "poppler_rect", argType = TInterface (Name {namespace = "Poppler", name = "Rectangle"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerRectangle with the new annotation's coordinates", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "poppler_annot_set_rectangle" poppler_annot_set_rectangle :: +    Ptr Annot ->                            -- poppler_annot : TInterface (Name {namespace = "Poppler", name = "Annot"})+    Ptr Poppler.Rectangle.Rectangle ->      -- poppler_rect : TInterface (Name {namespace = "Poppler", name = "Rectangle"})+    IO ()++{- |+Move the annotation to the rectangle representing the page coordinates+where the annotation /@popplerAnnot@/ should be placed.++/Since: 0.26/+-}+annotSetRectangle ::+    (B.CallStack.HasCallStack, MonadIO m, IsAnnot a) =>+    a+    {- ^ /@popplerAnnot@/: a 'GI.Poppler.Objects.Annot.Annot' -}+    -> Poppler.Rectangle.Rectangle+    {- ^ /@popplerRect@/: a 'GI.Poppler.Structs.Rectangle.Rectangle' with the new annotation\'s coordinates -}+    -> m ()+annotSetRectangle popplerAnnot popplerRect = liftIO $ do+    popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot+    popplerRect' <- unsafeManagedPtrGetPtr popplerRect+    poppler_annot_set_rectangle popplerAnnot' popplerRect'+    touchManagedPtr popplerAnnot+    touchManagedPtr popplerRect+    return ()++#if ENABLE_OVERLOADING+data AnnotSetRectangleMethodInfo+instance (signature ~ (Poppler.Rectangle.Rectangle -> m ()), MonadIO m, IsAnnot a) => O.MethodInfo AnnotSetRectangleMethodInfo a signature where+    overloadedMethod _ = annotSetRectangle++#endif++

@@ -0,0 +1,65 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.Poppler.Objects.Annot where++import Data.GI.Base.ShortPrelude+import qualified Data.GI.Base.ShortPrelude as SP+import qualified Data.GI.Base.Overloading as O+import qualified Prelude as P++import qualified Data.GI.Base.Attributes as GI.Attributes+import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr+import qualified Data.GI.Base.GClosure as B.GClosure+import qualified Data.GI.Base.GError as B.GError+import qualified Data.GI.Base.GVariant as B.GVariant+import qualified Data.GI.Base.GValue as B.GValue+import qualified Data.GI.Base.GParamSpec as B.GParamSpec+import qualified Data.GI.Base.CallStack as B.CallStack+import qualified Data.GI.Base.Properties as B.Properties+import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map+import qualified Foreign.Ptr as FP+import qualified GHC.OverloadedLabels as OL++newtype Annot = Annot (ManagedPtr Annot)+instance GObject Annot where+class (GObject o, O.IsDescendantOf Annot o) => IsAnnot o+instance (GObject o, O.IsDescendantOf Annot o) => IsAnnot o+instance O.HasParentTypes Annot+#if ENABLE_OVERLOADING+data AnnotGetAnnotTypeMethodInfo+#endif+#if ENABLE_OVERLOADING+data AnnotGetColorMethodInfo+#endif+#if ENABLE_OVERLOADING+data AnnotGetContentsMethodInfo+#endif+#if ENABLE_OVERLOADING+data AnnotGetFlagsMethodInfo+#endif+#if ENABLE_OVERLOADING+data AnnotGetModifiedMethodInfo+#endif+#if ENABLE_OVERLOADING+data AnnotGetNameMethodInfo+#endif+#if ENABLE_OVERLOADING+data AnnotGetPageIndexMethodInfo+#endif+#if ENABLE_OVERLOADING+data AnnotGetRectangleMethodInfo+#endif+#if ENABLE_OVERLOADING+data AnnotSetColorMethodInfo+#endif+#if ENABLE_OVERLOADING+data AnnotSetContentsMethodInfo+#endif+#if ENABLE_OVERLOADING+data AnnotSetFlagsMethodInfo+#endif+#if ENABLE_OVERLOADING+data AnnotSetRectangleMethodInfo+#endif

@@ -0,0 +1,302 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.Poppler.Objects.AnnotCircle+    ( ++-- * Exported types+    AnnotCircle(..)                         ,+    IsAnnotCircle                           ,+    toAnnotCircle                           ,+    noAnnotCircle                           ,+++ -- * Methods+-- ** getInteriorColor #method:getInteriorColor#++#if ENABLE_OVERLOADING+    AnnotCircleGetInteriorColorMethodInfo   ,+#endif+    annotCircleGetInteriorColor             ,+++-- ** new #method:new#++    annotCircleNew                          ,+++-- ** setInteriorColor #method:setInteriorColor#++#if ENABLE_OVERLOADING+    AnnotCircleSetInteriorColorMethodInfo   ,+#endif+    annotCircleSetInteriorColor             ,+++++    ) where++import Data.GI.Base.ShortPrelude+import qualified Data.GI.Base.ShortPrelude as SP+import qualified Data.GI.Base.Overloading as O+import qualified Prelude as P++import qualified Data.GI.Base.Attributes as GI.Attributes+import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr+import qualified Data.GI.Base.GClosure as B.GClosure+import qualified Data.GI.Base.GError as B.GError+import qualified Data.GI.Base.GVariant as B.GVariant+import qualified Data.GI.Base.GValue as B.GValue+import qualified Data.GI.Base.GParamSpec as B.GParamSpec+import qualified Data.GI.Base.CallStack as B.CallStack+import qualified Data.GI.Base.Properties as B.Properties+import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map+import qualified Foreign.Ptr as FP+import qualified GHC.OverloadedLabels as OL++import qualified GI.GObject.Objects.Object as GObject.Object+import {-# SOURCE #-} qualified GI.Poppler.Objects.Annot as Poppler.Annot+import {-# SOURCE #-} qualified GI.Poppler.Objects.AnnotMarkup as Poppler.AnnotMarkup+import {-# SOURCE #-} qualified GI.Poppler.Objects.Document as Poppler.Document+import {-# SOURCE #-} qualified GI.Poppler.Structs.Color as Poppler.Color+import {-# SOURCE #-} qualified GI.Poppler.Structs.Rectangle as Poppler.Rectangle++-- | Memory-managed wrapper type.+newtype AnnotCircle = AnnotCircle (ManagedPtr AnnotCircle)+foreign import ccall "poppler_annot_circle_get_type"+    c_poppler_annot_circle_get_type :: IO GType++instance GObject AnnotCircle where+    gobjectType = c_poppler_annot_circle_get_type+    ++-- | Type class for types which can be safely cast to `AnnotCircle`, for instance with `toAnnotCircle`.+class (GObject o, O.IsDescendantOf AnnotCircle o) => IsAnnotCircle o+instance (GObject o, O.IsDescendantOf AnnotCircle o) => IsAnnotCircle o++instance O.HasParentTypes AnnotCircle+type instance O.ParentTypes AnnotCircle = '[Poppler.AnnotMarkup.AnnotMarkup, Poppler.Annot.Annot, GObject.Object.Object]++-- | Cast to `AnnotCircle`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toAnnotCircle :: (MonadIO m, IsAnnotCircle o) => o -> m AnnotCircle+toAnnotCircle = liftIO . unsafeCastTo AnnotCircle++-- | A convenience alias for `Nothing` :: `Maybe` `AnnotCircle`.+noAnnotCircle :: Maybe AnnotCircle+noAnnotCircle = Nothing++#if ENABLE_OVERLOADING+type family ResolveAnnotCircleMethod (t :: Symbol) (o :: *) :: * where+    ResolveAnnotCircleMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolveAnnotCircleMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolveAnnotCircleMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolveAnnotCircleMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolveAnnotCircleMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolveAnnotCircleMethod "hasPopup" o = Poppler.AnnotMarkup.AnnotMarkupHasPopupMethodInfo+    ResolveAnnotCircleMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolveAnnotCircleMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolveAnnotCircleMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolveAnnotCircleMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolveAnnotCircleMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolveAnnotCircleMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolveAnnotCircleMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolveAnnotCircleMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolveAnnotCircleMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolveAnnotCircleMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolveAnnotCircleMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolveAnnotCircleMethod "getAnnotType" o = Poppler.Annot.AnnotGetAnnotTypeMethodInfo+    ResolveAnnotCircleMethod "getColor" o = Poppler.Annot.AnnotGetColorMethodInfo+    ResolveAnnotCircleMethod "getContents" o = Poppler.Annot.AnnotGetContentsMethodInfo+    ResolveAnnotCircleMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolveAnnotCircleMethod "getDate" o = Poppler.AnnotMarkup.AnnotMarkupGetDateMethodInfo+    ResolveAnnotCircleMethod "getExternalData" o = Poppler.AnnotMarkup.AnnotMarkupGetExternalDataMethodInfo+    ResolveAnnotCircleMethod "getFlags" o = Poppler.Annot.AnnotGetFlagsMethodInfo+    ResolveAnnotCircleMethod "getInteriorColor" o = AnnotCircleGetInteriorColorMethodInfo+    ResolveAnnotCircleMethod "getLabel" o = Poppler.AnnotMarkup.AnnotMarkupGetLabelMethodInfo+    ResolveAnnotCircleMethod "getModified" o = Poppler.Annot.AnnotGetModifiedMethodInfo+    ResolveAnnotCircleMethod "getName" o = Poppler.Annot.AnnotGetNameMethodInfo+    ResolveAnnotCircleMethod "getOpacity" o = Poppler.AnnotMarkup.AnnotMarkupGetOpacityMethodInfo+    ResolveAnnotCircleMethod "getPageIndex" o = Poppler.Annot.AnnotGetPageIndexMethodInfo+    ResolveAnnotCircleMethod "getPopupIsOpen" o = Poppler.AnnotMarkup.AnnotMarkupGetPopupIsOpenMethodInfo+    ResolveAnnotCircleMethod "getPopupRectangle" o = Poppler.AnnotMarkup.AnnotMarkupGetPopupRectangleMethodInfo+    ResolveAnnotCircleMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolveAnnotCircleMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolveAnnotCircleMethod "getRectangle" o = Poppler.Annot.AnnotGetRectangleMethodInfo+    ResolveAnnotCircleMethod "getReplyTo" o = Poppler.AnnotMarkup.AnnotMarkupGetReplyToMethodInfo+    ResolveAnnotCircleMethod "getSubject" o = Poppler.AnnotMarkup.AnnotMarkupGetSubjectMethodInfo+    ResolveAnnotCircleMethod "setColor" o = Poppler.Annot.AnnotSetColorMethodInfo+    ResolveAnnotCircleMethod "setContents" o = Poppler.Annot.AnnotSetContentsMethodInfo+    ResolveAnnotCircleMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolveAnnotCircleMethod "setFlags" o = Poppler.Annot.AnnotSetFlagsMethodInfo+    ResolveAnnotCircleMethod "setInteriorColor" o = AnnotCircleSetInteriorColorMethodInfo+    ResolveAnnotCircleMethod "setLabel" o = Poppler.AnnotMarkup.AnnotMarkupSetLabelMethodInfo+    ResolveAnnotCircleMethod "setOpacity" o = Poppler.AnnotMarkup.AnnotMarkupSetOpacityMethodInfo+    ResolveAnnotCircleMethod "setPopup" o = Poppler.AnnotMarkup.AnnotMarkupSetPopupMethodInfo+    ResolveAnnotCircleMethod "setPopupIsOpen" o = Poppler.AnnotMarkup.AnnotMarkupSetPopupIsOpenMethodInfo+    ResolveAnnotCircleMethod "setPopupRectangle" o = Poppler.AnnotMarkup.AnnotMarkupSetPopupRectangleMethodInfo+    ResolveAnnotCircleMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolveAnnotCircleMethod "setRectangle" o = Poppler.Annot.AnnotSetRectangleMethodInfo+    ResolveAnnotCircleMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveAnnotCircleMethod t AnnotCircle, O.MethodInfo info AnnotCircle p) => OL.IsLabel t (AnnotCircle -> p) where+#if MIN_VERSION_base(4,10,0)+    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)+#else+    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)+#endif++#endif++#if ENABLE_OVERLOADING+instance O.HasAttributeList AnnotCircle+type instance O.AttributeList AnnotCircle = AnnotCircleAttributeList+type AnnotCircleAttributeList = ('[ ] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+#endif++#if ENABLE_OVERLOADING+type instance O.SignalList AnnotCircle = AnnotCircleSignalList+type AnnotCircleSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])++#endif++-- method AnnotCircle::new+-- method type : Constructor+-- Args : [Arg {argCName = "doc", argType = TInterface (Name {namespace = "Poppler", name = "Document"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerDocument", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface (Name {namespace = "Poppler", name = "Rectangle"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerRectangle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "Poppler", name = "AnnotCircle"}))+-- throws : False+-- Skip return : False++foreign import ccall "poppler_annot_circle_new" poppler_annot_circle_new :: +    Ptr Poppler.Document.Document ->        -- doc : TInterface (Name {namespace = "Poppler", name = "Document"})+    Ptr Poppler.Rectangle.Rectangle ->      -- rect : TInterface (Name {namespace = "Poppler", name = "Rectangle"})+    IO (Ptr AnnotCircle)++{- |+Creates a new Circle annotation that will be+located on /@rect@/ when added to a page. See+'GI.Poppler.Objects.Page.pageAddAnnot'++/Since: 0.26/+-}+annotCircleNew ::+    (B.CallStack.HasCallStack, MonadIO m, Poppler.Document.IsDocument a) =>+    a+    {- ^ /@doc@/: a 'GI.Poppler.Objects.Document.Document' -}+    -> Poppler.Rectangle.Rectangle+    {- ^ /@rect@/: a 'GI.Poppler.Structs.Rectangle.Rectangle' -}+    -> m AnnotCircle+    {- ^ __Returns:__ a newly created 'GI.Poppler.Objects.AnnotCircle.AnnotCircle' annotation -}+annotCircleNew doc rect = liftIO $ do+    doc' <- unsafeManagedPtrCastPtr doc+    rect' <- unsafeManagedPtrGetPtr rect+    result <- poppler_annot_circle_new doc' rect'+    checkUnexpectedReturnNULL "annotCircleNew" result+    result' <- (wrapObject AnnotCircle) result+    touchManagedPtr doc+    touchManagedPtr rect+    return result'++#if ENABLE_OVERLOADING+#endif++-- method AnnotCircle::get_interior_color+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "poppler_annot", argType = TInterface (Name {namespace = "Poppler", name = "AnnotCircle"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerAnnotCircle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "Poppler", name = "Color"}))+-- throws : False+-- Skip return : False++foreign import ccall "poppler_annot_circle_get_interior_color" poppler_annot_circle_get_interior_color :: +    Ptr AnnotCircle ->                      -- poppler_annot : TInterface (Name {namespace = "Poppler", name = "AnnotCircle"})+    IO (Ptr Poppler.Color.Color)++{- |+Retrieves the interior color of /@popplerAnnot@/.++/Since: 0.26/+-}+annotCircleGetInteriorColor ::+    (B.CallStack.HasCallStack, MonadIO m, IsAnnotCircle a) =>+    a+    {- ^ /@popplerAnnot@/: a 'GI.Poppler.Objects.AnnotCircle.AnnotCircle' -}+    -> m Poppler.Color.Color+    {- ^ __Returns:__ a new allocated 'GI.Poppler.Structs.Color.Color' with the color values of+              /@popplerAnnot@/, or 'Nothing'. It must be freed with 'GI.GLib.Functions.free' when done. -}+annotCircleGetInteriorColor popplerAnnot = liftIO $ do+    popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot+    result <- poppler_annot_circle_get_interior_color popplerAnnot'+    checkUnexpectedReturnNULL "annotCircleGetInteriorColor" result+    result' <- (wrapBoxed Poppler.Color.Color) result+    touchManagedPtr popplerAnnot+    return result'++#if ENABLE_OVERLOADING+data AnnotCircleGetInteriorColorMethodInfo+instance (signature ~ (m Poppler.Color.Color), MonadIO m, IsAnnotCircle a) => O.MethodInfo AnnotCircleGetInteriorColorMethodInfo a signature where+    overloadedMethod _ = annotCircleGetInteriorColor++#endif++-- method AnnotCircle::set_interior_color+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "poppler_annot", argType = TInterface (Name {namespace = "Poppler", name = "AnnotCircle"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerAnnotCircle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "poppler_color", argType = TInterface (Name {namespace = "Poppler", name = "Color"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #PopplerColor, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "poppler_annot_circle_set_interior_color" poppler_annot_circle_set_interior_color :: +    Ptr AnnotCircle ->                      -- poppler_annot : TInterface (Name {namespace = "Poppler", name = "AnnotCircle"})+    Ptr Poppler.Color.Color ->              -- poppler_color : TInterface (Name {namespace = "Poppler", name = "Color"})+    IO ()++{- |+Sets the interior color of /@popplerAnnot@/.++/Since: 0.26/+-}+annotCircleSetInteriorColor ::+    (B.CallStack.HasCallStack, MonadIO m, IsAnnotCircle a) =>+    a+    {- ^ /@popplerAnnot@/: a 'GI.Poppler.Objects.AnnotCircle.AnnotCircle' -}+    -> Maybe (Poppler.Color.Color)+    {- ^ /@popplerColor@/: a 'GI.Poppler.Structs.Color.Color', or 'Nothing' -}+    -> m ()+annotCircleSetInteriorColor popplerAnnot popplerColor = liftIO $ do+    popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot+    maybePopplerColor <- case popplerColor of+        Nothing -> return nullPtr+        Just jPopplerColor -> do+            jPopplerColor' <- unsafeManagedPtrGetPtr jPopplerColor+            return jPopplerColor'+    poppler_annot_circle_set_interior_color popplerAnnot' maybePopplerColor+    touchManagedPtr popplerAnnot+    whenJust popplerColor touchManagedPtr+    return ()++#if ENABLE_OVERLOADING+data AnnotCircleSetInteriorColorMethodInfo+instance (signature ~ (Maybe (Poppler.Color.Color) -> m ()), MonadIO m, IsAnnotCircle a) => O.MethodInfo AnnotCircleSetInteriorColorMethodInfo a signature where+    overloadedMethod _ = annotCircleSetInteriorColor++#endif++

@@ -0,0 +1,35 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.Poppler.Objects.AnnotCircle where++import Data.GI.Base.ShortPrelude+import qualified Data.GI.Base.ShortPrelude as SP+import qualified Data.GI.Base.Overloading as O+import qualified Prelude as P++import qualified Data.GI.Base.Attributes as GI.Attributes+import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr+import qualified Data.GI.Base.GClosure as B.GClosure+import qualified Data.GI.Base.GError as B.GError+import qualified Data.GI.Base.GVariant as B.GVariant+import qualified Data.GI.Base.GValue as B.GValue+import qualified Data.GI.Base.GParamSpec as B.GParamSpec+import qualified Data.GI.Base.CallStack as B.CallStack+import qualified Data.GI.Base.Properties as B.Properties+import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map+import qualified Foreign.Ptr as FP+import qualified GHC.OverloadedLabels as OL++newtype AnnotCircle = AnnotCircle (ManagedPtr AnnotCircle)+instance GObject AnnotCircle where+class (GObject o, O.IsDescendantOf AnnotCircle o) => IsAnnotCircle o+instance (GObject o, O.IsDescendantOf AnnotCircle o) => IsAnnotCircle o+instance O.HasParentTypes AnnotCircle+#if ENABLE_OVERLOADING+data AnnotCircleGetInteriorColorMethodInfo+#endif+#if ENABLE_OVERLOADING+data AnnotCircleSetInteriorColorMethodInfo+#endif

@@ -0,0 +1,249 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.Poppler.Objects.AnnotFileAttachment+    ( ++-- * Exported types+    AnnotFileAttachment(..)                 ,+    IsAnnotFileAttachment                   ,+    toAnnotFileAttachment                   ,+    noAnnotFileAttachment                   ,+++ -- * Methods+-- ** getAttachment #method:getAttachment#++#if ENABLE_OVERLOADING+    AnnotFileAttachmentGetAttachmentMethodInfo,+#endif+    annotFileAttachmentGetAttachment        ,+++-- ** getName #method:getName#++#if ENABLE_OVERLOADING+    AnnotFileAttachmentGetNameMethodInfo    ,+#endif+    annotFileAttachmentGetName              ,+++++    ) where++import Data.GI.Base.ShortPrelude+import qualified Data.GI.Base.ShortPrelude as SP+import qualified Data.GI.Base.Overloading as O+import qualified Prelude as P++import qualified Data.GI.Base.Attributes as GI.Attributes+import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr+import qualified Data.GI.Base.GClosure as B.GClosure+import qualified Data.GI.Base.GError as B.GError+import qualified Data.GI.Base.GVariant as B.GVariant+import qualified Data.GI.Base.GValue as B.GValue+import qualified Data.GI.Base.GParamSpec as B.GParamSpec+import qualified Data.GI.Base.CallStack as B.CallStack+import qualified Data.GI.Base.Properties as B.Properties+import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map+import qualified Foreign.Ptr as FP+import qualified GHC.OverloadedLabels as OL++import qualified GI.GObject.Objects.Object as GObject.Object+import {-# SOURCE #-} qualified GI.Poppler.Objects.Annot as Poppler.Annot+import {-# SOURCE #-} qualified GI.Poppler.Objects.AnnotMarkup as Poppler.AnnotMarkup+import {-# SOURCE #-} qualified GI.Poppler.Objects.Attachment as Poppler.Attachment++-- | Memory-managed wrapper type.+newtype AnnotFileAttachment = AnnotFileAttachment (ManagedPtr AnnotFileAttachment)+foreign import ccall "poppler_annot_file_attachment_get_type"+    c_poppler_annot_file_attachment_get_type :: IO GType++instance GObject AnnotFileAttachment where+    gobjectType = c_poppler_annot_file_attachment_get_type+    ++-- | Type class for types which can be safely cast to `AnnotFileAttachment`, for instance with `toAnnotFileAttachment`.+class (GObject o, O.IsDescendantOf AnnotFileAttachment o) => IsAnnotFileAttachment o+instance (GObject o, O.IsDescendantOf AnnotFileAttachment o) => IsAnnotFileAttachment o++instance O.HasParentTypes AnnotFileAttachment+type instance O.ParentTypes AnnotFileAttachment = '[Poppler.AnnotMarkup.AnnotMarkup, Poppler.Annot.Annot, GObject.Object.Object]++-- | Cast to `AnnotFileAttachment`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toAnnotFileAttachment :: (MonadIO m, IsAnnotFileAttachment o) => o -> m AnnotFileAttachment+toAnnotFileAttachment = liftIO . unsafeCastTo AnnotFileAttachment++-- | A convenience alias for `Nothing` :: `Maybe` `AnnotFileAttachment`.+noAnnotFileAttachment :: Maybe AnnotFileAttachment+noAnnotFileAttachment = Nothing++#if ENABLE_OVERLOADING+type family ResolveAnnotFileAttachmentMethod (t :: Symbol) (o :: *) :: * where+    ResolveAnnotFileAttachmentMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolveAnnotFileAttachmentMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolveAnnotFileAttachmentMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolveAnnotFileAttachmentMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolveAnnotFileAttachmentMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolveAnnotFileAttachmentMethod "hasPopup" o = Poppler.AnnotMarkup.AnnotMarkupHasPopupMethodInfo+    ResolveAnnotFileAttachmentMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolveAnnotFileAttachmentMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolveAnnotFileAttachmentMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolveAnnotFileAttachmentMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolveAnnotFileAttachmentMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolveAnnotFileAttachmentMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolveAnnotFileAttachmentMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolveAnnotFileAttachmentMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolveAnnotFileAttachmentMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolveAnnotFileAttachmentMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolveAnnotFileAttachmentMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolveAnnotFileAttachmentMethod "getAnnotType" o = Poppler.Annot.AnnotGetAnnotTypeMethodInfo+    ResolveAnnotFileAttachmentMethod "getAttachment" o = AnnotFileAttachmentGetAttachmentMethodInfo+    ResolveAnnotFileAttachmentMethod "getColor" o = Poppler.Annot.AnnotGetColorMethodInfo+    ResolveAnnotFileAttachmentMethod "getContents" o = Poppler.Annot.AnnotGetContentsMethodInfo+    ResolveAnnotFileAttachmentMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolveAnnotFileAttachmentMethod "getDate" o = Poppler.AnnotMarkup.AnnotMarkupGetDateMethodInfo+    ResolveAnnotFileAttachmentMethod "getExternalData" o = Poppler.AnnotMarkup.AnnotMarkupGetExternalDataMethodInfo+    ResolveAnnotFileAttachmentMethod "getFlags" o = Poppler.Annot.AnnotGetFlagsMethodInfo+    ResolveAnnotFileAttachmentMethod "getLabel" o = Poppler.AnnotMarkup.AnnotMarkupGetLabelMethodInfo+    ResolveAnnotFileAttachmentMethod "getModified" o = Poppler.Annot.AnnotGetModifiedMethodInfo+    ResolveAnnotFileAttachmentMethod "getName" o = AnnotFileAttachmentGetNameMethodInfo+    ResolveAnnotFileAttachmentMethod "getOpacity" o = Poppler.AnnotMarkup.AnnotMarkupGetOpacityMethodInfo+    ResolveAnnotFileAttachmentMethod "getPageIndex" o = Poppler.Annot.AnnotGetPageIndexMethodInfo+    ResolveAnnotFileAttachmentMethod "getPopupIsOpen" o = Poppler.AnnotMarkup.AnnotMarkupGetPopupIsOpenMethodInfo+    ResolveAnnotFileAttachmentMethod "getPopupRectangle" o = Poppler.AnnotMarkup.AnnotMarkupGetPopupRectangleMethodInfo+    ResolveAnnotFileAttachmentMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolveAnnotFileAttachmentMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolveAnnotFileAttachmentMethod "getRectangle" o = Poppler.Annot.AnnotGetRectangleMethodInfo+    ResolveAnnotFileAttachmentMethod "getReplyTo" o = Poppler.AnnotMarkup.AnnotMarkupGetReplyToMethodInfo+    ResolveAnnotFileAttachmentMethod "getSubject" o = Poppler.AnnotMarkup.AnnotMarkupGetSubjectMethodInfo+    ResolveAnnotFileAttachmentMethod "setColor" o = Poppler.Annot.AnnotSetColorMethodInfo+    ResolveAnnotFileAttachmentMethod "setContents" o = Poppler.Annot.AnnotSetContentsMethodInfo+    ResolveAnnotFileAttachmentMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolveAnnotFileAttachmentMethod "setFlags" o = Poppler.Annot.AnnotSetFlagsMethodInfo+    ResolveAnnotFileAttachmentMethod "setLabel" o = Poppler.AnnotMarkup.AnnotMarkupSetLabelMethodInfo+    ResolveAnnotFileAttachmentMethod "setOpacity" o = Poppler.AnnotMarkup.AnnotMarkupSetOpacityMethodInfo+    ResolveAnnotFileAttachmentMethod "setPopup" o = Poppler.AnnotMarkup.AnnotMarkupSetPopupMethodInfo+    ResolveAnnotFileAttachmentMethod "setPopupIsOpen" o = Poppler.AnnotMarkup.AnnotMarkupSetPopupIsOpenMethodInfo+    ResolveAnnotFileAttachmentMethod "setPopupRectangle" o = Poppler.AnnotMarkup.AnnotMarkupSetPopupRectangleMethodInfo+    ResolveAnnotFileAttachmentMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolveAnnotFileAttachmentMethod "setRectangle" o = Poppler.Annot.AnnotSetRectangleMethodInfo+    ResolveAnnotFileAttachmentMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveAnnotFileAttachmentMethod t AnnotFileAttachment, O.MethodInfo info AnnotFileAttachment p) => OL.IsLabel t (AnnotFileAttachment -> p) where+#if MIN_VERSION_base(4,10,0)+    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)+#else+    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)+#endif++#endif++#if ENABLE_OVERLOADING+instance O.HasAttributeList AnnotFileAttachment+type instance O.AttributeList AnnotFileAttachment = AnnotFileAttachmentAttributeList+type AnnotFileAttachmentAttributeList = ('[ ] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+#endif++#if ENABLE_OVERLOADING+type instance O.SignalList AnnotFileAttachment = AnnotFileAttachmentSignalList+type AnnotFileAttachmentSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])++#endif++-- method AnnotFileAttachment::get_attachment+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "poppler_annot", argType = TInterface (Name {namespace = "Poppler", name = "AnnotFileAttachment"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerAnnotFileAttachment", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "Poppler", name = "Attachment"}))+-- throws : False+-- Skip return : False++foreign import ccall "poppler_annot_file_attachment_get_attachment" poppler_annot_file_attachment_get_attachment :: +    Ptr AnnotFileAttachment ->              -- poppler_annot : TInterface (Name {namespace = "Poppler", name = "AnnotFileAttachment"})+    IO (Ptr Poppler.Attachment.Attachment)++{- |+Creates a 'GI.Poppler.Objects.Attachment.Attachment' for the file of the file attachment annotation /@annot@/.+The 'GI.Poppler.Objects.Attachment.Attachment' must be unrefed with g_object_unref by the caller.++/Since: 0.14/+-}+annotFileAttachmentGetAttachment ::+    (B.CallStack.HasCallStack, MonadIO m, IsAnnotFileAttachment a) =>+    a+    {- ^ /@popplerAnnot@/: a 'GI.Poppler.Objects.AnnotFileAttachment.AnnotFileAttachment' -}+    -> m Poppler.Attachment.Attachment+    {- ^ __Returns:__ /@popplerAttachment@/ -}+annotFileAttachmentGetAttachment popplerAnnot = liftIO $ do+    popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot+    result <- poppler_annot_file_attachment_get_attachment popplerAnnot'+    checkUnexpectedReturnNULL "annotFileAttachmentGetAttachment" result+    result' <- (wrapObject Poppler.Attachment.Attachment) result+    touchManagedPtr popplerAnnot+    return result'++#if ENABLE_OVERLOADING+data AnnotFileAttachmentGetAttachmentMethodInfo+instance (signature ~ (m Poppler.Attachment.Attachment), MonadIO m, IsAnnotFileAttachment a) => O.MethodInfo AnnotFileAttachmentGetAttachmentMethodInfo a signature where+    overloadedMethod _ = annotFileAttachmentGetAttachment++#endif++-- method AnnotFileAttachment::get_name+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "poppler_annot", argType = TInterface (Name {namespace = "Poppler", name = "AnnotFileAttachment"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerAnnotFileAttachment", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "poppler_annot_file_attachment_get_name" poppler_annot_file_attachment_get_name :: +    Ptr AnnotFileAttachment ->              -- poppler_annot : TInterface (Name {namespace = "Poppler", name = "AnnotFileAttachment"})+    IO CString++{- |+Retrieves the name of /@popplerAnnot@/.++/Since: 0.14/+-}+annotFileAttachmentGetName ::+    (B.CallStack.HasCallStack, MonadIO m, IsAnnotFileAttachment a) =>+    a+    {- ^ /@popplerAnnot@/: a 'GI.Poppler.Objects.AnnotFileAttachment.AnnotFileAttachment' -}+    -> m T.Text+    {- ^ __Returns:__ a new allocated string with the name of /@popplerAnnot@/. It must+              be freed with 'GI.GLib.Functions.free' when done. -}+annotFileAttachmentGetName popplerAnnot = liftIO $ do+    popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot+    result <- poppler_annot_file_attachment_get_name popplerAnnot'+    checkUnexpectedReturnNULL "annotFileAttachmentGetName" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr popplerAnnot+    return result'++#if ENABLE_OVERLOADING+data AnnotFileAttachmentGetNameMethodInfo+instance (signature ~ (m T.Text), MonadIO m, IsAnnotFileAttachment a) => O.MethodInfo AnnotFileAttachmentGetNameMethodInfo a signature where+    overloadedMethod _ = annotFileAttachmentGetName++#endif++

@@ -0,0 +1,35 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.Poppler.Objects.AnnotFileAttachment where++import Data.GI.Base.ShortPrelude+import qualified Data.GI.Base.ShortPrelude as SP+import qualified Data.GI.Base.Overloading as O+import qualified Prelude as P++import qualified Data.GI.Base.Attributes as GI.Attributes+import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr+import qualified Data.GI.Base.GClosure as B.GClosure+import qualified Data.GI.Base.GError as B.GError+import qualified Data.GI.Base.GVariant as B.GVariant+import qualified Data.GI.Base.GValue as B.GValue+import qualified Data.GI.Base.GParamSpec as B.GParamSpec+import qualified Data.GI.Base.CallStack as B.CallStack+import qualified Data.GI.Base.Properties as B.Properties+import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map+import qualified Foreign.Ptr as FP+import qualified GHC.OverloadedLabels as OL++newtype AnnotFileAttachment = AnnotFileAttachment (ManagedPtr AnnotFileAttachment)+instance GObject AnnotFileAttachment where+class (GObject o, O.IsDescendantOf AnnotFileAttachment o) => IsAnnotFileAttachment o+instance (GObject o, O.IsDescendantOf AnnotFileAttachment o) => IsAnnotFileAttachment o+instance O.HasParentTypes AnnotFileAttachment+#if ENABLE_OVERLOADING+data AnnotFileAttachmentGetAttachmentMethodInfo+#endif+#if ENABLE_OVERLOADING+data AnnotFileAttachmentGetNameMethodInfo+#endif

@@ -0,0 +1,246 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.Poppler.Objects.AnnotFreeText+    ( ++-- * Exported types+    AnnotFreeText(..)                       ,+    IsAnnotFreeText                         ,+    toAnnotFreeText                         ,+    noAnnotFreeText                         ,+++ -- * Methods+-- ** getCalloutLine #method:getCalloutLine#++#if ENABLE_OVERLOADING+    AnnotFreeTextGetCalloutLineMethodInfo   ,+#endif+    annotFreeTextGetCalloutLine             ,+++-- ** getQuadding #method:getQuadding#++#if ENABLE_OVERLOADING+    AnnotFreeTextGetQuaddingMethodInfo      ,+#endif+    annotFreeTextGetQuadding                ,+++++    ) where++import Data.GI.Base.ShortPrelude+import qualified Data.GI.Base.ShortPrelude as SP+import qualified Data.GI.Base.Overloading as O+import qualified Prelude as P++import qualified Data.GI.Base.Attributes as GI.Attributes+import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr+import qualified Data.GI.Base.GClosure as B.GClosure+import qualified Data.GI.Base.GError as B.GError+import qualified Data.GI.Base.GVariant as B.GVariant+import qualified Data.GI.Base.GValue as B.GValue+import qualified Data.GI.Base.GParamSpec as B.GParamSpec+import qualified Data.GI.Base.CallStack as B.CallStack+import qualified Data.GI.Base.Properties as B.Properties+import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map+import qualified Foreign.Ptr as FP+import qualified GHC.OverloadedLabels as OL++import qualified GI.GObject.Objects.Object as GObject.Object+import {-# SOURCE #-} qualified GI.Poppler.Enums as Poppler.Enums+import {-# SOURCE #-} qualified GI.Poppler.Objects.Annot as Poppler.Annot+import {-# SOURCE #-} qualified GI.Poppler.Objects.AnnotMarkup as Poppler.AnnotMarkup+import {-# SOURCE #-} qualified GI.Poppler.Structs.AnnotCalloutLine as Poppler.AnnotCalloutLine++-- | Memory-managed wrapper type.+newtype AnnotFreeText = AnnotFreeText (ManagedPtr AnnotFreeText)+foreign import ccall "poppler_annot_free_text_get_type"+    c_poppler_annot_free_text_get_type :: IO GType++instance GObject AnnotFreeText where+    gobjectType = c_poppler_annot_free_text_get_type+    ++-- | Type class for types which can be safely cast to `AnnotFreeText`, for instance with `toAnnotFreeText`.+class (GObject o, O.IsDescendantOf AnnotFreeText o) => IsAnnotFreeText o+instance (GObject o, O.IsDescendantOf AnnotFreeText o) => IsAnnotFreeText o++instance O.HasParentTypes AnnotFreeText+type instance O.ParentTypes AnnotFreeText = '[Poppler.AnnotMarkup.AnnotMarkup, Poppler.Annot.Annot, GObject.Object.Object]++-- | Cast to `AnnotFreeText`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toAnnotFreeText :: (MonadIO m, IsAnnotFreeText o) => o -> m AnnotFreeText+toAnnotFreeText = liftIO . unsafeCastTo AnnotFreeText++-- | A convenience alias for `Nothing` :: `Maybe` `AnnotFreeText`.+noAnnotFreeText :: Maybe AnnotFreeText+noAnnotFreeText = Nothing++#if ENABLE_OVERLOADING+type family ResolveAnnotFreeTextMethod (t :: Symbol) (o :: *) :: * where+    ResolveAnnotFreeTextMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolveAnnotFreeTextMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolveAnnotFreeTextMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolveAnnotFreeTextMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolveAnnotFreeTextMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolveAnnotFreeTextMethod "hasPopup" o = Poppler.AnnotMarkup.AnnotMarkupHasPopupMethodInfo+    ResolveAnnotFreeTextMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolveAnnotFreeTextMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolveAnnotFreeTextMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolveAnnotFreeTextMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolveAnnotFreeTextMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolveAnnotFreeTextMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolveAnnotFreeTextMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolveAnnotFreeTextMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolveAnnotFreeTextMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolveAnnotFreeTextMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolveAnnotFreeTextMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolveAnnotFreeTextMethod "getAnnotType" o = Poppler.Annot.AnnotGetAnnotTypeMethodInfo+    ResolveAnnotFreeTextMethod "getCalloutLine" o = AnnotFreeTextGetCalloutLineMethodInfo+    ResolveAnnotFreeTextMethod "getColor" o = Poppler.Annot.AnnotGetColorMethodInfo+    ResolveAnnotFreeTextMethod "getContents" o = Poppler.Annot.AnnotGetContentsMethodInfo+    ResolveAnnotFreeTextMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolveAnnotFreeTextMethod "getDate" o = Poppler.AnnotMarkup.AnnotMarkupGetDateMethodInfo+    ResolveAnnotFreeTextMethod "getExternalData" o = Poppler.AnnotMarkup.AnnotMarkupGetExternalDataMethodInfo+    ResolveAnnotFreeTextMethod "getFlags" o = Poppler.Annot.AnnotGetFlagsMethodInfo+    ResolveAnnotFreeTextMethod "getLabel" o = Poppler.AnnotMarkup.AnnotMarkupGetLabelMethodInfo+    ResolveAnnotFreeTextMethod "getModified" o = Poppler.Annot.AnnotGetModifiedMethodInfo+    ResolveAnnotFreeTextMethod "getName" o = Poppler.Annot.AnnotGetNameMethodInfo+    ResolveAnnotFreeTextMethod "getOpacity" o = Poppler.AnnotMarkup.AnnotMarkupGetOpacityMethodInfo+    ResolveAnnotFreeTextMethod "getPageIndex" o = Poppler.Annot.AnnotGetPageIndexMethodInfo+    ResolveAnnotFreeTextMethod "getPopupIsOpen" o = Poppler.AnnotMarkup.AnnotMarkupGetPopupIsOpenMethodInfo+    ResolveAnnotFreeTextMethod "getPopupRectangle" o = Poppler.AnnotMarkup.AnnotMarkupGetPopupRectangleMethodInfo+    ResolveAnnotFreeTextMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolveAnnotFreeTextMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolveAnnotFreeTextMethod "getQuadding" o = AnnotFreeTextGetQuaddingMethodInfo+    ResolveAnnotFreeTextMethod "getRectangle" o = Poppler.Annot.AnnotGetRectangleMethodInfo+    ResolveAnnotFreeTextMethod "getReplyTo" o = Poppler.AnnotMarkup.AnnotMarkupGetReplyToMethodInfo+    ResolveAnnotFreeTextMethod "getSubject" o = Poppler.AnnotMarkup.AnnotMarkupGetSubjectMethodInfo+    ResolveAnnotFreeTextMethod "setColor" o = Poppler.Annot.AnnotSetColorMethodInfo+    ResolveAnnotFreeTextMethod "setContents" o = Poppler.Annot.AnnotSetContentsMethodInfo+    ResolveAnnotFreeTextMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolveAnnotFreeTextMethod "setFlags" o = Poppler.Annot.AnnotSetFlagsMethodInfo+    ResolveAnnotFreeTextMethod "setLabel" o = Poppler.AnnotMarkup.AnnotMarkupSetLabelMethodInfo+    ResolveAnnotFreeTextMethod "setOpacity" o = Poppler.AnnotMarkup.AnnotMarkupSetOpacityMethodInfo+    ResolveAnnotFreeTextMethod "setPopup" o = Poppler.AnnotMarkup.AnnotMarkupSetPopupMethodInfo+    ResolveAnnotFreeTextMethod "setPopupIsOpen" o = Poppler.AnnotMarkup.AnnotMarkupSetPopupIsOpenMethodInfo+    ResolveAnnotFreeTextMethod "setPopupRectangle" o = Poppler.AnnotMarkup.AnnotMarkupSetPopupRectangleMethodInfo+    ResolveAnnotFreeTextMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolveAnnotFreeTextMethod "setRectangle" o = Poppler.Annot.AnnotSetRectangleMethodInfo+    ResolveAnnotFreeTextMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveAnnotFreeTextMethod t AnnotFreeText, O.MethodInfo info AnnotFreeText p) => OL.IsLabel t (AnnotFreeText -> p) where+#if MIN_VERSION_base(4,10,0)+    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)+#else+    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)+#endif++#endif++#if ENABLE_OVERLOADING+instance O.HasAttributeList AnnotFreeText+type instance O.AttributeList AnnotFreeText = AnnotFreeTextAttributeList+type AnnotFreeTextAttributeList = ('[ ] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+#endif++#if ENABLE_OVERLOADING+type instance O.SignalList AnnotFreeText = AnnotFreeTextSignalList+type AnnotFreeTextSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])++#endif++-- method AnnotFreeText::get_callout_line+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "poppler_annot", argType = TInterface (Name {namespace = "Poppler", name = "AnnotFreeText"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerAnnotFreeText", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "Poppler", name = "AnnotCalloutLine"}))+-- throws : False+-- Skip return : False++foreign import ccall "poppler_annot_free_text_get_callout_line" poppler_annot_free_text_get_callout_line :: +    Ptr AnnotFreeText ->                    -- poppler_annot : TInterface (Name {namespace = "Poppler", name = "AnnotFreeText"})+    IO (Ptr Poppler.AnnotCalloutLine.AnnotCalloutLine)++{- |+Retrieves a 'GI.Poppler.Structs.AnnotCalloutLine.AnnotCalloutLine' of four or six numbers specifying a callout+line attached to the /@popplerAnnot@/.+-}+annotFreeTextGetCalloutLine ::+    (B.CallStack.HasCallStack, MonadIO m, IsAnnotFreeText a) =>+    a+    {- ^ /@popplerAnnot@/: a 'GI.Poppler.Objects.AnnotFreeText.AnnotFreeText' -}+    -> m Poppler.AnnotCalloutLine.AnnotCalloutLine+    {- ^ __Returns:__ a new allocated 'GI.Poppler.Structs.AnnotCalloutLine.AnnotCalloutLine' if the annot has a callout+              line, 'Nothing' in other case. It must be freed with 'GI.GLib.Functions.free' when+              done. -}+annotFreeTextGetCalloutLine popplerAnnot = liftIO $ do+    popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot+    result <- poppler_annot_free_text_get_callout_line popplerAnnot'+    checkUnexpectedReturnNULL "annotFreeTextGetCalloutLine" result+    result' <- (wrapBoxed Poppler.AnnotCalloutLine.AnnotCalloutLine) result+    touchManagedPtr popplerAnnot+    return result'++#if ENABLE_OVERLOADING+data AnnotFreeTextGetCalloutLineMethodInfo+instance (signature ~ (m Poppler.AnnotCalloutLine.AnnotCalloutLine), MonadIO m, IsAnnotFreeText a) => O.MethodInfo AnnotFreeTextGetCalloutLineMethodInfo a signature where+    overloadedMethod _ = annotFreeTextGetCalloutLine++#endif++-- method AnnotFreeText::get_quadding+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "poppler_annot", argType = TInterface (Name {namespace = "Poppler", name = "AnnotFreeText"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerAnnotFreeText", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "Poppler", name = "AnnotFreeTextQuadding"}))+-- throws : False+-- Skip return : False++foreign import ccall "poppler_annot_free_text_get_quadding" poppler_annot_free_text_get_quadding :: +    Ptr AnnotFreeText ->                    -- poppler_annot : TInterface (Name {namespace = "Poppler", name = "AnnotFreeText"})+    IO CUInt++{- |+Retrieves the justification of the text of /@popplerAnnot@/.+-}+annotFreeTextGetQuadding ::+    (B.CallStack.HasCallStack, MonadIO m, IsAnnotFreeText a) =>+    a+    {- ^ /@popplerAnnot@/: a 'GI.Poppler.Objects.AnnotFreeText.AnnotFreeText' -}+    -> m Poppler.Enums.AnnotFreeTextQuadding+    {- ^ __Returns:__ 'GI.Poppler.Enums.AnnotFreeTextQuadding' of /@popplerAnnot@/. -}+annotFreeTextGetQuadding popplerAnnot = liftIO $ do+    popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot+    result <- poppler_annot_free_text_get_quadding popplerAnnot'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr popplerAnnot+    return result'++#if ENABLE_OVERLOADING+data AnnotFreeTextGetQuaddingMethodInfo+instance (signature ~ (m Poppler.Enums.AnnotFreeTextQuadding), MonadIO m, IsAnnotFreeText a) => O.MethodInfo AnnotFreeTextGetQuaddingMethodInfo a signature where+    overloadedMethod _ = annotFreeTextGetQuadding++#endif++

@@ -0,0 +1,35 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.Poppler.Objects.AnnotFreeText where++import Data.GI.Base.ShortPrelude+import qualified Data.GI.Base.ShortPrelude as SP+import qualified Data.GI.Base.Overloading as O+import qualified Prelude as P++import qualified Data.GI.Base.Attributes as GI.Attributes+import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr+import qualified Data.GI.Base.GClosure as B.GClosure+import qualified Data.GI.Base.GError as B.GError+import qualified Data.GI.Base.GVariant as B.GVariant+import qualified Data.GI.Base.GValue as B.GValue+import qualified Data.GI.Base.GParamSpec as B.GParamSpec+import qualified Data.GI.Base.CallStack as B.CallStack+import qualified Data.GI.Base.Properties as B.Properties+import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map+import qualified Foreign.Ptr as FP+import qualified GHC.OverloadedLabels as OL++newtype AnnotFreeText = AnnotFreeText (ManagedPtr AnnotFreeText)+instance GObject AnnotFreeText where+class (GObject o, O.IsDescendantOf AnnotFreeText o) => IsAnnotFreeText o+instance (GObject o, O.IsDescendantOf AnnotFreeText o) => IsAnnotFreeText o+instance O.HasParentTypes AnnotFreeText+#if ENABLE_OVERLOADING+data AnnotFreeTextGetCalloutLineMethodInfo+#endif+#if ENABLE_OVERLOADING+data AnnotFreeTextGetQuaddingMethodInfo+#endif

@@ -0,0 +1,265 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.Poppler.Objects.AnnotLine+    ( ++-- * Exported types+    AnnotLine(..)                           ,+    IsAnnotLine                             ,+    toAnnotLine                             ,+    noAnnotLine                             ,+++ -- * Methods+-- ** new #method:new#++    annotLineNew                            ,+++-- ** setVertices #method:setVertices#++#if ENABLE_OVERLOADING+    AnnotLineSetVerticesMethodInfo          ,+#endif+    annotLineSetVertices                    ,+++++    ) where++import Data.GI.Base.ShortPrelude+import qualified Data.GI.Base.ShortPrelude as SP+import qualified Data.GI.Base.Overloading as O+import qualified Prelude as P++import qualified Data.GI.Base.Attributes as GI.Attributes+import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr+import qualified Data.GI.Base.GClosure as B.GClosure+import qualified Data.GI.Base.GError as B.GError+import qualified Data.GI.Base.GVariant as B.GVariant+import qualified Data.GI.Base.GValue as B.GValue+import qualified Data.GI.Base.GParamSpec as B.GParamSpec+import qualified Data.GI.Base.CallStack as B.CallStack+import qualified Data.GI.Base.Properties as B.Properties+import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map+import qualified Foreign.Ptr as FP+import qualified GHC.OverloadedLabels as OL++import qualified GI.GObject.Objects.Object as GObject.Object+import {-# SOURCE #-} qualified GI.Poppler.Objects.Annot as Poppler.Annot+import {-# SOURCE #-} qualified GI.Poppler.Objects.AnnotMarkup as Poppler.AnnotMarkup+import {-# SOURCE #-} qualified GI.Poppler.Objects.Document as Poppler.Document+import {-# SOURCE #-} qualified GI.Poppler.Structs.Point as Poppler.Point+import {-# SOURCE #-} qualified GI.Poppler.Structs.Rectangle as Poppler.Rectangle++-- | Memory-managed wrapper type.+newtype AnnotLine = AnnotLine (ManagedPtr AnnotLine)+foreign import ccall "poppler_annot_line_get_type"+    c_poppler_annot_line_get_type :: IO GType++instance GObject AnnotLine where+    gobjectType = c_poppler_annot_line_get_type+    ++-- | Type class for types which can be safely cast to `AnnotLine`, for instance with `toAnnotLine`.+class (GObject o, O.IsDescendantOf AnnotLine o) => IsAnnotLine o+instance (GObject o, O.IsDescendantOf AnnotLine o) => IsAnnotLine o++instance O.HasParentTypes AnnotLine+type instance O.ParentTypes AnnotLine = '[Poppler.AnnotMarkup.AnnotMarkup, Poppler.Annot.Annot, GObject.Object.Object]++-- | Cast to `AnnotLine`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toAnnotLine :: (MonadIO m, IsAnnotLine o) => o -> m AnnotLine+toAnnotLine = liftIO . unsafeCastTo AnnotLine++-- | A convenience alias for `Nothing` :: `Maybe` `AnnotLine`.+noAnnotLine :: Maybe AnnotLine+noAnnotLine = Nothing++#if ENABLE_OVERLOADING+type family ResolveAnnotLineMethod (t :: Symbol) (o :: *) :: * where+    ResolveAnnotLineMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolveAnnotLineMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolveAnnotLineMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolveAnnotLineMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolveAnnotLineMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolveAnnotLineMethod "hasPopup" o = Poppler.AnnotMarkup.AnnotMarkupHasPopupMethodInfo+    ResolveAnnotLineMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolveAnnotLineMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolveAnnotLineMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolveAnnotLineMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolveAnnotLineMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolveAnnotLineMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolveAnnotLineMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolveAnnotLineMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolveAnnotLineMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolveAnnotLineMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolveAnnotLineMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolveAnnotLineMethod "getAnnotType" o = Poppler.Annot.AnnotGetAnnotTypeMethodInfo+    ResolveAnnotLineMethod "getColor" o = Poppler.Annot.AnnotGetColorMethodInfo+    ResolveAnnotLineMethod "getContents" o = Poppler.Annot.AnnotGetContentsMethodInfo+    ResolveAnnotLineMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolveAnnotLineMethod "getDate" o = Poppler.AnnotMarkup.AnnotMarkupGetDateMethodInfo+    ResolveAnnotLineMethod "getExternalData" o = Poppler.AnnotMarkup.AnnotMarkupGetExternalDataMethodInfo+    ResolveAnnotLineMethod "getFlags" o = Poppler.Annot.AnnotGetFlagsMethodInfo+    ResolveAnnotLineMethod "getLabel" o = Poppler.AnnotMarkup.AnnotMarkupGetLabelMethodInfo+    ResolveAnnotLineMethod "getModified" o = Poppler.Annot.AnnotGetModifiedMethodInfo+    ResolveAnnotLineMethod "getName" o = Poppler.Annot.AnnotGetNameMethodInfo+    ResolveAnnotLineMethod "getOpacity" o = Poppler.AnnotMarkup.AnnotMarkupGetOpacityMethodInfo+    ResolveAnnotLineMethod "getPageIndex" o = Poppler.Annot.AnnotGetPageIndexMethodInfo+    ResolveAnnotLineMethod "getPopupIsOpen" o = Poppler.AnnotMarkup.AnnotMarkupGetPopupIsOpenMethodInfo+    ResolveAnnotLineMethod "getPopupRectangle" o = Poppler.AnnotMarkup.AnnotMarkupGetPopupRectangleMethodInfo+    ResolveAnnotLineMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolveAnnotLineMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolveAnnotLineMethod "getRectangle" o = Poppler.Annot.AnnotGetRectangleMethodInfo+    ResolveAnnotLineMethod "getReplyTo" o = Poppler.AnnotMarkup.AnnotMarkupGetReplyToMethodInfo+    ResolveAnnotLineMethod "getSubject" o = Poppler.AnnotMarkup.AnnotMarkupGetSubjectMethodInfo+    ResolveAnnotLineMethod "setColor" o = Poppler.Annot.AnnotSetColorMethodInfo+    ResolveAnnotLineMethod "setContents" o = Poppler.Annot.AnnotSetContentsMethodInfo+    ResolveAnnotLineMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolveAnnotLineMethod "setFlags" o = Poppler.Annot.AnnotSetFlagsMethodInfo+    ResolveAnnotLineMethod "setLabel" o = Poppler.AnnotMarkup.AnnotMarkupSetLabelMethodInfo+    ResolveAnnotLineMethod "setOpacity" o = Poppler.AnnotMarkup.AnnotMarkupSetOpacityMethodInfo+    ResolveAnnotLineMethod "setPopup" o = Poppler.AnnotMarkup.AnnotMarkupSetPopupMethodInfo+    ResolveAnnotLineMethod "setPopupIsOpen" o = Poppler.AnnotMarkup.AnnotMarkupSetPopupIsOpenMethodInfo+    ResolveAnnotLineMethod "setPopupRectangle" o = Poppler.AnnotMarkup.AnnotMarkupSetPopupRectangleMethodInfo+    ResolveAnnotLineMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolveAnnotLineMethod "setRectangle" o = Poppler.Annot.AnnotSetRectangleMethodInfo+    ResolveAnnotLineMethod "setVertices" o = AnnotLineSetVerticesMethodInfo+    ResolveAnnotLineMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveAnnotLineMethod t AnnotLine, O.MethodInfo info AnnotLine p) => OL.IsLabel t (AnnotLine -> p) where+#if MIN_VERSION_base(4,10,0)+    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)+#else+    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)+#endif++#endif++#if ENABLE_OVERLOADING+instance O.HasAttributeList AnnotLine+type instance O.AttributeList AnnotLine = AnnotLineAttributeList+type AnnotLineAttributeList = ('[ ] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+#endif++#if ENABLE_OVERLOADING+type instance O.SignalList AnnotLine = AnnotLineSignalList+type AnnotLineSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])++#endif++-- method AnnotLine::new+-- method type : Constructor+-- Args : [Arg {argCName = "doc", argType = TInterface (Name {namespace = "Poppler", name = "Document"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerDocument", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface (Name {namespace = "Poppler", name = "Rectangle"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerRectangle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface (Name {namespace = "Poppler", name = "Point"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerPoint of the starting vertice", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface (Name {namespace = "Poppler", name = "Point"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerPoint of the ending vertice", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "Poppler", name = "AnnotLine"}))+-- throws : False+-- Skip return : False++foreign import ccall "poppler_annot_line_new" poppler_annot_line_new :: +    Ptr Poppler.Document.Document ->        -- doc : TInterface (Name {namespace = "Poppler", name = "Document"})+    Ptr Poppler.Rectangle.Rectangle ->      -- rect : TInterface (Name {namespace = "Poppler", name = "Rectangle"})+    Ptr Poppler.Point.Point ->              -- start : TInterface (Name {namespace = "Poppler", name = "Point"})+    Ptr Poppler.Point.Point ->              -- end : TInterface (Name {namespace = "Poppler", name = "Point"})+    IO (Ptr AnnotLine)++{- |+Creates a new Line annotation that will be+located on /@rect@/ when added to a page. See+'GI.Poppler.Objects.Page.pageAddAnnot'++/Since: 0.26/+-}+annotLineNew ::+    (B.CallStack.HasCallStack, MonadIO m, Poppler.Document.IsDocument a) =>+    a+    {- ^ /@doc@/: a 'GI.Poppler.Objects.Document.Document' -}+    -> Poppler.Rectangle.Rectangle+    {- ^ /@rect@/: a 'GI.Poppler.Structs.Rectangle.Rectangle' -}+    -> Poppler.Point.Point+    {- ^ /@start@/: a 'GI.Poppler.Structs.Point.Point' of the starting vertice -}+    -> Poppler.Point.Point+    {- ^ /@end@/: a 'GI.Poppler.Structs.Point.Point' of the ending vertice -}+    -> m AnnotLine+    {- ^ __Returns:__ A newly created 'GI.Poppler.Objects.AnnotLine.AnnotLine' annotation -}+annotLineNew doc rect start end = liftIO $ do+    doc' <- unsafeManagedPtrCastPtr doc+    rect' <- unsafeManagedPtrGetPtr rect+    start' <- unsafeManagedPtrGetPtr start+    end' <- unsafeManagedPtrGetPtr end+    result <- poppler_annot_line_new doc' rect' start' end'+    checkUnexpectedReturnNULL "annotLineNew" result+    result' <- (wrapObject AnnotLine) result+    touchManagedPtr doc+    touchManagedPtr rect+    touchManagedPtr start+    touchManagedPtr end+    return result'++#if ENABLE_OVERLOADING+#endif++-- method AnnotLine::set_vertices+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "poppler_annot", argType = TInterface (Name {namespace = "Poppler", name = "AnnotLine"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerAnnotLine", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface (Name {namespace = "Poppler", name = "Point"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerPoint of the starting vertice", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface (Name {namespace = "Poppler", name = "Point"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerPoint of the ending vertice", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "poppler_annot_line_set_vertices" poppler_annot_line_set_vertices :: +    Ptr AnnotLine ->                        -- poppler_annot : TInterface (Name {namespace = "Poppler", name = "AnnotLine"})+    Ptr Poppler.Point.Point ->              -- start : TInterface (Name {namespace = "Poppler", name = "Point"})+    Ptr Poppler.Point.Point ->              -- end : TInterface (Name {namespace = "Poppler", name = "Point"})+    IO ()++{- |+Set the coordinate points where the /@popplerAnnot@/ starts and ends.++/Since: 0.26/+-}+annotLineSetVertices ::+    (B.CallStack.HasCallStack, MonadIO m, IsAnnotLine a) =>+    a+    {- ^ /@popplerAnnot@/: a 'GI.Poppler.Objects.AnnotLine.AnnotLine' -}+    -> Poppler.Point.Point+    {- ^ /@start@/: a 'GI.Poppler.Structs.Point.Point' of the starting vertice -}+    -> Poppler.Point.Point+    {- ^ /@end@/: a 'GI.Poppler.Structs.Point.Point' of the ending vertice -}+    -> m ()+annotLineSetVertices popplerAnnot start end = liftIO $ do+    popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot+    start' <- unsafeManagedPtrGetPtr start+    end' <- unsafeManagedPtrGetPtr end+    poppler_annot_line_set_vertices popplerAnnot' start' end'+    touchManagedPtr popplerAnnot+    touchManagedPtr start+    touchManagedPtr end+    return ()++#if ENABLE_OVERLOADING+data AnnotLineSetVerticesMethodInfo+instance (signature ~ (Poppler.Point.Point -> Poppler.Point.Point -> m ()), MonadIO m, IsAnnotLine a) => O.MethodInfo AnnotLineSetVerticesMethodInfo a signature where+    overloadedMethod _ = annotLineSetVertices++#endif++

@@ -0,0 +1,32 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.Poppler.Objects.AnnotLine where++import Data.GI.Base.ShortPrelude+import qualified Data.GI.Base.ShortPrelude as SP+import qualified Data.GI.Base.Overloading as O+import qualified Prelude as P++import qualified Data.GI.Base.Attributes as GI.Attributes+import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr+import qualified Data.GI.Base.GClosure as B.GClosure+import qualified Data.GI.Base.GError as B.GError+import qualified Data.GI.Base.GVariant as B.GVariant+import qualified Data.GI.Base.GValue as B.GValue+import qualified Data.GI.Base.GParamSpec as B.GParamSpec+import qualified Data.GI.Base.CallStack as B.CallStack+import qualified Data.GI.Base.Properties as B.Properties+import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map+import qualified Foreign.Ptr as FP+import qualified GHC.OverloadedLabels as OL++newtype AnnotLine = AnnotLine (ManagedPtr AnnotLine)+instance GObject AnnotLine where+class (GObject o, O.IsDescendantOf AnnotLine o) => IsAnnotLine o+instance (GObject o, O.IsDescendantOf AnnotLine o) => IsAnnotLine o+instance O.HasParentTypes AnnotLine+#if ENABLE_OVERLOADING+data AnnotLineSetVerticesMethodInfo+#endif

@@ -0,0 +1,804 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.Poppler.Objects.AnnotMarkup+    ( ++-- * Exported types+    AnnotMarkup(..)                         ,+    IsAnnotMarkup                           ,+    toAnnotMarkup                           ,+    noAnnotMarkup                           ,+++ -- * Methods+-- ** getDate #method:getDate#++#if ENABLE_OVERLOADING+    AnnotMarkupGetDateMethodInfo            ,+#endif+    annotMarkupGetDate                      ,+++-- ** getExternalData #method:getExternalData#++#if ENABLE_OVERLOADING+    AnnotMarkupGetExternalDataMethodInfo    ,+#endif+    annotMarkupGetExternalData              ,+++-- ** getLabel #method:getLabel#++#if ENABLE_OVERLOADING+    AnnotMarkupGetLabelMethodInfo           ,+#endif+    annotMarkupGetLabel                     ,+++-- ** getOpacity #method:getOpacity#++#if ENABLE_OVERLOADING+    AnnotMarkupGetOpacityMethodInfo         ,+#endif+    annotMarkupGetOpacity                   ,+++-- ** getPopupIsOpen #method:getPopupIsOpen#++#if ENABLE_OVERLOADING+    AnnotMarkupGetPopupIsOpenMethodInfo     ,+#endif+    annotMarkupGetPopupIsOpen               ,+++-- ** getPopupRectangle #method:getPopupRectangle#++#if ENABLE_OVERLOADING+    AnnotMarkupGetPopupRectangleMethodInfo  ,+#endif+    annotMarkupGetPopupRectangle            ,+++-- ** getReplyTo #method:getReplyTo#++#if ENABLE_OVERLOADING+    AnnotMarkupGetReplyToMethodInfo         ,+#endif+    annotMarkupGetReplyTo                   ,+++-- ** getSubject #method:getSubject#++#if ENABLE_OVERLOADING+    AnnotMarkupGetSubjectMethodInfo         ,+#endif+    annotMarkupGetSubject                   ,+++-- ** hasPopup #method:hasPopup#++#if ENABLE_OVERLOADING+    AnnotMarkupHasPopupMethodInfo           ,+#endif+    annotMarkupHasPopup                     ,+++-- ** setLabel #method:setLabel#++#if ENABLE_OVERLOADING+    AnnotMarkupSetLabelMethodInfo           ,+#endif+    annotMarkupSetLabel                     ,+++-- ** setOpacity #method:setOpacity#++#if ENABLE_OVERLOADING+    AnnotMarkupSetOpacityMethodInfo         ,+#endif+    annotMarkupSetOpacity                   ,+++-- ** setPopup #method:setPopup#++#if ENABLE_OVERLOADING+    AnnotMarkupSetPopupMethodInfo           ,+#endif+    annotMarkupSetPopup                     ,+++-- ** setPopupIsOpen #method:setPopupIsOpen#++#if ENABLE_OVERLOADING+    AnnotMarkupSetPopupIsOpenMethodInfo     ,+#endif+    annotMarkupSetPopupIsOpen               ,+++-- ** setPopupRectangle #method:setPopupRectangle#++#if ENABLE_OVERLOADING+    AnnotMarkupSetPopupRectangleMethodInfo  ,+#endif+    annotMarkupSetPopupRectangle            ,+++++    ) where++import Data.GI.Base.ShortPrelude+import qualified Data.GI.Base.ShortPrelude as SP+import qualified Data.GI.Base.Overloading as O+import qualified Prelude as P++import qualified Data.GI.Base.Attributes as GI.Attributes+import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr+import qualified Data.GI.Base.GClosure as B.GClosure+import qualified Data.GI.Base.GError as B.GError+import qualified Data.GI.Base.GVariant as B.GVariant+import qualified Data.GI.Base.GValue as B.GValue+import qualified Data.GI.Base.GParamSpec as B.GParamSpec+import qualified Data.GI.Base.CallStack as B.CallStack+import qualified Data.GI.Base.Properties as B.Properties+import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map+import qualified Foreign.Ptr as FP+import qualified GHC.OverloadedLabels as OL++import qualified GI.GLib.Structs.Date as GLib.Date+import qualified GI.GObject.Objects.Object as GObject.Object+import {-# SOURCE #-} qualified GI.Poppler.Enums as Poppler.Enums+import {-# SOURCE #-} qualified GI.Poppler.Objects.Annot as Poppler.Annot+import {-# SOURCE #-} qualified GI.Poppler.Structs.Rectangle as Poppler.Rectangle++-- | Memory-managed wrapper type.+newtype AnnotMarkup = AnnotMarkup (ManagedPtr AnnotMarkup)+foreign import ccall "poppler_annot_markup_get_type"+    c_poppler_annot_markup_get_type :: IO GType++instance GObject AnnotMarkup where+    gobjectType = c_poppler_annot_markup_get_type+    ++-- | Type class for types which can be safely cast to `AnnotMarkup`, for instance with `toAnnotMarkup`.+class (GObject o, O.IsDescendantOf AnnotMarkup o) => IsAnnotMarkup o+instance (GObject o, O.IsDescendantOf AnnotMarkup o) => IsAnnotMarkup o++instance O.HasParentTypes AnnotMarkup+type instance O.ParentTypes AnnotMarkup = '[Poppler.Annot.Annot, GObject.Object.Object]++-- | Cast to `AnnotMarkup`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toAnnotMarkup :: (MonadIO m, IsAnnotMarkup o) => o -> m AnnotMarkup+toAnnotMarkup = liftIO . unsafeCastTo AnnotMarkup++-- | A convenience alias for `Nothing` :: `Maybe` `AnnotMarkup`.+noAnnotMarkup :: Maybe AnnotMarkup+noAnnotMarkup = Nothing++#if ENABLE_OVERLOADING+type family ResolveAnnotMarkupMethod (t :: Symbol) (o :: *) :: * where+    ResolveAnnotMarkupMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolveAnnotMarkupMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolveAnnotMarkupMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolveAnnotMarkupMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolveAnnotMarkupMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolveAnnotMarkupMethod "hasPopup" o = AnnotMarkupHasPopupMethodInfo+    ResolveAnnotMarkupMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolveAnnotMarkupMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolveAnnotMarkupMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolveAnnotMarkupMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolveAnnotMarkupMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolveAnnotMarkupMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolveAnnotMarkupMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolveAnnotMarkupMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolveAnnotMarkupMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolveAnnotMarkupMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolveAnnotMarkupMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolveAnnotMarkupMethod "getAnnotType" o = Poppler.Annot.AnnotGetAnnotTypeMethodInfo+    ResolveAnnotMarkupMethod "getColor" o = Poppler.Annot.AnnotGetColorMethodInfo+    ResolveAnnotMarkupMethod "getContents" o = Poppler.Annot.AnnotGetContentsMethodInfo+    ResolveAnnotMarkupMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolveAnnotMarkupMethod "getDate" o = AnnotMarkupGetDateMethodInfo+    ResolveAnnotMarkupMethod "getExternalData" o = AnnotMarkupGetExternalDataMethodInfo+    ResolveAnnotMarkupMethod "getFlags" o = Poppler.Annot.AnnotGetFlagsMethodInfo+    ResolveAnnotMarkupMethod "getLabel" o = AnnotMarkupGetLabelMethodInfo+    ResolveAnnotMarkupMethod "getModified" o = Poppler.Annot.AnnotGetModifiedMethodInfo+    ResolveAnnotMarkupMethod "getName" o = Poppler.Annot.AnnotGetNameMethodInfo+    ResolveAnnotMarkupMethod "getOpacity" o = AnnotMarkupGetOpacityMethodInfo+    ResolveAnnotMarkupMethod "getPageIndex" o = Poppler.Annot.AnnotGetPageIndexMethodInfo+    ResolveAnnotMarkupMethod "getPopupIsOpen" o = AnnotMarkupGetPopupIsOpenMethodInfo+    ResolveAnnotMarkupMethod "getPopupRectangle" o = AnnotMarkupGetPopupRectangleMethodInfo+    ResolveAnnotMarkupMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolveAnnotMarkupMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolveAnnotMarkupMethod "getRectangle" o = Poppler.Annot.AnnotGetRectangleMethodInfo+    ResolveAnnotMarkupMethod "getReplyTo" o = AnnotMarkupGetReplyToMethodInfo+    ResolveAnnotMarkupMethod "getSubject" o = AnnotMarkupGetSubjectMethodInfo+    ResolveAnnotMarkupMethod "setColor" o = Poppler.Annot.AnnotSetColorMethodInfo+    ResolveAnnotMarkupMethod "setContents" o = Poppler.Annot.AnnotSetContentsMethodInfo+    ResolveAnnotMarkupMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolveAnnotMarkupMethod "setFlags" o = Poppler.Annot.AnnotSetFlagsMethodInfo+    ResolveAnnotMarkupMethod "setLabel" o = AnnotMarkupSetLabelMethodInfo+    ResolveAnnotMarkupMethod "setOpacity" o = AnnotMarkupSetOpacityMethodInfo+    ResolveAnnotMarkupMethod "setPopup" o = AnnotMarkupSetPopupMethodInfo+    ResolveAnnotMarkupMethod "setPopupIsOpen" o = AnnotMarkupSetPopupIsOpenMethodInfo+    ResolveAnnotMarkupMethod "setPopupRectangle" o = AnnotMarkupSetPopupRectangleMethodInfo+    ResolveAnnotMarkupMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolveAnnotMarkupMethod "setRectangle" o = Poppler.Annot.AnnotSetRectangleMethodInfo+    ResolveAnnotMarkupMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveAnnotMarkupMethod t AnnotMarkup, O.MethodInfo info AnnotMarkup p) => OL.IsLabel t (AnnotMarkup -> p) where+#if MIN_VERSION_base(4,10,0)+    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)+#else+    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)+#endif++#endif++#if ENABLE_OVERLOADING+instance O.HasAttributeList AnnotMarkup+type instance O.AttributeList AnnotMarkup = AnnotMarkupAttributeList+type AnnotMarkupAttributeList = ('[ ] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+#endif++#if ENABLE_OVERLOADING+type instance O.SignalList AnnotMarkup = AnnotMarkupSignalList+type AnnotMarkupSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])++#endif++-- method AnnotMarkup::get_date+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "poppler_annot", argType = TInterface (Name {namespace = "Poppler", name = "AnnotMarkup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerAnnotMarkup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "GLib", name = "Date"}))+-- throws : False+-- Skip return : False++foreign import ccall "poppler_annot_markup_get_date" poppler_annot_markup_get_date :: +    Ptr AnnotMarkup ->                      -- poppler_annot : TInterface (Name {namespace = "Poppler", name = "AnnotMarkup"})+    IO (Ptr GLib.Date.Date)++{- |+Returns the date and time when the annotation was created+-}+annotMarkupGetDate ::+    (B.CallStack.HasCallStack, MonadIO m, IsAnnotMarkup a) =>+    a+    {- ^ /@popplerAnnot@/: a 'GI.Poppler.Objects.AnnotMarkup.AnnotMarkup' -}+    -> m GLib.Date.Date+    {- ^ __Returns:__ a 'GI.GLib.Structs.Date.Date' representing the date and time+              when the annotation was created, or 'Nothing' -}+annotMarkupGetDate popplerAnnot = liftIO $ do+    popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot+    result <- poppler_annot_markup_get_date popplerAnnot'+    checkUnexpectedReturnNULL "annotMarkupGetDate" result+    result' <- (wrapBoxed GLib.Date.Date) result+    touchManagedPtr popplerAnnot+    return result'++#if ENABLE_OVERLOADING+data AnnotMarkupGetDateMethodInfo+instance (signature ~ (m GLib.Date.Date), MonadIO m, IsAnnotMarkup a) => O.MethodInfo AnnotMarkupGetDateMethodInfo a signature where+    overloadedMethod _ = annotMarkupGetDate++#endif++-- method AnnotMarkup::get_external_data+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "poppler_annot", argType = TInterface (Name {namespace = "Poppler", name = "AnnotMarkup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerAnnotMarkup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "Poppler", name = "AnnotExternalDataType"}))+-- throws : False+-- Skip return : False++foreign import ccall "poppler_annot_markup_get_external_data" poppler_annot_markup_get_external_data :: +    Ptr AnnotMarkup ->                      -- poppler_annot : TInterface (Name {namespace = "Poppler", name = "AnnotMarkup"})+    IO CUInt++{- |+Gets the external data type of /@popplerAnnot@/.+-}+annotMarkupGetExternalData ::+    (B.CallStack.HasCallStack, MonadIO m, IsAnnotMarkup a) =>+    a+    {- ^ /@popplerAnnot@/: a 'GI.Poppler.Objects.AnnotMarkup.AnnotMarkup' -}+    -> m Poppler.Enums.AnnotExternalDataType+    {- ^ __Returns:__ 'GI.Poppler.Enums.AnnotExternalDataType' of /@popplerAnnot@/. -}+annotMarkupGetExternalData popplerAnnot = liftIO $ do+    popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot+    result <- poppler_annot_markup_get_external_data popplerAnnot'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr popplerAnnot+    return result'++#if ENABLE_OVERLOADING+data AnnotMarkupGetExternalDataMethodInfo+instance (signature ~ (m Poppler.Enums.AnnotExternalDataType), MonadIO m, IsAnnotMarkup a) => O.MethodInfo AnnotMarkupGetExternalDataMethodInfo a signature where+    overloadedMethod _ = annotMarkupGetExternalData++#endif++-- method AnnotMarkup::get_label+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "poppler_annot", argType = TInterface (Name {namespace = "Poppler", name = "AnnotMarkup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerAnnotMarkup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "poppler_annot_markup_get_label" poppler_annot_markup_get_label :: +    Ptr AnnotMarkup ->                      -- poppler_annot : TInterface (Name {namespace = "Poppler", name = "AnnotMarkup"})+    IO CString++{- |+Retrieves the label text of /@popplerAnnot@/.+-}+annotMarkupGetLabel ::+    (B.CallStack.HasCallStack, MonadIO m, IsAnnotMarkup a) =>+    a+    {- ^ /@popplerAnnot@/: a 'GI.Poppler.Objects.AnnotMarkup.AnnotMarkup' -}+    -> m T.Text+    {- ^ __Returns:__ the label text of /@popplerAnnot@/. -}+annotMarkupGetLabel popplerAnnot = liftIO $ do+    popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot+    result <- poppler_annot_markup_get_label popplerAnnot'+    checkUnexpectedReturnNULL "annotMarkupGetLabel" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr popplerAnnot+    return result'++#if ENABLE_OVERLOADING+data AnnotMarkupGetLabelMethodInfo+instance (signature ~ (m T.Text), MonadIO m, IsAnnotMarkup a) => O.MethodInfo AnnotMarkupGetLabelMethodInfo a signature where+    overloadedMethod _ = annotMarkupGetLabel++#endif++-- method AnnotMarkup::get_opacity+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "poppler_annot", argType = TInterface (Name {namespace = "Poppler", name = "AnnotMarkup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerAnnotMarkup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TDouble)+-- throws : False+-- Skip return : False++foreign import ccall "poppler_annot_markup_get_opacity" poppler_annot_markup_get_opacity :: +    Ptr AnnotMarkup ->                      -- poppler_annot : TInterface (Name {namespace = "Poppler", name = "AnnotMarkup"})+    IO CDouble++{- |+Retrieves the opacity value of /@popplerAnnot@/.+-}+annotMarkupGetOpacity ::+    (B.CallStack.HasCallStack, MonadIO m, IsAnnotMarkup a) =>+    a+    {- ^ /@popplerAnnot@/: a 'GI.Poppler.Objects.AnnotMarkup.AnnotMarkup' -}+    -> m Double+    {- ^ __Returns:__ the opacity value of /@popplerAnnot@/,+              between 0 (transparent) and 1 (opaque) -}+annotMarkupGetOpacity popplerAnnot = liftIO $ do+    popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot+    result <- poppler_annot_markup_get_opacity popplerAnnot'+    let result' = realToFrac result+    touchManagedPtr popplerAnnot+    return result'++#if ENABLE_OVERLOADING+data AnnotMarkupGetOpacityMethodInfo+instance (signature ~ (m Double), MonadIO m, IsAnnotMarkup a) => O.MethodInfo AnnotMarkupGetOpacityMethodInfo a signature where+    overloadedMethod _ = annotMarkupGetOpacity++#endif++-- method AnnotMarkup::get_popup_is_open+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "poppler_annot", argType = TInterface (Name {namespace = "Poppler", name = "AnnotMarkup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerAnnotMarkup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "poppler_annot_markup_get_popup_is_open" poppler_annot_markup_get_popup_is_open :: +    Ptr AnnotMarkup ->                      -- poppler_annot : TInterface (Name {namespace = "Poppler", name = "AnnotMarkup"})+    IO CInt++{- |+Retrieves the state of the popup window related to /@popplerAnnot@/.+-}+annotMarkupGetPopupIsOpen ::+    (B.CallStack.HasCallStack, MonadIO m, IsAnnotMarkup a) =>+    a+    {- ^ /@popplerAnnot@/: a 'GI.Poppler.Objects.AnnotMarkup.AnnotMarkup' -}+    -> m Bool+    {- ^ __Returns:__ the state of /@popplerAnnot@/. 'True' if it\'s open, 'False' in+              other case. -}+annotMarkupGetPopupIsOpen popplerAnnot = liftIO $ do+    popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot+    result <- poppler_annot_markup_get_popup_is_open popplerAnnot'+    let result' = (/= 0) result+    touchManagedPtr popplerAnnot+    return result'++#if ENABLE_OVERLOADING+data AnnotMarkupGetPopupIsOpenMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsAnnotMarkup a) => O.MethodInfo AnnotMarkupGetPopupIsOpenMethodInfo a signature where+    overloadedMethod _ = annotMarkupGetPopupIsOpen++#endif++-- method AnnotMarkup::get_popup_rectangle+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "poppler_annot", argType = TInterface (Name {namespace = "Poppler", name = "AnnotMarkup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerAnnotMarkup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "poppler_rect", argType = TInterface (Name {namespace = "Poppler", name = "Rectangle"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerRectangle to store the popup rectangle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "poppler_annot_markup_get_popup_rectangle" poppler_annot_markup_get_popup_rectangle :: +    Ptr AnnotMarkup ->                      -- poppler_annot : TInterface (Name {namespace = "Poppler", name = "AnnotMarkup"})+    Ptr Poppler.Rectangle.Rectangle ->      -- poppler_rect : TInterface (Name {namespace = "Poppler", name = "Rectangle"})+    IO CInt++{- |+Retrieves the rectangle of the popup window related to /@popplerAnnot@/.++/Since: 0.12/+-}+annotMarkupGetPopupRectangle ::+    (B.CallStack.HasCallStack, MonadIO m, IsAnnotMarkup a) =>+    a+    {- ^ /@popplerAnnot@/: a 'GI.Poppler.Objects.AnnotMarkup.AnnotMarkup' -}+    -> m ((Bool, Poppler.Rectangle.Rectangle))+    {- ^ __Returns:__ 'True' if 'GI.Poppler.Structs.Rectangle.Rectangle' was correctly filled, 'False' otherwise -}+annotMarkupGetPopupRectangle popplerAnnot = liftIO $ do+    popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot+    popplerRect <- callocBoxedBytes 32 :: IO (Ptr Poppler.Rectangle.Rectangle)+    result <- poppler_annot_markup_get_popup_rectangle popplerAnnot' popplerRect+    let result' = (/= 0) result+    popplerRect' <- (wrapBoxed Poppler.Rectangle.Rectangle) popplerRect+    touchManagedPtr popplerAnnot+    return (result', popplerRect')++#if ENABLE_OVERLOADING+data AnnotMarkupGetPopupRectangleMethodInfo+instance (signature ~ (m ((Bool, Poppler.Rectangle.Rectangle))), MonadIO m, IsAnnotMarkup a) => O.MethodInfo AnnotMarkupGetPopupRectangleMethodInfo a signature where+    overloadedMethod _ = annotMarkupGetPopupRectangle++#endif++-- method AnnotMarkup::get_reply_to+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "poppler_annot", argType = TInterface (Name {namespace = "Poppler", name = "AnnotMarkup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerAnnotMarkup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "Poppler", name = "AnnotMarkupReplyType"}))+-- throws : False+-- Skip return : False++foreign import ccall "poppler_annot_markup_get_reply_to" poppler_annot_markup_get_reply_to :: +    Ptr AnnotMarkup ->                      -- poppler_annot : TInterface (Name {namespace = "Poppler", name = "AnnotMarkup"})+    IO CUInt++{- |+Gets the reply type of /@popplerAnnot@/.+-}+annotMarkupGetReplyTo ::+    (B.CallStack.HasCallStack, MonadIO m, IsAnnotMarkup a) =>+    a+    {- ^ /@popplerAnnot@/: a 'GI.Poppler.Objects.AnnotMarkup.AnnotMarkup' -}+    -> m Poppler.Enums.AnnotMarkupReplyType+    {- ^ __Returns:__ 'GI.Poppler.Enums.AnnotMarkupReplyType' of /@popplerAnnot@/. -}+annotMarkupGetReplyTo popplerAnnot = liftIO $ do+    popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot+    result <- poppler_annot_markup_get_reply_to popplerAnnot'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr popplerAnnot+    return result'++#if ENABLE_OVERLOADING+data AnnotMarkupGetReplyToMethodInfo+instance (signature ~ (m Poppler.Enums.AnnotMarkupReplyType), MonadIO m, IsAnnotMarkup a) => O.MethodInfo AnnotMarkupGetReplyToMethodInfo a signature where+    overloadedMethod _ = annotMarkupGetReplyTo++#endif++-- method AnnotMarkup::get_subject+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "poppler_annot", argType = TInterface (Name {namespace = "Poppler", name = "AnnotMarkup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerAnnotMarkup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "poppler_annot_markup_get_subject" poppler_annot_markup_get_subject :: +    Ptr AnnotMarkup ->                      -- poppler_annot : TInterface (Name {namespace = "Poppler", name = "AnnotMarkup"})+    IO CString++{- |+Retrives the subject text of /@popplerAnnot@/.+-}+annotMarkupGetSubject ::+    (B.CallStack.HasCallStack, MonadIO m, IsAnnotMarkup a) =>+    a+    {- ^ /@popplerAnnot@/: a 'GI.Poppler.Objects.AnnotMarkup.AnnotMarkup' -}+    -> m T.Text+    {- ^ __Returns:__ the subject text of /@popplerAnnot@/. -}+annotMarkupGetSubject popplerAnnot = liftIO $ do+    popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot+    result <- poppler_annot_markup_get_subject popplerAnnot'+    checkUnexpectedReturnNULL "annotMarkupGetSubject" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr popplerAnnot+    return result'++#if ENABLE_OVERLOADING+data AnnotMarkupGetSubjectMethodInfo+instance (signature ~ (m T.Text), MonadIO m, IsAnnotMarkup a) => O.MethodInfo AnnotMarkupGetSubjectMethodInfo a signature where+    overloadedMethod _ = annotMarkupGetSubject++#endif++-- method AnnotMarkup::has_popup+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "poppler_annot", argType = TInterface (Name {namespace = "Poppler", name = "AnnotMarkup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerAnnotMarkup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "poppler_annot_markup_has_popup" poppler_annot_markup_has_popup :: +    Ptr AnnotMarkup ->                      -- poppler_annot : TInterface (Name {namespace = "Poppler", name = "AnnotMarkup"})+    IO CInt++{- |+Return 'True' if the markup annotation has a popup window associated++/Since: 0.12/+-}+annotMarkupHasPopup ::+    (B.CallStack.HasCallStack, MonadIO m, IsAnnotMarkup a) =>+    a+    {- ^ /@popplerAnnot@/: a 'GI.Poppler.Objects.AnnotMarkup.AnnotMarkup' -}+    -> m Bool+    {- ^ __Returns:__ 'True', if /@popplerAnnot@/ has popup, 'False' otherwise -}+annotMarkupHasPopup popplerAnnot = liftIO $ do+    popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot+    result <- poppler_annot_markup_has_popup popplerAnnot'+    let result' = (/= 0) result+    touchManagedPtr popplerAnnot+    return result'++#if ENABLE_OVERLOADING+data AnnotMarkupHasPopupMethodInfo+instance (signature ~ (m Bool), MonadIO m, IsAnnotMarkup a) => O.MethodInfo AnnotMarkupHasPopupMethodInfo a signature where+    overloadedMethod _ = annotMarkupHasPopup++#endif++-- method AnnotMarkup::set_label+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "poppler_annot", argType = TInterface (Name {namespace = "Poppler", name = "AnnotMarkup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerAnnotMarkup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a text string containing the new label, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "poppler_annot_markup_set_label" poppler_annot_markup_set_label :: +    Ptr AnnotMarkup ->                      -- poppler_annot : TInterface (Name {namespace = "Poppler", name = "AnnotMarkup"})+    CString ->                              -- label : TBasicType TUTF8+    IO ()++{- |+Sets the label text of /@popplerAnnot@/, replacing the current one++/Since: 0.16/+-}+annotMarkupSetLabel ::+    (B.CallStack.HasCallStack, MonadIO m, IsAnnotMarkup a) =>+    a+    {- ^ /@popplerAnnot@/: a 'GI.Poppler.Objects.AnnotMarkup.AnnotMarkup' -}+    -> Maybe (T.Text)+    {- ^ /@label@/: a text string containing the new label, or 'Nothing' -}+    -> m ()+annotMarkupSetLabel popplerAnnot label = liftIO $ do+    popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot+    maybeLabel <- case label of+        Nothing -> return nullPtr+        Just jLabel -> do+            jLabel' <- textToCString jLabel+            return jLabel'+    poppler_annot_markup_set_label popplerAnnot' maybeLabel+    touchManagedPtr popplerAnnot+    freeMem maybeLabel+    return ()++#if ENABLE_OVERLOADING+data AnnotMarkupSetLabelMethodInfo+instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsAnnotMarkup a) => O.MethodInfo AnnotMarkupSetLabelMethodInfo a signature where+    overloadedMethod _ = annotMarkupSetLabel++#endif++-- method AnnotMarkup::set_opacity+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "poppler_annot", argType = TInterface (Name {namespace = "Poppler", name = "AnnotMarkup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerAnnotMarkup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "opacity", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a constant opacity value, between 0 (transparent) and 1 (opaque)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "poppler_annot_markup_set_opacity" poppler_annot_markup_set_opacity :: +    Ptr AnnotMarkup ->                      -- poppler_annot : TInterface (Name {namespace = "Poppler", name = "AnnotMarkup"})+    CDouble ->                              -- opacity : TBasicType TDouble+    IO ()++{- |+Sets the opacity of /@popplerAnnot@/. This value applies to+all visible elements of /@popplerAnnot@/ in its closed state,+but not to the pop-up window that appears when it\'s openened++/Since: 0.16/+-}+annotMarkupSetOpacity ::+    (B.CallStack.HasCallStack, MonadIO m, IsAnnotMarkup a) =>+    a+    {- ^ /@popplerAnnot@/: a 'GI.Poppler.Objects.AnnotMarkup.AnnotMarkup' -}+    -> Double+    {- ^ /@opacity@/: a constant opacity value, between 0 (transparent) and 1 (opaque) -}+    -> m ()+annotMarkupSetOpacity popplerAnnot opacity = liftIO $ do+    popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot+    let opacity' = realToFrac opacity+    poppler_annot_markup_set_opacity popplerAnnot' opacity'+    touchManagedPtr popplerAnnot+    return ()++#if ENABLE_OVERLOADING+data AnnotMarkupSetOpacityMethodInfo+instance (signature ~ (Double -> m ()), MonadIO m, IsAnnotMarkup a) => O.MethodInfo AnnotMarkupSetOpacityMethodInfo a signature where+    overloadedMethod _ = annotMarkupSetOpacity++#endif++-- method AnnotMarkup::set_popup+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "poppler_annot", argType = TInterface (Name {namespace = "Poppler", name = "AnnotMarkup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerAnnotMarkup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "popup_rect", argType = TInterface (Name {namespace = "Poppler", name = "Rectangle"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerRectangle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "poppler_annot_markup_set_popup" poppler_annot_markup_set_popup :: +    Ptr AnnotMarkup ->                      -- poppler_annot : TInterface (Name {namespace = "Poppler", name = "AnnotMarkup"})+    Ptr Poppler.Rectangle.Rectangle ->      -- popup_rect : TInterface (Name {namespace = "Poppler", name = "Rectangle"})+    IO ()++{- |+Associates a new popup window for editing contents of /@popplerAnnot@/.+Popup window shall be displayed by viewers at /@popupRect@/ on the page.++/Since: 0.16/+-}+annotMarkupSetPopup ::+    (B.CallStack.HasCallStack, MonadIO m, IsAnnotMarkup a) =>+    a+    {- ^ /@popplerAnnot@/: a 'GI.Poppler.Objects.AnnotMarkup.AnnotMarkup' -}+    -> Poppler.Rectangle.Rectangle+    {- ^ /@popupRect@/: a 'GI.Poppler.Structs.Rectangle.Rectangle' -}+    -> m ()+annotMarkupSetPopup popplerAnnot popupRect = liftIO $ do+    popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot+    popupRect' <- unsafeManagedPtrGetPtr popupRect+    poppler_annot_markup_set_popup popplerAnnot' popupRect'+    touchManagedPtr popplerAnnot+    touchManagedPtr popupRect+    return ()++#if ENABLE_OVERLOADING+data AnnotMarkupSetPopupMethodInfo+instance (signature ~ (Poppler.Rectangle.Rectangle -> m ()), MonadIO m, IsAnnotMarkup a) => O.MethodInfo AnnotMarkupSetPopupMethodInfo a signature where+    overloadedMethod _ = annotMarkupSetPopup++#endif++-- method AnnotMarkup::set_popup_is_open+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "poppler_annot", argType = TInterface (Name {namespace = "Poppler", name = "AnnotMarkup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerAnnotMarkup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_open", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether popup window should initially be displayed open", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "poppler_annot_markup_set_popup_is_open" poppler_annot_markup_set_popup_is_open :: +    Ptr AnnotMarkup ->                      -- poppler_annot : TInterface (Name {namespace = "Poppler", name = "AnnotMarkup"})+    CInt ->                                 -- is_open : TBasicType TBoolean+    IO ()++{- |+Sets the state of the popup window related to /@popplerAnnot@/.++/Since: 0.16/+-}+annotMarkupSetPopupIsOpen ::+    (B.CallStack.HasCallStack, MonadIO m, IsAnnotMarkup a) =>+    a+    {- ^ /@popplerAnnot@/: a 'GI.Poppler.Objects.AnnotMarkup.AnnotMarkup' -}+    -> Bool+    {- ^ /@isOpen@/: whether popup window should initially be displayed open -}+    -> m ()+annotMarkupSetPopupIsOpen popplerAnnot isOpen = liftIO $ do+    popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot+    let isOpen' = (fromIntegral . fromEnum) isOpen+    poppler_annot_markup_set_popup_is_open popplerAnnot' isOpen'+    touchManagedPtr popplerAnnot+    return ()++#if ENABLE_OVERLOADING+data AnnotMarkupSetPopupIsOpenMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, IsAnnotMarkup a) => O.MethodInfo AnnotMarkupSetPopupIsOpenMethodInfo a signature where+    overloadedMethod _ = annotMarkupSetPopupIsOpen++#endif++-- method AnnotMarkup::set_popup_rectangle+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "poppler_annot", argType = TInterface (Name {namespace = "Poppler", name = "AnnotMarkup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerAnnotMarkup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "poppler_rect", argType = TInterface (Name {namespace = "Poppler", name = "Rectangle"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PopplerRectangle to set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "poppler_annot_markup_set_popup_rectangle" poppler_annot_markup_set_popup_rectangle :: +    Ptr AnnotMarkup ->                      -- poppler_annot : TInterface (Name {namespace = "Poppler", name = "AnnotMarkup"})+    Ptr Poppler.Rectangle.Rectangle ->      -- poppler_rect : TInterface (Name {namespace = "Poppler", name = "Rectangle"})+    IO ()++{- |+Sets the rectangle of the popup window related to /@popplerAnnot@/.+This doesn\'t have any effect if /@popplerAnnot@/ doesn\'t have a+popup associated, use 'GI.Poppler.Objects.AnnotMarkup.annotMarkupSetPopup' to associate+a popup window to a 'GI.Poppler.Objects.AnnotMarkup.AnnotMarkup'.++/Since: 0.33/+-}+annotMarkupSetPopupRectangle ::+    (B.CallStack.HasCallStack, MonadIO m, IsAnnotMarkup a) =>+    a+    {- ^ /@popplerAnnot@/: a 'GI.Poppler.Objects.AnnotMarkup.AnnotMarkup' -}+    -> Poppler.Rectangle.Rectangle+    {- ^ /@popplerRect@/: a 'GI.Poppler.Structs.Rectangle.Rectangle' to set -}+    -> m ()+annotMarkupSetPopupRectangle popplerAnnot popplerRect = liftIO $ do+    popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot+    popplerRect' <- unsafeManagedPtrGetPtr popplerRect+    poppler_annot_markup_set_popup_rectangle popplerAnnot' popplerRect'+    touchManagedPtr popplerAnnot+    touchManagedPtr popplerRect+    return ()++#if ENABLE_OVERLOADING+data AnnotMarkupSetPopupRectangleMethodInfo+instance (signature ~ (Poppler.Rectangle.Rectangle -> m ()), MonadIO m, IsAnnotMarkup a) => O.MethodInfo AnnotMarkupSetPopupRectangleMethodInfo a signature where+    overloadedMethod _ = annotMarkupSetPopupRectangle++#endif++