packages feed

gi-poppler 0.0.34.15 → 0.18.1

raw patch · 112 files changed

+27/−22404 lines, 112 filesdep ~gi-cairodep ~gi-giodep ~gi-glibbuild-type:Customsetup-changed

Dependency ranges changed: gi-cairo, gi-gio, gi-glib, gi-gobject, transformers

Files

− GI/Poppler.hs 
@@ -1,46 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--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.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks--import Data.GI.Base-
− GI/Poppler/Callbacks.hs 
@@ -1,115 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Poppler.Callbacks-    ( -- -- * Signals--- ** AttachmentSaveFunc-    AttachmentSaveFunc                      ,-    AttachmentSaveFuncC                     ,-    attachmentSaveFuncClosure               ,-    attachmentSaveFuncWrapper               ,-    mkAttachmentSaveFunc                    ,-    noAttachmentSaveFunc                    ,----- ** MediaSaveFunc-    MediaSaveFunc                           ,-    MediaSaveFuncC                          ,-    mediaSaveFuncClosure                    ,-    mediaSaveFuncWrapper                    ,-    mkMediaSaveFunc                         ,-    noMediaSaveFunc                         ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types----- callback MediaSaveFunc-mediaSaveFuncClosure :: MediaSaveFunc -> IO Closure-mediaSaveFuncClosure cb = newCClosure =<< mkMediaSaveFunc wrapped-    where wrapped = mediaSaveFuncWrapper Nothing cb--type MediaSaveFuncC =-    Ptr Word8 ->-    Word64 ->-    Ptr () ->-    IO CInt--foreign import ccall "wrapper"-    mkMediaSaveFunc :: MediaSaveFuncC -> IO (FunPtr MediaSaveFuncC)--type MediaSaveFunc =-    ByteString ->-    IO Bool--noMediaSaveFunc :: Maybe MediaSaveFunc-noMediaSaveFunc = Nothing--mediaSaveFuncWrapper ::-    Maybe (Ptr (FunPtr (MediaSaveFuncC))) ->-    MediaSaveFunc ->-    Ptr Word8 ->-    Word64 ->-    Ptr () ->-    IO CInt-mediaSaveFuncWrapper funptrptr _cb buf count _ = do-    buf' <- (unpackByteStringWithLength count) buf-    result <- _cb  buf'-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'---- callback AttachmentSaveFunc-attachmentSaveFuncClosure :: AttachmentSaveFunc -> IO Closure-attachmentSaveFuncClosure cb = newCClosure =<< mkAttachmentSaveFunc wrapped-    where wrapped = attachmentSaveFuncWrapper Nothing cb--type AttachmentSaveFuncC =-    Ptr Word8 ->-    Word64 ->-    Ptr () ->-    IO CInt--foreign import ccall "wrapper"-    mkAttachmentSaveFunc :: AttachmentSaveFuncC -> IO (FunPtr AttachmentSaveFuncC)--type AttachmentSaveFunc =-    ByteString ->-    IO Bool--noAttachmentSaveFunc :: Maybe AttachmentSaveFunc-noAttachmentSaveFunc = Nothing--attachmentSaveFuncWrapper ::-    Maybe (Ptr (FunPtr (AttachmentSaveFuncC))) ->-    AttachmentSaveFunc ->-    Ptr Word8 ->-    Word64 ->-    Ptr () ->-    IO CInt-attachmentSaveFuncWrapper funptrptr _cb buf count _ = do-    buf' <- (unpackByteStringWithLength count) buf-    result <- _cb  buf'-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'--
− GI/Poppler/Constants.hs 
@@ -1,77 +0,0 @@-{-# 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 (garetxe@gmail.com)--}--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.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks---pattern MINOR_VERSION = 34 :: Int32---pattern MICRO_VERSION = 0 :: Int32---pattern MAJOR_VERSION = 0 :: Int32---pattern HAS_CAIRO = 1 :: Int32---pattern ANNOT_TEXT_ICON_PARAGRAPH = "Paragraph" :: T.Text---pattern ANNOT_TEXT_ICON_NOTE = "Note" :: T.Text---pattern ANNOT_TEXT_ICON_NEW_PARAGRAPH = "NewParagraph" :: T.Text---pattern ANNOT_TEXT_ICON_KEY = "Key" :: T.Text---pattern ANNOT_TEXT_ICON_INSERT = "Insert" :: T.Text---pattern ANNOT_TEXT_ICON_HELP = "Help" :: T.Text---pattern ANNOT_TEXT_ICON_CROSS = "Cross" :: T.Text---pattern ANNOT_TEXT_ICON_COMMENT = "Comment" :: T.Text---pattern ANNOT_TEXT_ICON_CIRCLE = "Circle" :: T.Text--
− GI/Poppler/Enums.hs 
@@ -1,1495 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Poppler.Enums-    ( -    catchError                              ,-    handleError                             ,---- * Exported types-    StructureWritingMode(..)                ,-    StructureTextDecoration(..)             ,-    StructureTextAlign(..)                  ,-    StructureTableScope(..)                 ,-    StructureRubyPosition(..)               ,-    StructureRubyAlign(..)                  ,-    StructurePlacement(..)                  ,-    StructureListNumbering(..)              ,-    StructureInlineAlign(..)                ,-    StructureGlyphOrientation(..)           ,-    StructureFormState(..)                  ,-    StructureFormRole(..)                   ,-    StructureElementKind(..)                ,-    StructureBorderStyle(..)                ,-    StructureBlockAlign(..)                 ,-    SelectionStyle(..)                      ,-    PageTransitionType(..)                  ,-    PageTransitionDirection(..)             ,-    PageTransitionAlignment(..)             ,-    PageMode(..)                            ,-    PageLayout(..)                          ,-    Orientation(..)                         ,-    FormTextType(..)                        ,-    FormFieldType(..)                       ,-    FormChoiceType(..)                      ,-    FormButtonType(..)                      ,-    FontType(..)                            ,-    Error(..)                               ,-    DestType(..)                            ,-    Backend(..)                             ,-    AnnotType(..)                           ,-    AnnotTextState(..)                      ,-    AnnotMarkupReplyType(..)                ,-    AnnotFreeTextQuadding(..)               ,-    AnnotExternalDataType(..)               ,-    ActionType(..)                          ,-    ActionMovieOperation(..)                ,-    ActionLayerAction(..)                   ,---    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map------- Enum StructureWritingMode--data StructureWritingMode = -      StructureWritingModeLrTb-    | StructureWritingModeRlTb-    | StructureWritingModeTbRl-    | AnotherStructureWritingMode Int-    deriving (Show, Eq)--instance 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--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--data StructureTextDecoration = -      StructureTextDecorationNone-    | StructureTextDecorationUnderline-    | StructureTextDecorationOverline-    | StructureTextDecorationLinethrough-    | AnotherStructureTextDecoration Int-    deriving (Show, Eq)--instance 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--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--data StructureTextAlign = -      StructureTextAlignStart-    | StructureTextAlignCenter-    | StructureTextAlignEnd-    | StructureTextAlignJustify-    | AnotherStructureTextAlign Int-    deriving (Show, Eq)--instance 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--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--data StructureTableScope = -      StructureTableScopeRow-    | StructureTableScopeColumn-    | StructureTableScopeBoth-    | AnotherStructureTableScope Int-    deriving (Show, Eq)--instance 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--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--data StructureRubyPosition = -      StructureRubyPositionBefore-    | StructureRubyPositionAfter-    | StructureRubyPositionWarichu-    | StructureRubyPositionInline-    | AnotherStructureRubyPosition Int-    deriving (Show, Eq)--instance 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--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--data StructureRubyAlign = -      StructureRubyAlignStart-    | StructureRubyAlignCenter-    | StructureRubyAlignEnd-    | StructureRubyAlignJustify-    | StructureRubyAlignDistribute-    | AnotherStructureRubyAlign Int-    deriving (Show, Eq)--instance 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--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--data StructurePlacement = -      StructurePlacementBlock-    | StructurePlacementInline-    | StructurePlacementBefore-    | StructurePlacementStart-    | StructurePlacementEnd-    | AnotherStructurePlacement Int-    deriving (Show, Eq)--instance 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--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--data StructureListNumbering = -      StructureListNumberingNone-    | StructureListNumberingDisc-    | StructureListNumberingCircle-    | StructureListNumberingSquare-    | StructureListNumberingDecimal-    | StructureListNumberingUpperRoman-    | StructureListNumberingLowerRoman-    | StructureListNumberingUpperAlpha-    | StructureListNumberingLowerAlpha-    | AnotherStructureListNumbering Int-    deriving (Show, Eq)--instance 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--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--data StructureInlineAlign = -      StructureInlineAlignStart-    | StructureInlineAlignCenter-    | StructureInlineAlignEnd-    | AnotherStructureInlineAlign Int-    deriving (Show, Eq)--instance 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--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--data StructureGlyphOrientation = -      StructureGlyphOrientationAuto-    | StructureGlyphOrientation0-    | StructureGlyphOrientation90-    | StructureGlyphOrientation180-    | StructureGlyphOrientation270-    | AnotherStructureGlyphOrientation Int-    deriving (Show, Eq)--instance 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 1 = StructureGlyphOrientation90-    toEnum 2 = StructureGlyphOrientation180-    toEnum 3 = StructureGlyphOrientation270-    toEnum k = AnotherStructureGlyphOrientation k--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--data StructureFormState = -      StructureFormStateOn-    | StructureFormStateOff-    | StructureFormStateNeutral-    | AnotherStructureFormState Int-    deriving (Show, Eq)--instance 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--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--data StructureFormRole = -      StructureFormRoleUndefined-    | StructureFormRoleRadioButton-    | StructureFormRolePushButton-    | StructureFormRoleTextValue-    | StructureFormRoleCheckbox-    | AnotherStructureFormRole Int-    deriving (Show, Eq)--instance 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--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--data StructureElementKind = -      StructureElementKindContent-    | StructureElementKindObjectReference-    | StructureElementKindDocument-    | StructureElementKindPart-    | StructureElementKindArticle-    | StructureElementKindSection-    | StructureElementKindDiv-    | StructureElementKindSpan-    | StructureElementKindQuote-    | StructureElementKindNote-    | StructureElementKindReference-    | StructureElementKindBibentry-    | StructureElementKindCode-    | StructureElementKindLink-    | StructureElementKindAnnot-    | StructureElementKindBlockquote-    | StructureElementKindCaption-    | StructureElementKindNonstruct-    | StructureElementKindToc-    | StructureElementKindTocItem-    | StructureElementKindIndex-    | StructureElementKindPrivate-    | StructureElementKindParagraph-    | StructureElementKindHeading-    | StructureElementKindHeading1-    | StructureElementKindHeading2-    | StructureElementKindHeading3-    | StructureElementKindHeading4-    | StructureElementKindHeading5-    | StructureElementKindHeading6-    | StructureElementKindList-    | StructureElementKindListItem-    | StructureElementKindListLabel-    | StructureElementKindListBody-    | StructureElementKindTable-    | StructureElementKindTableRow-    | StructureElementKindTableHeading-    | StructureElementKindTableData-    | StructureElementKindTableHeader-    | StructureElementKindTableFooter-    | StructureElementKindTableBody-    | StructureElementKindRuby-    | StructureElementKindRubyBaseText-    | StructureElementKindRubyAnnotText-    | StructureElementKindRubyPunctuation-    | StructureElementKindWarichu-    | StructureElementKindWarichuText-    | StructureElementKindWarichuPunctuation-    | StructureElementKindFigure-    | StructureElementKindFormula-    | StructureElementKindForm-    | AnotherStructureElementKind Int-    deriving (Show, Eq)--instance 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--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--data StructureBorderStyle = -      StructureBorderStyleNone-    | StructureBorderStyleHidden-    | StructureBorderStyleDotted-    | StructureBorderStyleDashed-    | StructureBorderStyleSolid-    | StructureBorderStyleDouble-    | StructureBorderStyleGroove-    | StructureBorderStyleInset-    | StructureBorderStyleOutset-    | AnotherStructureBorderStyle Int-    deriving (Show, Eq)--instance 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--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--data StructureBlockAlign = -      StructureBlockAlignBefore-    | StructureBlockAlignMiddle-    | StructureBlockAlignAfter-    | StructureBlockAlignJustify-    | AnotherStructureBlockAlign Int-    deriving (Show, Eq)--instance 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--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--data SelectionStyle = -      SelectionStyleGlyph-    | SelectionStyleWord-    | SelectionStyleLine-    | AnotherSelectionStyle Int-    deriving (Show, Eq)--instance 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--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 PageTransitionType--data PageTransitionType = -      PageTransitionTypeReplace-    | PageTransitionTypeSplit-    | PageTransitionTypeBlinds-    | PageTransitionTypeBox-    | PageTransitionTypeWipe-    | PageTransitionTypeDissolve-    | PageTransitionTypeGlitter-    | PageTransitionTypeFly-    | PageTransitionTypePush-    | PageTransitionTypeCover-    | PageTransitionTypeUncover-    | PageTransitionTypeFade-    | AnotherPageTransitionType Int-    deriving (Show, Eq)--instance 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--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--data PageTransitionDirection = -      PageTransitionDirectionInward-    | PageTransitionDirectionOutward-    | AnotherPageTransitionDirection Int-    deriving (Show, Eq)--instance Enum PageTransitionDirection where-    fromEnum PageTransitionDirectionInward = 0-    fromEnum PageTransitionDirectionOutward = 1-    fromEnum (AnotherPageTransitionDirection k) = k--    toEnum 0 = PageTransitionDirectionInward-    toEnum 1 = PageTransitionDirectionOutward-    toEnum k = AnotherPageTransitionDirection k--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--data PageTransitionAlignment = -      PageTransitionAlignmentHorizontal-    | PageTransitionAlignmentVertical-    | AnotherPageTransitionAlignment Int-    deriving (Show, Eq)--instance Enum PageTransitionAlignment where-    fromEnum PageTransitionAlignmentHorizontal = 0-    fromEnum PageTransitionAlignmentVertical = 1-    fromEnum (AnotherPageTransitionAlignment k) = k--    toEnum 0 = PageTransitionAlignmentHorizontal-    toEnum 1 = PageTransitionAlignmentVertical-    toEnum k = AnotherPageTransitionAlignment k--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--data PageMode = -      PageModeUnset-    | PageModeNone-    | PageModeUseOutlines-    | PageModeUseThumbs-    | PageModeFullScreen-    | PageModeUseOc-    | PageModeUseAttachments-    | AnotherPageMode Int-    deriving (Show, Eq)--instance 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--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--data PageLayout = -      PageLayoutUnset-    | PageLayoutSinglePage-    | PageLayoutOneColumn-    | PageLayoutTwoColumnLeft-    | PageLayoutTwoColumnRight-    | PageLayoutTwoPageLeft-    | PageLayoutTwoPageRight-    | AnotherPageLayout Int-    deriving (Show, Eq)--instance 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--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 Orientation--data Orientation = -      OrientationPortrait-    | OrientationLandscape-    | OrientationUpsidedown-    | OrientationSeascape-    | AnotherOrientation Int-    deriving (Show, Eq)--instance Enum Orientation where-    fromEnum OrientationPortrait = 0-    fromEnum OrientationLandscape = 1-    fromEnum OrientationUpsidedown = 2-    fromEnum OrientationSeascape = 3-    fromEnum (AnotherOrientation k) = k--    toEnum 0 = OrientationPortrait-    toEnum 1 = OrientationLandscape-    toEnum 2 = OrientationUpsidedown-    toEnum 3 = OrientationSeascape-    toEnum k = AnotherOrientation k--foreign import ccall "poppler_orientation_get_type" c_poppler_orientation_get_type :: -    IO GType--instance BoxedEnum Orientation where-    boxedEnumType _ = c_poppler_orientation_get_type---- Enum FormTextType--data FormTextType = -      FormTextTypeNormal-    | FormTextTypeMultiline-    | FormTextTypeFileSelect-    | AnotherFormTextType Int-    deriving (Show, Eq)--instance 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--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--data FormFieldType = -      FormFieldTypeUnknown-    | FormFieldTypeButton-    | FormFieldTypeText-    | FormFieldTypeChoice-    | FormFieldTypeSignature-    | AnotherFormFieldType Int-    deriving (Show, Eq)--instance 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--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--data FormChoiceType = -      FormChoiceTypeCombo-    | FormChoiceTypeList-    | AnotherFormChoiceType Int-    deriving (Show, Eq)--instance Enum FormChoiceType where-    fromEnum FormChoiceTypeCombo = 0-    fromEnum FormChoiceTypeList = 1-    fromEnum (AnotherFormChoiceType k) = k--    toEnum 0 = FormChoiceTypeCombo-    toEnum 1 = FormChoiceTypeList-    toEnum k = AnotherFormChoiceType k--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--data FormButtonType = -      FormButtonTypePush-    | FormButtonTypeCheck-    | FormButtonTypeRadio-    | AnotherFormButtonType Int-    deriving (Show, Eq)--instance 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--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--data FontType = -      FontTypeUnknown-    | FontTypeType1-    | FontTypeType1c-    | FontTypeType1cot-    | FontTypeType3-    | FontTypeTruetype-    | FontTypeTruetypeot-    | FontTypeCidType0-    | FontTypeCidType0c-    | FontTypeCidType0cot-    | FontTypeCidType2-    | FontTypeCidType2ot-    | AnotherFontType Int-    deriving (Show, Eq)--instance 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--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--data Error = -      ErrorInvalid-    | ErrorEncrypted-    | ErrorOpenFile-    | ErrorBadCatalog-    | ErrorDamaged-    | AnotherError Int-    deriving (Show, Eq)--instance 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 GErrorClass Error where-    gerrorClassDomain _ = "poppler-quark"--catchError ::-    IO a ->-    (Error -> GErrorMessage -> IO a) ->-    IO a-catchError = catchGErrorJustDomain--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--data DestType = -      DestTypeUnknown-    | DestTypeXyz-    | DestTypeFit-    | DestTypeFith-    | DestTypeFitv-    | DestTypeFitr-    | DestTypeFitb-    | DestTypeFitbh-    | DestTypeFitbv-    | DestTypeNamed-    | AnotherDestType Int-    deriving (Show, Eq)--instance 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--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--data Backend = -      BackendUnknown-    | BackendSplash-    | BackendCairo-    | AnotherBackend Int-    deriving (Show, Eq)--instance 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--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--data AnnotType = -      AnnotTypeUnknown-    | AnnotTypeText-    | AnnotTypeLink-    | AnnotTypeFreeText-    | AnnotTypeLine-    | AnnotTypeSquare-    | AnnotTypeCircle-    | AnnotTypePolygon-    | AnnotTypePolyLine-    | AnnotTypeHighlight-    | AnnotTypeUnderline-    | AnnotTypeSquiggly-    | AnnotTypeStrikeOut-    | AnnotTypeStamp-    | AnnotTypeCaret-    | AnnotTypeInk-    | AnnotTypePopup-    | AnnotTypeFileAttachment-    | AnnotTypeSound-    | AnnotTypeMovie-    | AnnotTypeWidget-    | AnnotTypeScreen-    | AnnotTypePrinterMark-    | AnnotTypeTrapNet-    | AnnotTypeWatermark-    | AnnotType3d-    | AnotherAnnotType Int-    deriving (Show, Eq)--instance 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--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--data AnnotTextState = -      AnnotTextStateMarked-    | AnnotTextStateUnmarked-    | AnnotTextStateAccepted-    | AnnotTextStateRejected-    | AnnotTextStateCancelled-    | AnnotTextStateCompleted-    | AnnotTextStateNone-    | AnnotTextStateUnknown-    | AnotherAnnotTextState Int-    deriving (Show, Eq)--instance 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--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--data AnnotMarkupReplyType = -      AnnotMarkupReplyTypeR-    | AnnotMarkupReplyTypeGroup-    | AnotherAnnotMarkupReplyType Int-    deriving (Show, Eq)--instance Enum AnnotMarkupReplyType where-    fromEnum AnnotMarkupReplyTypeR = 0-    fromEnum AnnotMarkupReplyTypeGroup = 1-    fromEnum (AnotherAnnotMarkupReplyType k) = k--    toEnum 0 = AnnotMarkupReplyTypeR-    toEnum 1 = AnnotMarkupReplyTypeGroup-    toEnum k = AnotherAnnotMarkupReplyType k--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--data AnnotFreeTextQuadding = -      AnnotFreeTextQuaddingLeftJustified-    | AnnotFreeTextQuaddingCentered-    | AnnotFreeTextQuaddingRightJustified-    | AnotherAnnotFreeTextQuadding Int-    deriving (Show, Eq)--instance 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--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--data AnnotExternalDataType = -      AnnotExternalDataType3d-    | AnnotExternalDataTypeUnknown-    | AnotherAnnotExternalDataType Int-    deriving (Show, Eq)--instance Enum AnnotExternalDataType where-    fromEnum AnnotExternalDataType3d = 0-    fromEnum AnnotExternalDataTypeUnknown = 1-    fromEnum (AnotherAnnotExternalDataType k) = k--    toEnum 0 = AnnotExternalDataType3d-    toEnum 1 = AnnotExternalDataTypeUnknown-    toEnum k = AnotherAnnotExternalDataType k--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 ActionType--data ActionType = -      ActionTypeUnknown-    | ActionTypeNone-    | ActionTypeGotoDest-    | ActionTypeGotoRemote-    | ActionTypeLaunch-    | ActionTypeUri-    | ActionTypeNamed-    | ActionTypeMovie-    | ActionTypeRendition-    | ActionTypeOcgState-    | ActionTypeJavascript-    | AnotherActionType Int-    deriving (Show, Eq)--instance 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--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--data ActionMovieOperation = -      ActionMovieOperationPlay-    | ActionMovieOperationPause-    | ActionMovieOperationResume-    | ActionMovieOperationStop-    | AnotherActionMovieOperation Int-    deriving (Show, Eq)--instance 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--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--data ActionLayerAction = -      ActionLayerActionOn-    | ActionLayerActionOff-    | ActionLayerActionToggle-    | AnotherActionLayerAction Int-    deriving (Show, Eq)--instance 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--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--
− GI/Poppler/Flags.hs 
@@ -1,260 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Poppler.Flags-    ( ---- * Exported types-    ViewerPreferences(..)                   ,-    StructureGetTextFlags(..)               ,-    PrintFlags(..)                          ,-    Permissions(..)                         ,-    FindFlags(..)                           ,-    AnnotFlag(..)                           ,---    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map------- Flags ViewerPreferences--data ViewerPreferences = -      ViewerPreferencesUnset-    | ViewerPreferencesHideToolbar-    | ViewerPreferencesHideMenubar-    | ViewerPreferencesHideWindowui-    | ViewerPreferencesFitWindow-    | ViewerPreferencesCenterWindow-    | ViewerPreferencesDisplayDocTitle-    | ViewerPreferencesDirectionRtl-    | AnotherViewerPreferences Int-    deriving (Show, Eq)--instance 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--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--data StructureGetTextFlags = -      StructureGetTextFlagsNone-    | StructureGetTextFlagsRecursive-    | AnotherStructureGetTextFlags Int-    deriving (Show, Eq)--instance Enum StructureGetTextFlags where-    fromEnum StructureGetTextFlagsNone = 0-    fromEnum StructureGetTextFlagsRecursive = 1-    fromEnum (AnotherStructureGetTextFlags k) = k--    toEnum 0 = StructureGetTextFlagsNone-    toEnum 1 = StructureGetTextFlagsRecursive-    toEnum k = AnotherStructureGetTextFlags k--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--data PrintFlags = -      PrintFlagsDocument-    | PrintFlagsMarkupAnnots-    | PrintFlagsStampAnnotsOnly-    | PrintFlagsAll-    | AnotherPrintFlags Int-    deriving (Show, Eq)--instance 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 k = AnotherPrintFlags k--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--data Permissions = -      PermissionsOkToPrint-    | PermissionsOkToModify-    | PermissionsOkToCopy-    | PermissionsOkToAddNotes-    | PermissionsOkToFillForm-    | PermissionsOkToExtractContents-    | PermissionsOkToAssemble-    | PermissionsOkToPrintHighResolution-    | PermissionsFull-    | AnotherPermissions Int-    deriving (Show, Eq)--instance 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--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--data FindFlags = -      FindFlagsDefault-    | FindFlagsCaseSensitive-    | FindFlagsBackwards-    | FindFlagsWholeWordsOnly-    | AnotherFindFlags Int-    deriving (Show, Eq)--instance Enum FindFlags where-    fromEnum FindFlagsDefault = 0-    fromEnum FindFlagsCaseSensitive = 1-    fromEnum FindFlagsBackwards = 2-    fromEnum FindFlagsWholeWordsOnly = 4-    fromEnum (AnotherFindFlags k) = k--    toEnum 0 = FindFlagsDefault-    toEnum 1 = FindFlagsCaseSensitive-    toEnum 2 = FindFlagsBackwards-    toEnum 4 = FindFlagsWholeWordsOnly-    toEnum k = AnotherFindFlags k--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--data AnnotFlag = -      AnnotFlagUnknown-    | AnnotFlagInvisible-    | AnnotFlagHidden-    | AnnotFlagPrint-    | AnnotFlagNoZoom-    | AnnotFlagNoRotate-    | AnnotFlagNoView-    | AnnotFlagReadOnly-    | AnnotFlagLocked-    | AnnotFlagToggleNoView-    | AnnotFlagLockedContents-    | AnotherAnnotFlag Int-    deriving (Show, Eq)--instance 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--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--
− GI/Poppler/Functions.hs 
@@ -1,106 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Poppler.Functions-    ( -- -- * Methods--- ** dateParse-    dateParse                               ,----- ** getBackend-    getBackend                              ,----- ** getVersion-    getVersion                              ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks---- 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---getVersion ::-    (MonadIO m) =>-    m T.Text                                -- result-getVersion  = liftIO $ do-    result <- poppler_get_version-    checkUnexpectedReturnNULL "poppler_get_version" result-    result' <- cstringToText result-    return result'----- function poppler_get_backend--- Args : []--- Lengths : []--- returnType : Just (TInterface "Poppler" "Backend")--- throws : False--- Skip return : False--foreign import ccall "poppler_get_backend" poppler_get_backend :: -    IO CUInt---getBackend ::-    (MonadIO m) =>-    m Backend                               -- result-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, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timet", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, 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---dateParse ::-    (MonadIO m) =>-    T.Text                                  -- date-    -> CLong                                -- timet-    -> m Bool                               -- result-dateParse date timet = liftIO $ do-    date' <- textToCString date-    result <- poppler_date_parse date' timet-    let result' = (/= 0) result-    freeMem date'-    return result'---
− GI/Poppler/Objects.hs 
@@ -1,67 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--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.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks--
− GI/Poppler/Objects/Annot.hs 
@@ -1,526 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Poppler.Objects.Annot-    ( ---- * Exported types-    Annot(..)                               ,-    AnnotK                                  ,-    toAnnot                                 ,-    noAnnot                                 ,--- -- * Methods--- ** annotGetAnnotType-    AnnotGetAnnotTypeMethodInfo             ,-    annotGetAnnotType                       ,----- ** annotGetColor-    AnnotGetColorMethodInfo                 ,-    annotGetColor                           ,----- ** annotGetContents-    AnnotGetContentsMethodInfo              ,-    annotGetContents                        ,----- ** annotGetFlags-    AnnotGetFlagsMethodInfo                 ,-    annotGetFlags                           ,----- ** annotGetModified-    AnnotGetModifiedMethodInfo              ,-    annotGetModified                        ,----- ** annotGetName-    AnnotGetNameMethodInfo                  ,-    annotGetName                            ,----- ** annotGetPageIndex-    AnnotGetPageIndexMethodInfo             ,-    annotGetPageIndex                       ,----- ** annotGetRectangle-    AnnotGetRectangleMethodInfo             ,-    annotGetRectangle                       ,----- ** annotSetColor-    AnnotSetColorMethodInfo                 ,-    annotSetColor                           ,----- ** annotSetContents-    AnnotSetContentsMethodInfo              ,-    annotSetContents                        ,----- ** annotSetFlags-    AnnotSetFlagsMethodInfo                 ,-    annotSetFlags                           ,----- ** annotSetRectangle-    AnnotSetRectangleMethodInfo             ,-    annotSetRectangle                       ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks-import qualified GI.GObject as GObject--newtype Annot = Annot (ForeignPtr Annot)-foreign import ccall "poppler_annot_get_type"-    c_poppler_annot_get_type :: IO GType--type instance ParentTypes Annot = AnnotParentTypes-type AnnotParentTypes = '[GObject.Object]--instance GObject Annot where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_poppler_annot_get_type-    --class GObject o => AnnotK o-instance (GObject o, IsDescendantOf Annot o) => AnnotK o--toAnnot :: AnnotK o => o -> IO Annot-toAnnot = unsafeCastTo Annot--noAnnot :: Maybe Annot-noAnnot = Nothing--type family ResolveAnnotMethod (t :: Symbol) (o :: *) :: * where-    ResolveAnnotMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveAnnotMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveAnnotMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveAnnotMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveAnnotMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveAnnotMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveAnnotMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveAnnotMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveAnnotMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveAnnotMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveAnnotMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveAnnotMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveAnnotMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveAnnotMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveAnnotMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveAnnotMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveAnnotMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveAnnotMethod "getAnnotType" o = AnnotGetAnnotTypeMethodInfo-    ResolveAnnotMethod "getColor" o = AnnotGetColorMethodInfo-    ResolveAnnotMethod "getContents" o = AnnotGetContentsMethodInfo-    ResolveAnnotMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveAnnotMethod "getFlags" o = AnnotGetFlagsMethodInfo-    ResolveAnnotMethod "getModified" o = AnnotGetModifiedMethodInfo-    ResolveAnnotMethod "getName" o = AnnotGetNameMethodInfo-    ResolveAnnotMethod "getPageIndex" o = AnnotGetPageIndexMethodInfo-    ResolveAnnotMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveAnnotMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveAnnotMethod "getRectangle" o = AnnotGetRectangleMethodInfo-    ResolveAnnotMethod "setColor" o = AnnotSetColorMethodInfo-    ResolveAnnotMethod "setContents" o = AnnotSetContentsMethodInfo-    ResolveAnnotMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveAnnotMethod "setFlags" o = AnnotSetFlagsMethodInfo-    ResolveAnnotMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveAnnotMethod "setRectangle" o = AnnotSetRectangleMethodInfo-    ResolveAnnotMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveAnnotMethod t Annot, MethodInfo info Annot p) => IsLabelProxy t (Annot -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveAnnotMethod t Annot, MethodInfo info Annot p) => IsLabel t (Annot -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList Annot = AnnotAttributeList-type AnnotAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList Annot = AnnotSignalList-type AnnotSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method Annot::get_annot_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "AnnotType")--- throws : False--- Skip return : False--foreign import ccall "poppler_annot_get_annot_type" poppler_annot_get_annot_type :: -    Ptr Annot ->                            -- _obj : TInterface "Poppler" "Annot"-    IO CUInt---annotGetAnnotType ::-    (MonadIO m, AnnotK a) =>-    a                                       -- _obj-    -> m AnnotType                          -- result-annotGetAnnotType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_annot_get_annot_type _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data AnnotGetAnnotTypeMethodInfo-instance (signature ~ (m AnnotType), MonadIO m, AnnotK a) => MethodInfo AnnotGetAnnotTypeMethodInfo a signature where-    overloadedMethod _ = annotGetAnnotType---- method Annot::get_color--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "Color")--- throws : False--- Skip return : False--foreign import ccall "poppler_annot_get_color" poppler_annot_get_color :: -    Ptr Annot ->                            -- _obj : TInterface "Poppler" "Annot"-    IO (Ptr Color)---annotGetColor ::-    (MonadIO m, AnnotK a) =>-    a                                       -- _obj-    -> m Color                              -- result-annotGetColor _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_annot_get_color _obj'-    checkUnexpectedReturnNULL "poppler_annot_get_color" result-    result' <- (wrapBoxed Color) result-    touchManagedPtr _obj-    return result'--data AnnotGetColorMethodInfo-instance (signature ~ (m Color), MonadIO m, AnnotK a) => MethodInfo AnnotGetColorMethodInfo a signature where-    overloadedMethod _ = annotGetColor---- method Annot::get_contents--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Poppler" "Annot"-    IO CString---annotGetContents ::-    (MonadIO m, AnnotK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-annotGetContents _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_annot_get_contents _obj'-    checkUnexpectedReturnNULL "poppler_annot_get_contents" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data AnnotGetContentsMethodInfo-instance (signature ~ (m T.Text), MonadIO m, AnnotK a) => MethodInfo AnnotGetContentsMethodInfo a signature where-    overloadedMethod _ = annotGetContents---- method Annot::get_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "AnnotFlag")--- throws : False--- Skip return : False--foreign import ccall "poppler_annot_get_flags" poppler_annot_get_flags :: -    Ptr Annot ->                            -- _obj : TInterface "Poppler" "Annot"-    IO CUInt---annotGetFlags ::-    (MonadIO m, AnnotK a) =>-    a                                       -- _obj-    -> m [AnnotFlag]                        -- result-annotGetFlags _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_annot_get_flags _obj'-    let result' = wordToGFlags result-    touchManagedPtr _obj-    return result'--data AnnotGetFlagsMethodInfo-instance (signature ~ (m [AnnotFlag]), MonadIO m, AnnotK a) => MethodInfo AnnotGetFlagsMethodInfo a signature where-    overloadedMethod _ = annotGetFlags---- method Annot::get_modified--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Poppler" "Annot"-    IO CString---annotGetModified ::-    (MonadIO m, AnnotK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-annotGetModified _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_annot_get_modified _obj'-    checkUnexpectedReturnNULL "poppler_annot_get_modified" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data AnnotGetModifiedMethodInfo-instance (signature ~ (m T.Text), MonadIO m, AnnotK a) => MethodInfo AnnotGetModifiedMethodInfo a signature where-    overloadedMethod _ = annotGetModified---- method Annot::get_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Poppler" "Annot"-    IO CString---annotGetName ::-    (MonadIO m, AnnotK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-annotGetName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_annot_get_name _obj'-    checkUnexpectedReturnNULL "poppler_annot_get_name" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data AnnotGetNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, AnnotK a) => MethodInfo AnnotGetNameMethodInfo a signature where-    overloadedMethod _ = annotGetName---- method Annot::get_page_index--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Poppler" "Annot"-    IO Int32---annotGetPageIndex ::-    (MonadIO m, AnnotK a) =>-    a                                       -- _obj-    -> m Int32                              -- result-annotGetPageIndex _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_annot_get_page_index _obj'-    touchManagedPtr _obj-    return result--data AnnotGetPageIndexMethodInfo-instance (signature ~ (m Int32), MonadIO m, AnnotK a) => MethodInfo AnnotGetPageIndexMethodInfo a signature where-    overloadedMethod _ = annotGetPageIndex---- method Annot::get_rectangle--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "poppler_rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionOut, mayBeNull = False, 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 ->                            -- _obj : TInterface "Poppler" "Annot"-    Ptr Rectangle ->                        -- poppler_rect : TInterface "Poppler" "Rectangle"-    IO ()---annotGetRectangle ::-    (MonadIO m, AnnotK a) =>-    a                                       -- _obj-    -> m (Rectangle)                        -- result-annotGetRectangle _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    popplerRect <- callocBoxedBytes 32 :: IO (Ptr Rectangle)-    poppler_annot_get_rectangle _obj' popplerRect-    popplerRect' <- (wrapBoxed Rectangle) popplerRect-    touchManagedPtr _obj-    return popplerRect'--data AnnotGetRectangleMethodInfo-instance (signature ~ (m (Rectangle)), MonadIO m, AnnotK a) => MethodInfo AnnotGetRectangleMethodInfo a signature where-    overloadedMethod _ = annotGetRectangle---- method Annot::set_color--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "poppler_color", argType = TInterface "Poppler" "Color", direction = DirectionIn, mayBeNull = True, 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 ->                            -- _obj : TInterface "Poppler" "Annot"-    Ptr Color ->                            -- poppler_color : TInterface "Poppler" "Color"-    IO ()---annotSetColor ::-    (MonadIO m, AnnotK a) =>-    a                                       -- _obj-    -> Maybe (Color)                        -- popplerColor-    -> m ()                                 -- result-annotSetColor _obj popplerColor = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybePopplerColor <- case popplerColor of-        Nothing -> return nullPtr-        Just jPopplerColor -> do-            let jPopplerColor' = unsafeManagedPtrGetPtr jPopplerColor-            return jPopplerColor'-    poppler_annot_set_color _obj' maybePopplerColor-    touchManagedPtr _obj-    whenJust popplerColor touchManagedPtr-    return ()--data AnnotSetColorMethodInfo-instance (signature ~ (Maybe (Color) -> m ()), MonadIO m, AnnotK a) => MethodInfo AnnotSetColorMethodInfo a signature where-    overloadedMethod _ = annotSetColor---- method Annot::set_contents--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "contents", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Poppler" "Annot"-    CString ->                              -- contents : TBasicType TUTF8-    IO ()---annotSetContents ::-    (MonadIO m, AnnotK a) =>-    a                                       -- _obj-    -> T.Text                               -- contents-    -> m ()                                 -- result-annotSetContents _obj contents = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    contents' <- textToCString contents-    poppler_annot_set_contents _obj' contents'-    touchManagedPtr _obj-    freeMem contents'-    return ()--data AnnotSetContentsMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, AnnotK a) => MethodInfo AnnotSetContentsMethodInfo a signature where-    overloadedMethod _ = annotSetContents---- method Annot::set_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Poppler" "AnnotFlag", direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Poppler" "Annot"-    CUInt ->                                -- flags : TInterface "Poppler" "AnnotFlag"-    IO ()---annotSetFlags ::-    (MonadIO m, AnnotK a) =>-    a                                       -- _obj-    -> [AnnotFlag]                          -- flags-    -> m ()                                 -- result-annotSetFlags _obj flags = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let flags' = gflagsToWord flags-    poppler_annot_set_flags _obj' flags'-    touchManagedPtr _obj-    return ()--data AnnotSetFlagsMethodInfo-instance (signature ~ ([AnnotFlag] -> m ()), MonadIO m, AnnotK a) => MethodInfo AnnotSetFlagsMethodInfo a signature where-    overloadedMethod _ = annotSetFlags---- method Annot::set_rectangle--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "poppler_rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Poppler" "Annot"-    Ptr Rectangle ->                        -- poppler_rect : TInterface "Poppler" "Rectangle"-    IO ()---annotSetRectangle ::-    (MonadIO m, AnnotK a) =>-    a                                       -- _obj-    -> Rectangle                            -- popplerRect-    -> m ()                                 -- result-annotSetRectangle _obj popplerRect = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let popplerRect' = unsafeManagedPtrGetPtr popplerRect-    poppler_annot_set_rectangle _obj' popplerRect'-    touchManagedPtr _obj-    touchManagedPtr popplerRect-    return ()--data AnnotSetRectangleMethodInfo-instance (signature ~ (Rectangle -> m ()), MonadIO m, AnnotK a) => MethodInfo AnnotSetRectangleMethodInfo a signature where-    overloadedMethod _ = annotSetRectangle--
− GI/Poppler/Objects/Annot.hs-boot 
@@ -1,25 +0,0 @@-module GI.Poppler.Objects.Annot where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Annot = Annot (ForeignPtr Annot)-instance GObject Annot where-class GObject o => AnnotK o-instance (GObject o, IsDescendantOf Annot o) => AnnotK o-data AnnotGetAnnotTypeMethodInfo-data AnnotGetColorMethodInfo-data AnnotGetContentsMethodInfo-data AnnotGetFlagsMethodInfo-data AnnotGetModifiedMethodInfo-data AnnotGetNameMethodInfo-data AnnotGetPageIndexMethodInfo-data AnnotGetRectangleMethodInfo-data AnnotSetColorMethodInfo-data AnnotSetContentsMethodInfo-data AnnotSetFlagsMethodInfo-data AnnotSetRectangleMethodInfo
− GI/Poppler/Objects/AnnotCircle.hs 
@@ -1,230 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Poppler.Objects.AnnotCircle-    ( ---- * Exported types-    AnnotCircle(..)                         ,-    AnnotCircleK                            ,-    toAnnotCircle                           ,-    noAnnotCircle                           ,--- -- * Methods--- ** annotCircleGetInteriorColor-    AnnotCircleGetInteriorColorMethodInfo   ,-    annotCircleGetInteriorColor             ,----- ** annotCircleNew-    annotCircleNew                          ,----- ** annotCircleSetInteriorColor-    AnnotCircleSetInteriorColorMethodInfo   ,-    annotCircleSetInteriorColor             ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks-import qualified GI.GObject as GObject--newtype AnnotCircle = AnnotCircle (ForeignPtr AnnotCircle)-foreign import ccall "poppler_annot_circle_get_type"-    c_poppler_annot_circle_get_type :: IO GType--type instance ParentTypes AnnotCircle = AnnotCircleParentTypes-type AnnotCircleParentTypes = '[AnnotMarkup, Annot, GObject.Object]--instance GObject AnnotCircle where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_poppler_annot_circle_get_type-    --class GObject o => AnnotCircleK o-instance (GObject o, IsDescendantOf AnnotCircle o) => AnnotCircleK o--toAnnotCircle :: AnnotCircleK o => o -> IO AnnotCircle-toAnnotCircle = unsafeCastTo AnnotCircle--noAnnotCircle :: Maybe AnnotCircle-noAnnotCircle = Nothing--type family ResolveAnnotCircleMethod (t :: Symbol) (o :: *) :: * where-    ResolveAnnotCircleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveAnnotCircleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveAnnotCircleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveAnnotCircleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveAnnotCircleMethod "hasPopup" o = AnnotMarkupHasPopupMethodInfo-    ResolveAnnotCircleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveAnnotCircleMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveAnnotCircleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveAnnotCircleMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveAnnotCircleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveAnnotCircleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveAnnotCircleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveAnnotCircleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveAnnotCircleMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveAnnotCircleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveAnnotCircleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveAnnotCircleMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveAnnotCircleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveAnnotCircleMethod "getAnnotType" o = AnnotGetAnnotTypeMethodInfo-    ResolveAnnotCircleMethod "getColor" o = AnnotGetColorMethodInfo-    ResolveAnnotCircleMethod "getContents" o = AnnotGetContentsMethodInfo-    ResolveAnnotCircleMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveAnnotCircleMethod "getDate" o = AnnotMarkupGetDateMethodInfo-    ResolveAnnotCircleMethod "getExternalData" o = AnnotMarkupGetExternalDataMethodInfo-    ResolveAnnotCircleMethod "getFlags" o = AnnotGetFlagsMethodInfo-    ResolveAnnotCircleMethod "getInteriorColor" o = AnnotCircleGetInteriorColorMethodInfo-    ResolveAnnotCircleMethod "getLabel" o = AnnotMarkupGetLabelMethodInfo-    ResolveAnnotCircleMethod "getModified" o = AnnotGetModifiedMethodInfo-    ResolveAnnotCircleMethod "getName" o = AnnotGetNameMethodInfo-    ResolveAnnotCircleMethod "getOpacity" o = AnnotMarkupGetOpacityMethodInfo-    ResolveAnnotCircleMethod "getPageIndex" o = AnnotGetPageIndexMethodInfo-    ResolveAnnotCircleMethod "getPopupIsOpen" o = AnnotMarkupGetPopupIsOpenMethodInfo-    ResolveAnnotCircleMethod "getPopupRectangle" o = AnnotMarkupGetPopupRectangleMethodInfo-    ResolveAnnotCircleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveAnnotCircleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveAnnotCircleMethod "getRectangle" o = AnnotGetRectangleMethodInfo-    ResolveAnnotCircleMethod "getReplyTo" o = AnnotMarkupGetReplyToMethodInfo-    ResolveAnnotCircleMethod "getSubject" o = AnnotMarkupGetSubjectMethodInfo-    ResolveAnnotCircleMethod "setColor" o = AnnotSetColorMethodInfo-    ResolveAnnotCircleMethod "setContents" o = AnnotSetContentsMethodInfo-    ResolveAnnotCircleMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveAnnotCircleMethod "setFlags" o = AnnotSetFlagsMethodInfo-    ResolveAnnotCircleMethod "setInteriorColor" o = AnnotCircleSetInteriorColorMethodInfo-    ResolveAnnotCircleMethod "setLabel" o = AnnotMarkupSetLabelMethodInfo-    ResolveAnnotCircleMethod "setOpacity" o = AnnotMarkupSetOpacityMethodInfo-    ResolveAnnotCircleMethod "setPopup" o = AnnotMarkupSetPopupMethodInfo-    ResolveAnnotCircleMethod "setPopupIsOpen" o = AnnotMarkupSetPopupIsOpenMethodInfo-    ResolveAnnotCircleMethod "setPopupRectangle" o = AnnotMarkupSetPopupRectangleMethodInfo-    ResolveAnnotCircleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveAnnotCircleMethod "setRectangle" o = AnnotSetRectangleMethodInfo-    ResolveAnnotCircleMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveAnnotCircleMethod t AnnotCircle, MethodInfo info AnnotCircle p) => IsLabelProxy t (AnnotCircle -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveAnnotCircleMethod t AnnotCircle, MethodInfo info AnnotCircle p) => IsLabel t (AnnotCircle -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList AnnotCircle = AnnotCircleAttributeList-type AnnotCircleAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList AnnotCircle = AnnotCircleSignalList-type AnnotCircleSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method AnnotCircle::new--- method type : Constructor--- Args : [Arg {argCName = "doc", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "AnnotCircle")--- throws : False--- Skip return : False--foreign import ccall "poppler_annot_circle_new" poppler_annot_circle_new :: -    Ptr Document ->                         -- doc : TInterface "Poppler" "Document"-    Ptr Rectangle ->                        -- rect : TInterface "Poppler" "Rectangle"-    IO (Ptr AnnotCircle)---annotCircleNew ::-    (MonadIO m, DocumentK a) =>-    a                                       -- doc-    -> Rectangle                            -- rect-    -> m AnnotCircle                        -- result-annotCircleNew doc rect = liftIO $ do-    let doc' = unsafeManagedPtrCastPtr doc-    let rect' = unsafeManagedPtrGetPtr rect-    result <- poppler_annot_circle_new doc' rect'-    checkUnexpectedReturnNULL "poppler_annot_circle_new" result-    result' <- (wrapObject AnnotCircle) result-    touchManagedPtr doc-    touchManagedPtr rect-    return result'---- method AnnotCircle::get_interior_color--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotCircle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "Color")--- throws : False--- Skip return : False--foreign import ccall "poppler_annot_circle_get_interior_color" poppler_annot_circle_get_interior_color :: -    Ptr AnnotCircle ->                      -- _obj : TInterface "Poppler" "AnnotCircle"-    IO (Ptr Color)---annotCircleGetInteriorColor ::-    (MonadIO m, AnnotCircleK a) =>-    a                                       -- _obj-    -> m Color                              -- result-annotCircleGetInteriorColor _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_annot_circle_get_interior_color _obj'-    checkUnexpectedReturnNULL "poppler_annot_circle_get_interior_color" result-    result' <- (wrapBoxed Color) result-    touchManagedPtr _obj-    return result'--data AnnotCircleGetInteriorColorMethodInfo-instance (signature ~ (m Color), MonadIO m, AnnotCircleK a) => MethodInfo AnnotCircleGetInteriorColorMethodInfo a signature where-    overloadedMethod _ = annotCircleGetInteriorColor---- method AnnotCircle::set_interior_color--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotCircle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "poppler_color", argType = TInterface "Poppler" "Color", direction = DirectionIn, mayBeNull = True, 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 ->                      -- _obj : TInterface "Poppler" "AnnotCircle"-    Ptr Color ->                            -- poppler_color : TInterface "Poppler" "Color"-    IO ()---annotCircleSetInteriorColor ::-    (MonadIO m, AnnotCircleK a) =>-    a                                       -- _obj-    -> Maybe (Color)                        -- popplerColor-    -> m ()                                 -- result-annotCircleSetInteriorColor _obj popplerColor = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybePopplerColor <- case popplerColor of-        Nothing -> return nullPtr-        Just jPopplerColor -> do-            let jPopplerColor' = unsafeManagedPtrGetPtr jPopplerColor-            return jPopplerColor'-    poppler_annot_circle_set_interior_color _obj' maybePopplerColor-    touchManagedPtr _obj-    whenJust popplerColor touchManagedPtr-    return ()--data AnnotCircleSetInteriorColorMethodInfo-instance (signature ~ (Maybe (Color) -> m ()), MonadIO m, AnnotCircleK a) => MethodInfo AnnotCircleSetInteriorColorMethodInfo a signature where-    overloadedMethod _ = annotCircleSetInteriorColor--
− GI/Poppler/Objects/AnnotCircle.hs-boot 
@@ -1,15 +0,0 @@-module GI.Poppler.Objects.AnnotCircle where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype AnnotCircle = AnnotCircle (ForeignPtr AnnotCircle)-instance GObject AnnotCircle where-class GObject o => AnnotCircleK o-instance (GObject o, IsDescendantOf AnnotCircle o) => AnnotCircleK o-data AnnotCircleGetInteriorColorMethodInfo-data AnnotCircleSetInteriorColorMethodInfo
− GI/Poppler/Objects/AnnotFileAttachment.hs 
@@ -1,190 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Poppler.Objects.AnnotFileAttachment-    ( ---- * Exported types-    AnnotFileAttachment(..)                 ,-    AnnotFileAttachmentK                    ,-    toAnnotFileAttachment                   ,-    noAnnotFileAttachment                   ,--- -- * Methods--- ** annotFileAttachmentGetAttachment-    AnnotFileAttachmentGetAttachmentMethodInfo,-    annotFileAttachmentGetAttachment        ,----- ** annotFileAttachmentGetName-    AnnotFileAttachmentGetNameMethodInfo    ,-    annotFileAttachmentGetName              ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks-import qualified GI.GObject as GObject--newtype AnnotFileAttachment = AnnotFileAttachment (ForeignPtr AnnotFileAttachment)-foreign import ccall "poppler_annot_file_attachment_get_type"-    c_poppler_annot_file_attachment_get_type :: IO GType--type instance ParentTypes AnnotFileAttachment = AnnotFileAttachmentParentTypes-type AnnotFileAttachmentParentTypes = '[AnnotMarkup, Annot, GObject.Object]--instance GObject AnnotFileAttachment where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_poppler_annot_file_attachment_get_type-    --class GObject o => AnnotFileAttachmentK o-instance (GObject o, IsDescendantOf AnnotFileAttachment o) => AnnotFileAttachmentK o--toAnnotFileAttachment :: AnnotFileAttachmentK o => o -> IO AnnotFileAttachment-toAnnotFileAttachment = unsafeCastTo AnnotFileAttachment--noAnnotFileAttachment :: Maybe AnnotFileAttachment-noAnnotFileAttachment = Nothing--type family ResolveAnnotFileAttachmentMethod (t :: Symbol) (o :: *) :: * where-    ResolveAnnotFileAttachmentMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveAnnotFileAttachmentMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveAnnotFileAttachmentMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveAnnotFileAttachmentMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveAnnotFileAttachmentMethod "hasPopup" o = AnnotMarkupHasPopupMethodInfo-    ResolveAnnotFileAttachmentMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveAnnotFileAttachmentMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveAnnotFileAttachmentMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveAnnotFileAttachmentMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveAnnotFileAttachmentMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveAnnotFileAttachmentMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveAnnotFileAttachmentMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveAnnotFileAttachmentMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveAnnotFileAttachmentMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveAnnotFileAttachmentMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveAnnotFileAttachmentMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveAnnotFileAttachmentMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveAnnotFileAttachmentMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveAnnotFileAttachmentMethod "getAnnotType" o = AnnotGetAnnotTypeMethodInfo-    ResolveAnnotFileAttachmentMethod "getAttachment" o = AnnotFileAttachmentGetAttachmentMethodInfo-    ResolveAnnotFileAttachmentMethod "getColor" o = AnnotGetColorMethodInfo-    ResolveAnnotFileAttachmentMethod "getContents" o = AnnotGetContentsMethodInfo-    ResolveAnnotFileAttachmentMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveAnnotFileAttachmentMethod "getDate" o = AnnotMarkupGetDateMethodInfo-    ResolveAnnotFileAttachmentMethod "getExternalData" o = AnnotMarkupGetExternalDataMethodInfo-    ResolveAnnotFileAttachmentMethod "getFlags" o = AnnotGetFlagsMethodInfo-    ResolveAnnotFileAttachmentMethod "getLabel" o = AnnotMarkupGetLabelMethodInfo-    ResolveAnnotFileAttachmentMethod "getModified" o = AnnotGetModifiedMethodInfo-    ResolveAnnotFileAttachmentMethod "getOpacity" o = AnnotMarkupGetOpacityMethodInfo-    ResolveAnnotFileAttachmentMethod "getPageIndex" o = AnnotGetPageIndexMethodInfo-    ResolveAnnotFileAttachmentMethod "getPopupIsOpen" o = AnnotMarkupGetPopupIsOpenMethodInfo-    ResolveAnnotFileAttachmentMethod "getPopupRectangle" o = AnnotMarkupGetPopupRectangleMethodInfo-    ResolveAnnotFileAttachmentMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveAnnotFileAttachmentMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveAnnotFileAttachmentMethod "getRectangle" o = AnnotGetRectangleMethodInfo-    ResolveAnnotFileAttachmentMethod "getReplyTo" o = AnnotMarkupGetReplyToMethodInfo-    ResolveAnnotFileAttachmentMethod "getSubject" o = AnnotMarkupGetSubjectMethodInfo-    ResolveAnnotFileAttachmentMethod "setColor" o = AnnotSetColorMethodInfo-    ResolveAnnotFileAttachmentMethod "setContents" o = AnnotSetContentsMethodInfo-    ResolveAnnotFileAttachmentMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveAnnotFileAttachmentMethod "setFlags" o = AnnotSetFlagsMethodInfo-    ResolveAnnotFileAttachmentMethod "setLabel" o = AnnotMarkupSetLabelMethodInfo-    ResolveAnnotFileAttachmentMethod "setOpacity" o = AnnotMarkupSetOpacityMethodInfo-    ResolveAnnotFileAttachmentMethod "setPopup" o = AnnotMarkupSetPopupMethodInfo-    ResolveAnnotFileAttachmentMethod "setPopupIsOpen" o = AnnotMarkupSetPopupIsOpenMethodInfo-    ResolveAnnotFileAttachmentMethod "setPopupRectangle" o = AnnotMarkupSetPopupRectangleMethodInfo-    ResolveAnnotFileAttachmentMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveAnnotFileAttachmentMethod "setRectangle" o = AnnotSetRectangleMethodInfo-    ResolveAnnotFileAttachmentMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveAnnotFileAttachmentMethod t AnnotFileAttachment, MethodInfo info AnnotFileAttachment p) => IsLabelProxy t (AnnotFileAttachment -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveAnnotFileAttachmentMethod t AnnotFileAttachment, MethodInfo info AnnotFileAttachment p) => IsLabel t (AnnotFileAttachment -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList AnnotFileAttachment = AnnotFileAttachmentAttributeList-type AnnotFileAttachmentAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList AnnotFileAttachment = AnnotFileAttachmentSignalList-type AnnotFileAttachmentSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method AnnotFileAttachment::get_attachment--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotFileAttachment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "Attachment")--- throws : False--- Skip return : False--foreign import ccall "poppler_annot_file_attachment_get_attachment" poppler_annot_file_attachment_get_attachment :: -    Ptr AnnotFileAttachment ->              -- _obj : TInterface "Poppler" "AnnotFileAttachment"-    IO (Ptr Attachment)---annotFileAttachmentGetAttachment ::-    (MonadIO m, AnnotFileAttachmentK a) =>-    a                                       -- _obj-    -> m Attachment                         -- result-annotFileAttachmentGetAttachment _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_annot_file_attachment_get_attachment _obj'-    checkUnexpectedReturnNULL "poppler_annot_file_attachment_get_attachment" result-    result' <- (wrapObject Attachment) result-    touchManagedPtr _obj-    return result'--data AnnotFileAttachmentGetAttachmentMethodInfo-instance (signature ~ (m Attachment), MonadIO m, AnnotFileAttachmentK a) => MethodInfo AnnotFileAttachmentGetAttachmentMethodInfo a signature where-    overloadedMethod _ = annotFileAttachmentGetAttachment---- method AnnotFileAttachment::get_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotFileAttachment", direction = DirectionIn, mayBeNull = False, 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 ->              -- _obj : TInterface "Poppler" "AnnotFileAttachment"-    IO CString---annotFileAttachmentGetName ::-    (MonadIO m, AnnotFileAttachmentK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-annotFileAttachmentGetName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_annot_file_attachment_get_name _obj'-    checkUnexpectedReturnNULL "poppler_annot_file_attachment_get_name" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data AnnotFileAttachmentGetNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, AnnotFileAttachmentK a) => MethodInfo AnnotFileAttachmentGetNameMethodInfo a signature where-    overloadedMethod _ = annotFileAttachmentGetName--
− GI/Poppler/Objects/AnnotFileAttachment.hs-boot 
@@ -1,15 +0,0 @@-module GI.Poppler.Objects.AnnotFileAttachment where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype AnnotFileAttachment = AnnotFileAttachment (ForeignPtr AnnotFileAttachment)-instance GObject AnnotFileAttachment where-class GObject o => AnnotFileAttachmentK o-instance (GObject o, IsDescendantOf AnnotFileAttachment o) => AnnotFileAttachmentK o-data AnnotFileAttachmentGetAttachmentMethodInfo-data AnnotFileAttachmentGetNameMethodInfo
− GI/Poppler/Objects/AnnotFreeText.hs 
@@ -1,190 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Poppler.Objects.AnnotFreeText-    ( ---- * Exported types-    AnnotFreeText(..)                       ,-    AnnotFreeTextK                          ,-    toAnnotFreeText                         ,-    noAnnotFreeText                         ,--- -- * Methods--- ** annotFreeTextGetCalloutLine-    AnnotFreeTextGetCalloutLineMethodInfo   ,-    annotFreeTextGetCalloutLine             ,----- ** annotFreeTextGetQuadding-    AnnotFreeTextGetQuaddingMethodInfo      ,-    annotFreeTextGetQuadding                ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks-import qualified GI.GObject as GObject--newtype AnnotFreeText = AnnotFreeText (ForeignPtr AnnotFreeText)-foreign import ccall "poppler_annot_free_text_get_type"-    c_poppler_annot_free_text_get_type :: IO GType--type instance ParentTypes AnnotFreeText = AnnotFreeTextParentTypes-type AnnotFreeTextParentTypes = '[AnnotMarkup, Annot, GObject.Object]--instance GObject AnnotFreeText where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_poppler_annot_free_text_get_type-    --class GObject o => AnnotFreeTextK o-instance (GObject o, IsDescendantOf AnnotFreeText o) => AnnotFreeTextK o--toAnnotFreeText :: AnnotFreeTextK o => o -> IO AnnotFreeText-toAnnotFreeText = unsafeCastTo AnnotFreeText--noAnnotFreeText :: Maybe AnnotFreeText-noAnnotFreeText = Nothing--type family ResolveAnnotFreeTextMethod (t :: Symbol) (o :: *) :: * where-    ResolveAnnotFreeTextMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveAnnotFreeTextMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveAnnotFreeTextMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveAnnotFreeTextMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveAnnotFreeTextMethod "hasPopup" o = AnnotMarkupHasPopupMethodInfo-    ResolveAnnotFreeTextMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveAnnotFreeTextMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveAnnotFreeTextMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveAnnotFreeTextMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveAnnotFreeTextMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveAnnotFreeTextMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveAnnotFreeTextMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveAnnotFreeTextMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveAnnotFreeTextMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveAnnotFreeTextMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveAnnotFreeTextMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveAnnotFreeTextMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveAnnotFreeTextMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveAnnotFreeTextMethod "getAnnotType" o = AnnotGetAnnotTypeMethodInfo-    ResolveAnnotFreeTextMethod "getCalloutLine" o = AnnotFreeTextGetCalloutLineMethodInfo-    ResolveAnnotFreeTextMethod "getColor" o = AnnotGetColorMethodInfo-    ResolveAnnotFreeTextMethod "getContents" o = AnnotGetContentsMethodInfo-    ResolveAnnotFreeTextMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveAnnotFreeTextMethod "getDate" o = AnnotMarkupGetDateMethodInfo-    ResolveAnnotFreeTextMethod "getExternalData" o = AnnotMarkupGetExternalDataMethodInfo-    ResolveAnnotFreeTextMethod "getFlags" o = AnnotGetFlagsMethodInfo-    ResolveAnnotFreeTextMethod "getLabel" o = AnnotMarkupGetLabelMethodInfo-    ResolveAnnotFreeTextMethod "getModified" o = AnnotGetModifiedMethodInfo-    ResolveAnnotFreeTextMethod "getName" o = AnnotGetNameMethodInfo-    ResolveAnnotFreeTextMethod "getOpacity" o = AnnotMarkupGetOpacityMethodInfo-    ResolveAnnotFreeTextMethod "getPageIndex" o = AnnotGetPageIndexMethodInfo-    ResolveAnnotFreeTextMethod "getPopupIsOpen" o = AnnotMarkupGetPopupIsOpenMethodInfo-    ResolveAnnotFreeTextMethod "getPopupRectangle" o = AnnotMarkupGetPopupRectangleMethodInfo-    ResolveAnnotFreeTextMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveAnnotFreeTextMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveAnnotFreeTextMethod "getQuadding" o = AnnotFreeTextGetQuaddingMethodInfo-    ResolveAnnotFreeTextMethod "getRectangle" o = AnnotGetRectangleMethodInfo-    ResolveAnnotFreeTextMethod "getReplyTo" o = AnnotMarkupGetReplyToMethodInfo-    ResolveAnnotFreeTextMethod "getSubject" o = AnnotMarkupGetSubjectMethodInfo-    ResolveAnnotFreeTextMethod "setColor" o = AnnotSetColorMethodInfo-    ResolveAnnotFreeTextMethod "setContents" o = AnnotSetContentsMethodInfo-    ResolveAnnotFreeTextMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveAnnotFreeTextMethod "setFlags" o = AnnotSetFlagsMethodInfo-    ResolveAnnotFreeTextMethod "setLabel" o = AnnotMarkupSetLabelMethodInfo-    ResolveAnnotFreeTextMethod "setOpacity" o = AnnotMarkupSetOpacityMethodInfo-    ResolveAnnotFreeTextMethod "setPopup" o = AnnotMarkupSetPopupMethodInfo-    ResolveAnnotFreeTextMethod "setPopupIsOpen" o = AnnotMarkupSetPopupIsOpenMethodInfo-    ResolveAnnotFreeTextMethod "setPopupRectangle" o = AnnotMarkupSetPopupRectangleMethodInfo-    ResolveAnnotFreeTextMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveAnnotFreeTextMethod "setRectangle" o = AnnotSetRectangleMethodInfo-    ResolveAnnotFreeTextMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveAnnotFreeTextMethod t AnnotFreeText, MethodInfo info AnnotFreeText p) => IsLabelProxy t (AnnotFreeText -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveAnnotFreeTextMethod t AnnotFreeText, MethodInfo info AnnotFreeText p) => IsLabel t (AnnotFreeText -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList AnnotFreeText = AnnotFreeTextAttributeList-type AnnotFreeTextAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList AnnotFreeText = AnnotFreeTextSignalList-type AnnotFreeTextSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method AnnotFreeText::get_callout_line--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotFreeText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "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 ->                    -- _obj : TInterface "Poppler" "AnnotFreeText"-    IO (Ptr AnnotCalloutLine)---annotFreeTextGetCalloutLine ::-    (MonadIO m, AnnotFreeTextK a) =>-    a                                       -- _obj-    -> m AnnotCalloutLine                   -- result-annotFreeTextGetCalloutLine _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_annot_free_text_get_callout_line _obj'-    checkUnexpectedReturnNULL "poppler_annot_free_text_get_callout_line" result-    result' <- (wrapBoxed AnnotCalloutLine) result-    touchManagedPtr _obj-    return result'--data AnnotFreeTextGetCalloutLineMethodInfo-instance (signature ~ (m AnnotCalloutLine), MonadIO m, AnnotFreeTextK a) => MethodInfo AnnotFreeTextGetCalloutLineMethodInfo a signature where-    overloadedMethod _ = annotFreeTextGetCalloutLine---- method AnnotFreeText::get_quadding--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotFreeText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "AnnotFreeTextQuadding")--- throws : False--- Skip return : False--foreign import ccall "poppler_annot_free_text_get_quadding" poppler_annot_free_text_get_quadding :: -    Ptr AnnotFreeText ->                    -- _obj : TInterface "Poppler" "AnnotFreeText"-    IO CUInt---annotFreeTextGetQuadding ::-    (MonadIO m, AnnotFreeTextK a) =>-    a                                       -- _obj-    -> m AnnotFreeTextQuadding              -- result-annotFreeTextGetQuadding _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_annot_free_text_get_quadding _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data AnnotFreeTextGetQuaddingMethodInfo-instance (signature ~ (m AnnotFreeTextQuadding), MonadIO m, AnnotFreeTextK a) => MethodInfo AnnotFreeTextGetQuaddingMethodInfo a signature where-    overloadedMethod _ = annotFreeTextGetQuadding--
− GI/Poppler/Objects/AnnotFreeText.hs-boot 
@@ -1,15 +0,0 @@-module GI.Poppler.Objects.AnnotFreeText where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype AnnotFreeText = AnnotFreeText (ForeignPtr AnnotFreeText)-instance GObject AnnotFreeText where-class GObject o => AnnotFreeTextK o-instance (GObject o, IsDescendantOf AnnotFreeText o) => AnnotFreeTextK o-data AnnotFreeTextGetCalloutLineMethodInfo-data AnnotFreeTextGetQuaddingMethodInfo
− GI/Poppler/Objects/AnnotLine.hs 
@@ -1,203 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Poppler.Objects.AnnotLine-    ( ---- * Exported types-    AnnotLine(..)                           ,-    AnnotLineK                              ,-    toAnnotLine                             ,-    noAnnotLine                             ,--- -- * Methods--- ** annotLineNew-    annotLineNew                            ,----- ** annotLineSetVertices-    AnnotLineSetVerticesMethodInfo          ,-    annotLineSetVertices                    ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks-import qualified GI.GObject as GObject--newtype AnnotLine = AnnotLine (ForeignPtr AnnotLine)-foreign import ccall "poppler_annot_line_get_type"-    c_poppler_annot_line_get_type :: IO GType--type instance ParentTypes AnnotLine = AnnotLineParentTypes-type AnnotLineParentTypes = '[AnnotMarkup, Annot, GObject.Object]--instance GObject AnnotLine where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_poppler_annot_line_get_type-    --class GObject o => AnnotLineK o-instance (GObject o, IsDescendantOf AnnotLine o) => AnnotLineK o--toAnnotLine :: AnnotLineK o => o -> IO AnnotLine-toAnnotLine = unsafeCastTo AnnotLine--noAnnotLine :: Maybe AnnotLine-noAnnotLine = Nothing--type family ResolveAnnotLineMethod (t :: Symbol) (o :: *) :: * where-    ResolveAnnotLineMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveAnnotLineMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveAnnotLineMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveAnnotLineMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveAnnotLineMethod "hasPopup" o = AnnotMarkupHasPopupMethodInfo-    ResolveAnnotLineMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveAnnotLineMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveAnnotLineMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveAnnotLineMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveAnnotLineMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveAnnotLineMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveAnnotLineMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveAnnotLineMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveAnnotLineMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveAnnotLineMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveAnnotLineMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveAnnotLineMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveAnnotLineMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveAnnotLineMethod "getAnnotType" o = AnnotGetAnnotTypeMethodInfo-    ResolveAnnotLineMethod "getColor" o = AnnotGetColorMethodInfo-    ResolveAnnotLineMethod "getContents" o = AnnotGetContentsMethodInfo-    ResolveAnnotLineMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveAnnotLineMethod "getDate" o = AnnotMarkupGetDateMethodInfo-    ResolveAnnotLineMethod "getExternalData" o = AnnotMarkupGetExternalDataMethodInfo-    ResolveAnnotLineMethod "getFlags" o = AnnotGetFlagsMethodInfo-    ResolveAnnotLineMethod "getLabel" o = AnnotMarkupGetLabelMethodInfo-    ResolveAnnotLineMethod "getModified" o = AnnotGetModifiedMethodInfo-    ResolveAnnotLineMethod "getName" o = AnnotGetNameMethodInfo-    ResolveAnnotLineMethod "getOpacity" o = AnnotMarkupGetOpacityMethodInfo-    ResolveAnnotLineMethod "getPageIndex" o = AnnotGetPageIndexMethodInfo-    ResolveAnnotLineMethod "getPopupIsOpen" o = AnnotMarkupGetPopupIsOpenMethodInfo-    ResolveAnnotLineMethod "getPopupRectangle" o = AnnotMarkupGetPopupRectangleMethodInfo-    ResolveAnnotLineMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveAnnotLineMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveAnnotLineMethod "getRectangle" o = AnnotGetRectangleMethodInfo-    ResolveAnnotLineMethod "getReplyTo" o = AnnotMarkupGetReplyToMethodInfo-    ResolveAnnotLineMethod "getSubject" o = AnnotMarkupGetSubjectMethodInfo-    ResolveAnnotLineMethod "setColor" o = AnnotSetColorMethodInfo-    ResolveAnnotLineMethod "setContents" o = AnnotSetContentsMethodInfo-    ResolveAnnotLineMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveAnnotLineMethod "setFlags" o = AnnotSetFlagsMethodInfo-    ResolveAnnotLineMethod "setLabel" o = AnnotMarkupSetLabelMethodInfo-    ResolveAnnotLineMethod "setOpacity" o = AnnotMarkupSetOpacityMethodInfo-    ResolveAnnotLineMethod "setPopup" o = AnnotMarkupSetPopupMethodInfo-    ResolveAnnotLineMethod "setPopupIsOpen" o = AnnotMarkupSetPopupIsOpenMethodInfo-    ResolveAnnotLineMethod "setPopupRectangle" o = AnnotMarkupSetPopupRectangleMethodInfo-    ResolveAnnotLineMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveAnnotLineMethod "setRectangle" o = AnnotSetRectangleMethodInfo-    ResolveAnnotLineMethod "setVertices" o = AnnotLineSetVerticesMethodInfo-    ResolveAnnotLineMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveAnnotLineMethod t AnnotLine, MethodInfo info AnnotLine p) => IsLabelProxy t (AnnotLine -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveAnnotLineMethod t AnnotLine, MethodInfo info AnnotLine p) => IsLabel t (AnnotLine -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList AnnotLine = AnnotLineAttributeList-type AnnotLineAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList AnnotLine = AnnotLineSignalList-type AnnotLineSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method AnnotLine::new--- method type : Constructor--- Args : [Arg {argCName = "doc", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Poppler" "Point", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Poppler" "Point", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "AnnotLine")--- throws : False--- Skip return : False--foreign import ccall "poppler_annot_line_new" poppler_annot_line_new :: -    Ptr Document ->                         -- doc : TInterface "Poppler" "Document"-    Ptr Rectangle ->                        -- rect : TInterface "Poppler" "Rectangle"-    Ptr Point ->                            -- start : TInterface "Poppler" "Point"-    Ptr Point ->                            -- end : TInterface "Poppler" "Point"-    IO (Ptr AnnotLine)---annotLineNew ::-    (MonadIO m, DocumentK a) =>-    a                                       -- doc-    -> Rectangle                            -- rect-    -> Point                                -- start-    -> Point                                -- end-    -> m AnnotLine                          -- result-annotLineNew doc rect start end = liftIO $ do-    let doc' = unsafeManagedPtrCastPtr doc-    let rect' = unsafeManagedPtrGetPtr rect-    let start' = unsafeManagedPtrGetPtr start-    let end' = unsafeManagedPtrGetPtr end-    result <- poppler_annot_line_new doc' rect' start' end'-    checkUnexpectedReturnNULL "poppler_annot_line_new" result-    result' <- (wrapObject AnnotLine) result-    touchManagedPtr doc-    touchManagedPtr rect-    touchManagedPtr start-    touchManagedPtr end-    return result'---- method AnnotLine::set_vertices--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Poppler" "Point", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Poppler" "Point", direction = DirectionIn, mayBeNull = False, 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 ->                        -- _obj : TInterface "Poppler" "AnnotLine"-    Ptr Point ->                            -- start : TInterface "Poppler" "Point"-    Ptr Point ->                            -- end : TInterface "Poppler" "Point"-    IO ()---annotLineSetVertices ::-    (MonadIO m, AnnotLineK a) =>-    a                                       -- _obj-    -> Point                                -- start-    -> Point                                -- end-    -> m ()                                 -- result-annotLineSetVertices _obj start end = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let start' = unsafeManagedPtrGetPtr start-    let end' = unsafeManagedPtrGetPtr end-    poppler_annot_line_set_vertices _obj' start' end'-    touchManagedPtr _obj-    touchManagedPtr start-    touchManagedPtr end-    return ()--data AnnotLineSetVerticesMethodInfo-instance (signature ~ (Point -> Point -> m ()), MonadIO m, AnnotLineK a) => MethodInfo AnnotLineSetVerticesMethodInfo a signature where-    overloadedMethod _ = annotLineSetVertices--
− GI/Poppler/Objects/AnnotLine.hs-boot 
@@ -1,14 +0,0 @@-module GI.Poppler.Objects.AnnotLine where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype AnnotLine = AnnotLine (ForeignPtr AnnotLine)-instance GObject AnnotLine where-class GObject o => AnnotLineK o-instance (GObject o, IsDescendantOf AnnotLine o) => AnnotLineK o-data AnnotLineSetVerticesMethodInfo
− GI/Poppler/Objects/AnnotMarkup.hs 
@@ -1,609 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Poppler.Objects.AnnotMarkup-    ( ---- * Exported types-    AnnotMarkup(..)                         ,-    AnnotMarkupK                            ,-    toAnnotMarkup                           ,-    noAnnotMarkup                           ,--- -- * Methods--- ** annotMarkupGetDate-    AnnotMarkupGetDateMethodInfo            ,-    annotMarkupGetDate                      ,----- ** annotMarkupGetExternalData-    AnnotMarkupGetExternalDataMethodInfo    ,-    annotMarkupGetExternalData              ,----- ** annotMarkupGetLabel-    AnnotMarkupGetLabelMethodInfo           ,-    annotMarkupGetLabel                     ,----- ** annotMarkupGetOpacity-    AnnotMarkupGetOpacityMethodInfo         ,-    annotMarkupGetOpacity                   ,----- ** annotMarkupGetPopupIsOpen-    AnnotMarkupGetPopupIsOpenMethodInfo     ,-    annotMarkupGetPopupIsOpen               ,----- ** annotMarkupGetPopupRectangle-    AnnotMarkupGetPopupRectangleMethodInfo  ,-    annotMarkupGetPopupRectangle            ,----- ** annotMarkupGetReplyTo-    AnnotMarkupGetReplyToMethodInfo         ,-    annotMarkupGetReplyTo                   ,----- ** annotMarkupGetSubject-    AnnotMarkupGetSubjectMethodInfo         ,-    annotMarkupGetSubject                   ,----- ** annotMarkupHasPopup-    AnnotMarkupHasPopupMethodInfo           ,-    annotMarkupHasPopup                     ,----- ** annotMarkupSetLabel-    AnnotMarkupSetLabelMethodInfo           ,-    annotMarkupSetLabel                     ,----- ** annotMarkupSetOpacity-    AnnotMarkupSetOpacityMethodInfo         ,-    annotMarkupSetOpacity                   ,----- ** annotMarkupSetPopup-    AnnotMarkupSetPopupMethodInfo           ,-    annotMarkupSetPopup                     ,----- ** annotMarkupSetPopupIsOpen-    AnnotMarkupSetPopupIsOpenMethodInfo     ,-    annotMarkupSetPopupIsOpen               ,----- ** annotMarkupSetPopupRectangle-    AnnotMarkupSetPopupRectangleMethodInfo  ,-    annotMarkupSetPopupRectangle            ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks-import qualified GI.GLib as GLib-import qualified GI.GObject as GObject--newtype AnnotMarkup = AnnotMarkup (ForeignPtr AnnotMarkup)-foreign import ccall "poppler_annot_markup_get_type"-    c_poppler_annot_markup_get_type :: IO GType--type instance ParentTypes AnnotMarkup = AnnotMarkupParentTypes-type AnnotMarkupParentTypes = '[Annot, GObject.Object]--instance GObject AnnotMarkup where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_poppler_annot_markup_get_type-    --class GObject o => AnnotMarkupK o-instance (GObject o, IsDescendantOf AnnotMarkup o) => AnnotMarkupK o--toAnnotMarkup :: AnnotMarkupK o => o -> IO AnnotMarkup-toAnnotMarkup = unsafeCastTo AnnotMarkup--noAnnotMarkup :: Maybe AnnotMarkup-noAnnotMarkup = Nothing--type family ResolveAnnotMarkupMethod (t :: Symbol) (o :: *) :: * where-    ResolveAnnotMarkupMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveAnnotMarkupMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveAnnotMarkupMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveAnnotMarkupMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveAnnotMarkupMethod "hasPopup" o = AnnotMarkupHasPopupMethodInfo-    ResolveAnnotMarkupMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveAnnotMarkupMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveAnnotMarkupMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveAnnotMarkupMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveAnnotMarkupMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveAnnotMarkupMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveAnnotMarkupMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveAnnotMarkupMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveAnnotMarkupMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveAnnotMarkupMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveAnnotMarkupMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveAnnotMarkupMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveAnnotMarkupMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveAnnotMarkupMethod "getAnnotType" o = AnnotGetAnnotTypeMethodInfo-    ResolveAnnotMarkupMethod "getColor" o = AnnotGetColorMethodInfo-    ResolveAnnotMarkupMethod "getContents" o = AnnotGetContentsMethodInfo-    ResolveAnnotMarkupMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveAnnotMarkupMethod "getDate" o = AnnotMarkupGetDateMethodInfo-    ResolveAnnotMarkupMethod "getExternalData" o = AnnotMarkupGetExternalDataMethodInfo-    ResolveAnnotMarkupMethod "getFlags" o = AnnotGetFlagsMethodInfo-    ResolveAnnotMarkupMethod "getLabel" o = AnnotMarkupGetLabelMethodInfo-    ResolveAnnotMarkupMethod "getModified" o = AnnotGetModifiedMethodInfo-    ResolveAnnotMarkupMethod "getName" o = AnnotGetNameMethodInfo-    ResolveAnnotMarkupMethod "getOpacity" o = AnnotMarkupGetOpacityMethodInfo-    ResolveAnnotMarkupMethod "getPageIndex" o = AnnotGetPageIndexMethodInfo-    ResolveAnnotMarkupMethod "getPopupIsOpen" o = AnnotMarkupGetPopupIsOpenMethodInfo-    ResolveAnnotMarkupMethod "getPopupRectangle" o = AnnotMarkupGetPopupRectangleMethodInfo-    ResolveAnnotMarkupMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveAnnotMarkupMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveAnnotMarkupMethod "getRectangle" o = AnnotGetRectangleMethodInfo-    ResolveAnnotMarkupMethod "getReplyTo" o = AnnotMarkupGetReplyToMethodInfo-    ResolveAnnotMarkupMethod "getSubject" o = AnnotMarkupGetSubjectMethodInfo-    ResolveAnnotMarkupMethod "setColor" o = AnnotSetColorMethodInfo-    ResolveAnnotMarkupMethod "setContents" o = AnnotSetContentsMethodInfo-    ResolveAnnotMarkupMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveAnnotMarkupMethod "setFlags" o = 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.ObjectSetPropertyMethodInfo-    ResolveAnnotMarkupMethod "setRectangle" o = AnnotSetRectangleMethodInfo-    ResolveAnnotMarkupMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveAnnotMarkupMethod t AnnotMarkup, MethodInfo info AnnotMarkup p) => IsLabelProxy t (AnnotMarkup -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveAnnotMarkupMethod t AnnotMarkup, MethodInfo info AnnotMarkup p) => IsLabel t (AnnotMarkup -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList AnnotMarkup = AnnotMarkupAttributeList-type AnnotMarkupAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList AnnotMarkup = AnnotMarkupSignalList-type AnnotMarkupSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method AnnotMarkup::get_date--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "GLib" "Date")--- throws : False--- Skip return : False--foreign import ccall "poppler_annot_markup_get_date" poppler_annot_markup_get_date :: -    Ptr AnnotMarkup ->                      -- _obj : TInterface "Poppler" "AnnotMarkup"-    IO (Ptr GLib.Date)---annotMarkupGetDate ::-    (MonadIO m, AnnotMarkupK a) =>-    a                                       -- _obj-    -> m GLib.Date                          -- result-annotMarkupGetDate _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_annot_markup_get_date _obj'-    checkUnexpectedReturnNULL "poppler_annot_markup_get_date" result-    result' <- (wrapBoxed GLib.Date) result-    touchManagedPtr _obj-    return result'--data AnnotMarkupGetDateMethodInfo-instance (signature ~ (m GLib.Date), MonadIO m, AnnotMarkupK a) => MethodInfo AnnotMarkupGetDateMethodInfo a signature where-    overloadedMethod _ = annotMarkupGetDate---- method AnnotMarkup::get_external_data--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "AnnotExternalDataType")--- throws : False--- Skip return : False--foreign import ccall "poppler_annot_markup_get_external_data" poppler_annot_markup_get_external_data :: -    Ptr AnnotMarkup ->                      -- _obj : TInterface "Poppler" "AnnotMarkup"-    IO CUInt---annotMarkupGetExternalData ::-    (MonadIO m, AnnotMarkupK a) =>-    a                                       -- _obj-    -> m AnnotExternalDataType              -- result-annotMarkupGetExternalData _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_annot_markup_get_external_data _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data AnnotMarkupGetExternalDataMethodInfo-instance (signature ~ (m AnnotExternalDataType), MonadIO m, AnnotMarkupK a) => MethodInfo AnnotMarkupGetExternalDataMethodInfo a signature where-    overloadedMethod _ = annotMarkupGetExternalData---- method AnnotMarkup::get_label--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Poppler" "AnnotMarkup"-    IO CString---annotMarkupGetLabel ::-    (MonadIO m, AnnotMarkupK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-annotMarkupGetLabel _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_annot_markup_get_label _obj'-    checkUnexpectedReturnNULL "poppler_annot_markup_get_label" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data AnnotMarkupGetLabelMethodInfo-instance (signature ~ (m T.Text), MonadIO m, AnnotMarkupK a) => MethodInfo AnnotMarkupGetLabelMethodInfo a signature where-    overloadedMethod _ = annotMarkupGetLabel---- method AnnotMarkup::get_opacity--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Poppler" "AnnotMarkup"-    IO CDouble---annotMarkupGetOpacity ::-    (MonadIO m, AnnotMarkupK a) =>-    a                                       -- _obj-    -> m Double                             -- result-annotMarkupGetOpacity _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_annot_markup_get_opacity _obj'-    let result' = realToFrac result-    touchManagedPtr _obj-    return result'--data AnnotMarkupGetOpacityMethodInfo-instance (signature ~ (m Double), MonadIO m, AnnotMarkupK a) => MethodInfo AnnotMarkupGetOpacityMethodInfo a signature where-    overloadedMethod _ = annotMarkupGetOpacity---- method AnnotMarkup::get_popup_is_open--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Poppler" "AnnotMarkup"-    IO CInt---annotMarkupGetPopupIsOpen ::-    (MonadIO m, AnnotMarkupK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-annotMarkupGetPopupIsOpen _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_annot_markup_get_popup_is_open _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data AnnotMarkupGetPopupIsOpenMethodInfo-instance (signature ~ (m Bool), MonadIO m, AnnotMarkupK a) => MethodInfo AnnotMarkupGetPopupIsOpenMethodInfo a signature where-    overloadedMethod _ = annotMarkupGetPopupIsOpen---- method AnnotMarkup::get_popup_rectangle--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "poppler_rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionOut, mayBeNull = False, 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 ->                      -- _obj : TInterface "Poppler" "AnnotMarkup"-    Ptr Rectangle ->                        -- poppler_rect : TInterface "Poppler" "Rectangle"-    IO CInt---annotMarkupGetPopupRectangle ::-    (MonadIO m, AnnotMarkupK a) =>-    a                                       -- _obj-    -> m (Bool,Rectangle)                   -- result-annotMarkupGetPopupRectangle _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    popplerRect <- callocBoxedBytes 32 :: IO (Ptr Rectangle)-    result <- poppler_annot_markup_get_popup_rectangle _obj' popplerRect-    let result' = (/= 0) result-    popplerRect' <- (wrapBoxed Rectangle) popplerRect-    touchManagedPtr _obj-    return (result', popplerRect')--data AnnotMarkupGetPopupRectangleMethodInfo-instance (signature ~ (m (Bool,Rectangle)), MonadIO m, AnnotMarkupK a) => MethodInfo AnnotMarkupGetPopupRectangleMethodInfo a signature where-    overloadedMethod _ = annotMarkupGetPopupRectangle---- method AnnotMarkup::get_reply_to--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "AnnotMarkupReplyType")--- throws : False--- Skip return : False--foreign import ccall "poppler_annot_markup_get_reply_to" poppler_annot_markup_get_reply_to :: -    Ptr AnnotMarkup ->                      -- _obj : TInterface "Poppler" "AnnotMarkup"-    IO CUInt---annotMarkupGetReplyTo ::-    (MonadIO m, AnnotMarkupK a) =>-    a                                       -- _obj-    -> m AnnotMarkupReplyType               -- result-annotMarkupGetReplyTo _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_annot_markup_get_reply_to _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data AnnotMarkupGetReplyToMethodInfo-instance (signature ~ (m AnnotMarkupReplyType), MonadIO m, AnnotMarkupK a) => MethodInfo AnnotMarkupGetReplyToMethodInfo a signature where-    overloadedMethod _ = annotMarkupGetReplyTo---- method AnnotMarkup::get_subject--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Poppler" "AnnotMarkup"-    IO CString---annotMarkupGetSubject ::-    (MonadIO m, AnnotMarkupK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-annotMarkupGetSubject _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_annot_markup_get_subject _obj'-    checkUnexpectedReturnNULL "poppler_annot_markup_get_subject" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data AnnotMarkupGetSubjectMethodInfo-instance (signature ~ (m T.Text), MonadIO m, AnnotMarkupK a) => MethodInfo AnnotMarkupGetSubjectMethodInfo a signature where-    overloadedMethod _ = annotMarkupGetSubject---- method AnnotMarkup::has_popup--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Poppler" "AnnotMarkup"-    IO CInt---annotMarkupHasPopup ::-    (MonadIO m, AnnotMarkupK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-annotMarkupHasPopup _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_annot_markup_has_popup _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data AnnotMarkupHasPopupMethodInfo-instance (signature ~ (m Bool), MonadIO m, AnnotMarkupK a) => MethodInfo AnnotMarkupHasPopupMethodInfo a signature where-    overloadedMethod _ = annotMarkupHasPopup---- method AnnotMarkup::set_label--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 ->                      -- _obj : TInterface "Poppler" "AnnotMarkup"-    CString ->                              -- label : TBasicType TUTF8-    IO ()---annotMarkupSetLabel ::-    (MonadIO m, AnnotMarkupK a) =>-    a                                       -- _obj-    -> Maybe (T.Text)                       -- label-    -> m ()                                 -- result-annotMarkupSetLabel _obj label = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeLabel <- case label of-        Nothing -> return nullPtr-        Just jLabel -> do-            jLabel' <- textToCString jLabel-            return jLabel'-    poppler_annot_markup_set_label _obj' maybeLabel-    touchManagedPtr _obj-    freeMem maybeLabel-    return ()--data AnnotMarkupSetLabelMethodInfo-instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, AnnotMarkupK a) => MethodInfo AnnotMarkupSetLabelMethodInfo a signature where-    overloadedMethod _ = annotMarkupSetLabel---- method AnnotMarkup::set_opacity--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "opacity", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Poppler" "AnnotMarkup"-    CDouble ->                              -- opacity : TBasicType TDouble-    IO ()---annotMarkupSetOpacity ::-    (MonadIO m, AnnotMarkupK a) =>-    a                                       -- _obj-    -> Double                               -- opacity-    -> m ()                                 -- result-annotMarkupSetOpacity _obj opacity = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let opacity' = realToFrac opacity-    poppler_annot_markup_set_opacity _obj' opacity'-    touchManagedPtr _obj-    return ()--data AnnotMarkupSetOpacityMethodInfo-instance (signature ~ (Double -> m ()), MonadIO m, AnnotMarkupK a) => MethodInfo AnnotMarkupSetOpacityMethodInfo a signature where-    overloadedMethod _ = annotMarkupSetOpacity---- method AnnotMarkup::set_popup--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "popup_rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Poppler" "AnnotMarkup"-    Ptr Rectangle ->                        -- popup_rect : TInterface "Poppler" "Rectangle"-    IO ()---annotMarkupSetPopup ::-    (MonadIO m, AnnotMarkupK a) =>-    a                                       -- _obj-    -> Rectangle                            -- popupRect-    -> m ()                                 -- result-annotMarkupSetPopup _obj popupRect = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let popupRect' = unsafeManagedPtrGetPtr popupRect-    poppler_annot_markup_set_popup _obj' popupRect'-    touchManagedPtr _obj-    touchManagedPtr popupRect-    return ()--data AnnotMarkupSetPopupMethodInfo-instance (signature ~ (Rectangle -> m ()), MonadIO m, AnnotMarkupK a) => MethodInfo AnnotMarkupSetPopupMethodInfo a signature where-    overloadedMethod _ = annotMarkupSetPopup---- method AnnotMarkup::set_popup_is_open--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_open", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Poppler" "AnnotMarkup"-    CInt ->                                 -- is_open : TBasicType TBoolean-    IO ()---annotMarkupSetPopupIsOpen ::-    (MonadIO m, AnnotMarkupK a) =>-    a                                       -- _obj-    -> Bool                                 -- isOpen-    -> m ()                                 -- result-annotMarkupSetPopupIsOpen _obj isOpen = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let isOpen' = (fromIntegral . fromEnum) isOpen-    poppler_annot_markup_set_popup_is_open _obj' isOpen'-    touchManagedPtr _obj-    return ()--data AnnotMarkupSetPopupIsOpenMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, AnnotMarkupK a) => MethodInfo AnnotMarkupSetPopupIsOpenMethodInfo a signature where-    overloadedMethod _ = annotMarkupSetPopupIsOpen---- method AnnotMarkup::set_popup_rectangle--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "poppler_rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Poppler" "AnnotMarkup"-    Ptr Rectangle ->                        -- poppler_rect : TInterface "Poppler" "Rectangle"-    IO ()---annotMarkupSetPopupRectangle ::-    (MonadIO m, AnnotMarkupK a) =>-    a                                       -- _obj-    -> Rectangle                            -- popplerRect-    -> m ()                                 -- result-annotMarkupSetPopupRectangle _obj popplerRect = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let popplerRect' = unsafeManagedPtrGetPtr popplerRect-    poppler_annot_markup_set_popup_rectangle _obj' popplerRect'-    touchManagedPtr _obj-    touchManagedPtr popplerRect-    return ()--data AnnotMarkupSetPopupRectangleMethodInfo-instance (signature ~ (Rectangle -> m ()), MonadIO m, AnnotMarkupK a) => MethodInfo AnnotMarkupSetPopupRectangleMethodInfo a signature where-    overloadedMethod _ = annotMarkupSetPopupRectangle--
− GI/Poppler/Objects/AnnotMarkup.hs-boot 
@@ -1,27 +0,0 @@-module GI.Poppler.Objects.AnnotMarkup where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype AnnotMarkup = AnnotMarkup (ForeignPtr AnnotMarkup)-instance GObject AnnotMarkup where-class GObject o => AnnotMarkupK o-instance (GObject o, IsDescendantOf AnnotMarkup o) => AnnotMarkupK o-data AnnotMarkupGetDateMethodInfo-data AnnotMarkupGetExternalDataMethodInfo-data AnnotMarkupGetLabelMethodInfo-data AnnotMarkupGetOpacityMethodInfo-data AnnotMarkupGetPopupIsOpenMethodInfo-data AnnotMarkupGetPopupRectangleMethodInfo-data AnnotMarkupGetReplyToMethodInfo-data AnnotMarkupGetSubjectMethodInfo-data AnnotMarkupHasPopupMethodInfo-data AnnotMarkupSetLabelMethodInfo-data AnnotMarkupSetOpacityMethodInfo-data AnnotMarkupSetPopupMethodInfo-data AnnotMarkupSetPopupIsOpenMethodInfo-data AnnotMarkupSetPopupRectangleMethodInfo
− GI/Poppler/Objects/AnnotMovie.hs 
@@ -1,178 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Poppler.Objects.AnnotMovie-    ( ---- * Exported types-    AnnotMovie(..)                          ,-    AnnotMovieK                             ,-    toAnnotMovie                            ,-    noAnnotMovie                            ,--- -- * Methods--- ** annotMovieGetMovie-    AnnotMovieGetMovieMethodInfo            ,-    annotMovieGetMovie                      ,----- ** annotMovieGetTitle-    AnnotMovieGetTitleMethodInfo            ,-    annotMovieGetTitle                      ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks-import qualified GI.GObject as GObject--newtype AnnotMovie = AnnotMovie (ForeignPtr AnnotMovie)-foreign import ccall "poppler_annot_movie_get_type"-    c_poppler_annot_movie_get_type :: IO GType--type instance ParentTypes AnnotMovie = AnnotMovieParentTypes-type AnnotMovieParentTypes = '[Annot, GObject.Object]--instance GObject AnnotMovie where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_poppler_annot_movie_get_type-    --class GObject o => AnnotMovieK o-instance (GObject o, IsDescendantOf AnnotMovie o) => AnnotMovieK o--toAnnotMovie :: AnnotMovieK o => o -> IO AnnotMovie-toAnnotMovie = unsafeCastTo AnnotMovie--noAnnotMovie :: Maybe AnnotMovie-noAnnotMovie = Nothing--type family ResolveAnnotMovieMethod (t :: Symbol) (o :: *) :: * where-    ResolveAnnotMovieMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveAnnotMovieMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveAnnotMovieMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveAnnotMovieMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveAnnotMovieMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveAnnotMovieMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveAnnotMovieMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveAnnotMovieMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveAnnotMovieMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveAnnotMovieMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveAnnotMovieMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveAnnotMovieMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveAnnotMovieMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveAnnotMovieMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveAnnotMovieMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveAnnotMovieMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveAnnotMovieMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveAnnotMovieMethod "getAnnotType" o = AnnotGetAnnotTypeMethodInfo-    ResolveAnnotMovieMethod "getColor" o = AnnotGetColorMethodInfo-    ResolveAnnotMovieMethod "getContents" o = AnnotGetContentsMethodInfo-    ResolveAnnotMovieMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveAnnotMovieMethod "getFlags" o = AnnotGetFlagsMethodInfo-    ResolveAnnotMovieMethod "getModified" o = AnnotGetModifiedMethodInfo-    ResolveAnnotMovieMethod "getMovie" o = AnnotMovieGetMovieMethodInfo-    ResolveAnnotMovieMethod "getName" o = AnnotGetNameMethodInfo-    ResolveAnnotMovieMethod "getPageIndex" o = AnnotGetPageIndexMethodInfo-    ResolveAnnotMovieMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveAnnotMovieMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveAnnotMovieMethod "getRectangle" o = AnnotGetRectangleMethodInfo-    ResolveAnnotMovieMethod "getTitle" o = AnnotMovieGetTitleMethodInfo-    ResolveAnnotMovieMethod "setColor" o = AnnotSetColorMethodInfo-    ResolveAnnotMovieMethod "setContents" o = AnnotSetContentsMethodInfo-    ResolveAnnotMovieMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveAnnotMovieMethod "setFlags" o = AnnotSetFlagsMethodInfo-    ResolveAnnotMovieMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveAnnotMovieMethod "setRectangle" o = AnnotSetRectangleMethodInfo-    ResolveAnnotMovieMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveAnnotMovieMethod t AnnotMovie, MethodInfo info AnnotMovie p) => IsLabelProxy t (AnnotMovie -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveAnnotMovieMethod t AnnotMovie, MethodInfo info AnnotMovie p) => IsLabel t (AnnotMovie -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList AnnotMovie = AnnotMovieAttributeList-type AnnotMovieAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList AnnotMovie = AnnotMovieSignalList-type AnnotMovieSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method AnnotMovie::get_movie--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMovie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "Movie")--- throws : False--- Skip return : False--foreign import ccall "poppler_annot_movie_get_movie" poppler_annot_movie_get_movie :: -    Ptr AnnotMovie ->                       -- _obj : TInterface "Poppler" "AnnotMovie"-    IO (Ptr Movie)---annotMovieGetMovie ::-    (MonadIO m, AnnotMovieK a) =>-    a                                       -- _obj-    -> m Movie                              -- result-annotMovieGetMovie _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_annot_movie_get_movie _obj'-    checkUnexpectedReturnNULL "poppler_annot_movie_get_movie" result-    result' <- (newObject Movie) result-    touchManagedPtr _obj-    return result'--data AnnotMovieGetMovieMethodInfo-instance (signature ~ (m Movie), MonadIO m, AnnotMovieK a) => MethodInfo AnnotMovieGetMovieMethodInfo a signature where-    overloadedMethod _ = annotMovieGetMovie---- method AnnotMovie::get_title--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMovie", direction = DirectionIn, mayBeNull = False, 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_movie_get_title" poppler_annot_movie_get_title :: -    Ptr AnnotMovie ->                       -- _obj : TInterface "Poppler" "AnnotMovie"-    IO CString---annotMovieGetTitle ::-    (MonadIO m, AnnotMovieK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-annotMovieGetTitle _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_annot_movie_get_title _obj'-    checkUnexpectedReturnNULL "poppler_annot_movie_get_title" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data AnnotMovieGetTitleMethodInfo-instance (signature ~ (m T.Text), MonadIO m, AnnotMovieK a) => MethodInfo AnnotMovieGetTitleMethodInfo a signature where-    overloadedMethod _ = annotMovieGetTitle--
− GI/Poppler/Objects/AnnotMovie.hs-boot 
@@ -1,15 +0,0 @@-module GI.Poppler.Objects.AnnotMovie where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype AnnotMovie = AnnotMovie (ForeignPtr AnnotMovie)-instance GObject AnnotMovie where-class GObject o => AnnotMovieK o-instance (GObject o, IsDescendantOf AnnotMovie o) => AnnotMovieK o-data AnnotMovieGetMovieMethodInfo-data AnnotMovieGetTitleMethodInfo
− GI/Poppler/Objects/AnnotScreen.hs 
@@ -1,142 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Poppler.Objects.AnnotScreen-    ( ---- * Exported types-    AnnotScreen(..)                         ,-    AnnotScreenK                            ,-    toAnnotScreen                           ,-    noAnnotScreen                           ,--- -- * Methods--- ** annotScreenGetAction-    AnnotScreenGetActionMethodInfo          ,-    annotScreenGetAction                    ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks-import qualified GI.GObject as GObject--newtype AnnotScreen = AnnotScreen (ForeignPtr AnnotScreen)-foreign import ccall "poppler_annot_screen_get_type"-    c_poppler_annot_screen_get_type :: IO GType--type instance ParentTypes AnnotScreen = AnnotScreenParentTypes-type AnnotScreenParentTypes = '[Annot, GObject.Object]--instance GObject AnnotScreen where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_poppler_annot_screen_get_type-    --class GObject o => AnnotScreenK o-instance (GObject o, IsDescendantOf AnnotScreen o) => AnnotScreenK o--toAnnotScreen :: AnnotScreenK o => o -> IO AnnotScreen-toAnnotScreen = unsafeCastTo AnnotScreen--noAnnotScreen :: Maybe AnnotScreen-noAnnotScreen = Nothing--type family ResolveAnnotScreenMethod (t :: Symbol) (o :: *) :: * where-    ResolveAnnotScreenMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveAnnotScreenMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveAnnotScreenMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveAnnotScreenMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveAnnotScreenMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveAnnotScreenMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveAnnotScreenMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveAnnotScreenMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveAnnotScreenMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveAnnotScreenMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveAnnotScreenMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveAnnotScreenMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveAnnotScreenMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveAnnotScreenMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveAnnotScreenMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveAnnotScreenMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveAnnotScreenMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveAnnotScreenMethod "getAction" o = AnnotScreenGetActionMethodInfo-    ResolveAnnotScreenMethod "getAnnotType" o = AnnotGetAnnotTypeMethodInfo-    ResolveAnnotScreenMethod "getColor" o = AnnotGetColorMethodInfo-    ResolveAnnotScreenMethod "getContents" o = AnnotGetContentsMethodInfo-    ResolveAnnotScreenMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveAnnotScreenMethod "getFlags" o = AnnotGetFlagsMethodInfo-    ResolveAnnotScreenMethod "getModified" o = AnnotGetModifiedMethodInfo-    ResolveAnnotScreenMethod "getName" o = AnnotGetNameMethodInfo-    ResolveAnnotScreenMethod "getPageIndex" o = AnnotGetPageIndexMethodInfo-    ResolveAnnotScreenMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveAnnotScreenMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveAnnotScreenMethod "getRectangle" o = AnnotGetRectangleMethodInfo-    ResolveAnnotScreenMethod "setColor" o = AnnotSetColorMethodInfo-    ResolveAnnotScreenMethod "setContents" o = AnnotSetContentsMethodInfo-    ResolveAnnotScreenMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveAnnotScreenMethod "setFlags" o = AnnotSetFlagsMethodInfo-    ResolveAnnotScreenMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveAnnotScreenMethod "setRectangle" o = AnnotSetRectangleMethodInfo-    ResolveAnnotScreenMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveAnnotScreenMethod t AnnotScreen, MethodInfo info AnnotScreen p) => IsLabelProxy t (AnnotScreen -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveAnnotScreenMethod t AnnotScreen, MethodInfo info AnnotScreen p) => IsLabel t (AnnotScreen -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList AnnotScreen = AnnotScreenAttributeList-type AnnotScreenAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList AnnotScreen = AnnotScreenSignalList-type AnnotScreenSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method AnnotScreen::get_action--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotScreen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "Action")--- throws : False--- Skip return : False--foreign import ccall "poppler_annot_screen_get_action" poppler_annot_screen_get_action :: -    Ptr AnnotScreen ->                      -- _obj : TInterface "Poppler" "AnnotScreen"-    IO (Ptr Action)---annotScreenGetAction ::-    (MonadIO m, AnnotScreenK a) =>-    a                                       -- _obj-    -> m Action                             -- result-annotScreenGetAction _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_annot_screen_get_action _obj'-    checkUnexpectedReturnNULL "poppler_annot_screen_get_action" result-    result' <- (newBoxed Action) result-    touchManagedPtr _obj-    return result'--data AnnotScreenGetActionMethodInfo-instance (signature ~ (m Action), MonadIO m, AnnotScreenK a) => MethodInfo AnnotScreenGetActionMethodInfo a signature where-    overloadedMethod _ = annotScreenGetAction--
− GI/Poppler/Objects/AnnotScreen.hs-boot 
@@ -1,14 +0,0 @@-module GI.Poppler.Objects.AnnotScreen where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype AnnotScreen = AnnotScreen (ForeignPtr AnnotScreen)-instance GObject AnnotScreen where-class GObject o => AnnotScreenK o-instance (GObject o, IsDescendantOf AnnotScreen o) => AnnotScreenK o-data AnnotScreenGetActionMethodInfo
− GI/Poppler/Objects/AnnotSquare.hs 
@@ -1,230 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Poppler.Objects.AnnotSquare-    ( ---- * Exported types-    AnnotSquare(..)                         ,-    AnnotSquareK                            ,-    toAnnotSquare                           ,-    noAnnotSquare                           ,--- -- * Methods--- ** annotSquareGetInteriorColor-    AnnotSquareGetInteriorColorMethodInfo   ,-    annotSquareGetInteriorColor             ,----- ** annotSquareNew-    annotSquareNew                          ,----- ** annotSquareSetInteriorColor-    AnnotSquareSetInteriorColorMethodInfo   ,-    annotSquareSetInteriorColor             ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks-import qualified GI.GObject as GObject--newtype AnnotSquare = AnnotSquare (ForeignPtr AnnotSquare)-foreign import ccall "poppler_annot_square_get_type"-    c_poppler_annot_square_get_type :: IO GType--type instance ParentTypes AnnotSquare = AnnotSquareParentTypes-type AnnotSquareParentTypes = '[AnnotMarkup, Annot, GObject.Object]--instance GObject AnnotSquare where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_poppler_annot_square_get_type-    --class GObject o => AnnotSquareK o-instance (GObject o, IsDescendantOf AnnotSquare o) => AnnotSquareK o--toAnnotSquare :: AnnotSquareK o => o -> IO AnnotSquare-toAnnotSquare = unsafeCastTo AnnotSquare--noAnnotSquare :: Maybe AnnotSquare-noAnnotSquare = Nothing--type family ResolveAnnotSquareMethod (t :: Symbol) (o :: *) :: * where-    ResolveAnnotSquareMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveAnnotSquareMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveAnnotSquareMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveAnnotSquareMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveAnnotSquareMethod "hasPopup" o = AnnotMarkupHasPopupMethodInfo-    ResolveAnnotSquareMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveAnnotSquareMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveAnnotSquareMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveAnnotSquareMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveAnnotSquareMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveAnnotSquareMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveAnnotSquareMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveAnnotSquareMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveAnnotSquareMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveAnnotSquareMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveAnnotSquareMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveAnnotSquareMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveAnnotSquareMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveAnnotSquareMethod "getAnnotType" o = AnnotGetAnnotTypeMethodInfo-    ResolveAnnotSquareMethod "getColor" o = AnnotGetColorMethodInfo-    ResolveAnnotSquareMethod "getContents" o = AnnotGetContentsMethodInfo-    ResolveAnnotSquareMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveAnnotSquareMethod "getDate" o = AnnotMarkupGetDateMethodInfo-    ResolveAnnotSquareMethod "getExternalData" o = AnnotMarkupGetExternalDataMethodInfo-    ResolveAnnotSquareMethod "getFlags" o = AnnotGetFlagsMethodInfo-    ResolveAnnotSquareMethod "getInteriorColor" o = AnnotSquareGetInteriorColorMethodInfo-    ResolveAnnotSquareMethod "getLabel" o = AnnotMarkupGetLabelMethodInfo-    ResolveAnnotSquareMethod "getModified" o = AnnotGetModifiedMethodInfo-    ResolveAnnotSquareMethod "getName" o = AnnotGetNameMethodInfo-    ResolveAnnotSquareMethod "getOpacity" o = AnnotMarkupGetOpacityMethodInfo-    ResolveAnnotSquareMethod "getPageIndex" o = AnnotGetPageIndexMethodInfo-    ResolveAnnotSquareMethod "getPopupIsOpen" o = AnnotMarkupGetPopupIsOpenMethodInfo-    ResolveAnnotSquareMethod "getPopupRectangle" o = AnnotMarkupGetPopupRectangleMethodInfo-    ResolveAnnotSquareMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveAnnotSquareMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveAnnotSquareMethod "getRectangle" o = AnnotGetRectangleMethodInfo-    ResolveAnnotSquareMethod "getReplyTo" o = AnnotMarkupGetReplyToMethodInfo-    ResolveAnnotSquareMethod "getSubject" o = AnnotMarkupGetSubjectMethodInfo-    ResolveAnnotSquareMethod "setColor" o = AnnotSetColorMethodInfo-    ResolveAnnotSquareMethod "setContents" o = AnnotSetContentsMethodInfo-    ResolveAnnotSquareMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveAnnotSquareMethod "setFlags" o = AnnotSetFlagsMethodInfo-    ResolveAnnotSquareMethod "setInteriorColor" o = AnnotSquareSetInteriorColorMethodInfo-    ResolveAnnotSquareMethod "setLabel" o = AnnotMarkupSetLabelMethodInfo-    ResolveAnnotSquareMethod "setOpacity" o = AnnotMarkupSetOpacityMethodInfo-    ResolveAnnotSquareMethod "setPopup" o = AnnotMarkupSetPopupMethodInfo-    ResolveAnnotSquareMethod "setPopupIsOpen" o = AnnotMarkupSetPopupIsOpenMethodInfo-    ResolveAnnotSquareMethod "setPopupRectangle" o = AnnotMarkupSetPopupRectangleMethodInfo-    ResolveAnnotSquareMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveAnnotSquareMethod "setRectangle" o = AnnotSetRectangleMethodInfo-    ResolveAnnotSquareMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveAnnotSquareMethod t AnnotSquare, MethodInfo info AnnotSquare p) => IsLabelProxy t (AnnotSquare -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveAnnotSquareMethod t AnnotSquare, MethodInfo info AnnotSquare p) => IsLabel t (AnnotSquare -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList AnnotSquare = AnnotSquareAttributeList-type AnnotSquareAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList AnnotSquare = AnnotSquareSignalList-type AnnotSquareSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method AnnotSquare::new--- method type : Constructor--- Args : [Arg {argCName = "doc", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "AnnotSquare")--- throws : False--- Skip return : False--foreign import ccall "poppler_annot_square_new" poppler_annot_square_new :: -    Ptr Document ->                         -- doc : TInterface "Poppler" "Document"-    Ptr Rectangle ->                        -- rect : TInterface "Poppler" "Rectangle"-    IO (Ptr AnnotSquare)---annotSquareNew ::-    (MonadIO m, DocumentK a) =>-    a                                       -- doc-    -> Rectangle                            -- rect-    -> m AnnotSquare                        -- result-annotSquareNew doc rect = liftIO $ do-    let doc' = unsafeManagedPtrCastPtr doc-    let rect' = unsafeManagedPtrGetPtr rect-    result <- poppler_annot_square_new doc' rect'-    checkUnexpectedReturnNULL "poppler_annot_square_new" result-    result' <- (wrapObject AnnotSquare) result-    touchManagedPtr doc-    touchManagedPtr rect-    return result'---- method AnnotSquare::get_interior_color--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotSquare", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "Color")--- throws : False--- Skip return : False--foreign import ccall "poppler_annot_square_get_interior_color" poppler_annot_square_get_interior_color :: -    Ptr AnnotSquare ->                      -- _obj : TInterface "Poppler" "AnnotSquare"-    IO (Ptr Color)---annotSquareGetInteriorColor ::-    (MonadIO m, AnnotSquareK a) =>-    a                                       -- _obj-    -> m Color                              -- result-annotSquareGetInteriorColor _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_annot_square_get_interior_color _obj'-    checkUnexpectedReturnNULL "poppler_annot_square_get_interior_color" result-    result' <- (wrapBoxed Color) result-    touchManagedPtr _obj-    return result'--data AnnotSquareGetInteriorColorMethodInfo-instance (signature ~ (m Color), MonadIO m, AnnotSquareK a) => MethodInfo AnnotSquareGetInteriorColorMethodInfo a signature where-    overloadedMethod _ = annotSquareGetInteriorColor---- method AnnotSquare::set_interior_color--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotSquare", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "poppler_color", argType = TInterface "Poppler" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_annot_square_set_interior_color" poppler_annot_square_set_interior_color :: -    Ptr AnnotSquare ->                      -- _obj : TInterface "Poppler" "AnnotSquare"-    Ptr Color ->                            -- poppler_color : TInterface "Poppler" "Color"-    IO ()---annotSquareSetInteriorColor ::-    (MonadIO m, AnnotSquareK a) =>-    a                                       -- _obj-    -> Maybe (Color)                        -- popplerColor-    -> m ()                                 -- result-annotSquareSetInteriorColor _obj popplerColor = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybePopplerColor <- case popplerColor of-        Nothing -> return nullPtr-        Just jPopplerColor -> do-            let jPopplerColor' = unsafeManagedPtrGetPtr jPopplerColor-            return jPopplerColor'-    poppler_annot_square_set_interior_color _obj' maybePopplerColor-    touchManagedPtr _obj-    whenJust popplerColor touchManagedPtr-    return ()--data AnnotSquareSetInteriorColorMethodInfo-instance (signature ~ (Maybe (Color) -> m ()), MonadIO m, AnnotSquareK a) => MethodInfo AnnotSquareSetInteriorColorMethodInfo a signature where-    overloadedMethod _ = annotSquareSetInteriorColor--
− GI/Poppler/Objects/AnnotSquare.hs-boot 
@@ -1,15 +0,0 @@-module GI.Poppler.Objects.AnnotSquare where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype AnnotSquare = AnnotSquare (ForeignPtr AnnotSquare)-instance GObject AnnotSquare where-class GObject o => AnnotSquareK o-instance (GObject o, IsDescendantOf AnnotSquare o) => AnnotSquareK o-data AnnotSquareGetInteriorColorMethodInfo-data AnnotSquareSetInteriorColorMethodInfo
− GI/Poppler/Objects/AnnotText.hs 
@@ -1,331 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Poppler.Objects.AnnotText-    ( ---- * Exported types-    AnnotText(..)                           ,-    AnnotTextK                              ,-    toAnnotText                             ,-    noAnnotText                             ,--- -- * Methods--- ** annotTextGetIcon-    AnnotTextGetIconMethodInfo              ,-    annotTextGetIcon                        ,----- ** annotTextGetIsOpen-    AnnotTextGetIsOpenMethodInfo            ,-    annotTextGetIsOpen                      ,----- ** annotTextGetState-    AnnotTextGetStateMethodInfo             ,-    annotTextGetState                       ,----- ** annotTextNew-    annotTextNew                            ,----- ** annotTextSetIcon-    AnnotTextSetIconMethodInfo              ,-    annotTextSetIcon                        ,----- ** annotTextSetIsOpen-    AnnotTextSetIsOpenMethodInfo            ,-    annotTextSetIsOpen                      ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks-import qualified GI.GObject as GObject--newtype AnnotText = AnnotText (ForeignPtr AnnotText)-foreign import ccall "poppler_annot_text_get_type"-    c_poppler_annot_text_get_type :: IO GType--type instance ParentTypes AnnotText = AnnotTextParentTypes-type AnnotTextParentTypes = '[AnnotMarkup, Annot, GObject.Object]--instance GObject AnnotText where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_poppler_annot_text_get_type-    --class GObject o => AnnotTextK o-instance (GObject o, IsDescendantOf AnnotText o) => AnnotTextK o--toAnnotText :: AnnotTextK o => o -> IO AnnotText-toAnnotText = unsafeCastTo AnnotText--noAnnotText :: Maybe AnnotText-noAnnotText = Nothing--type family ResolveAnnotTextMethod (t :: Symbol) (o :: *) :: * where-    ResolveAnnotTextMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveAnnotTextMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveAnnotTextMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveAnnotTextMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveAnnotTextMethod "hasPopup" o = AnnotMarkupHasPopupMethodInfo-    ResolveAnnotTextMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveAnnotTextMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveAnnotTextMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveAnnotTextMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveAnnotTextMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveAnnotTextMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveAnnotTextMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveAnnotTextMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveAnnotTextMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveAnnotTextMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveAnnotTextMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveAnnotTextMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveAnnotTextMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveAnnotTextMethod "getAnnotType" o = AnnotGetAnnotTypeMethodInfo-    ResolveAnnotTextMethod "getColor" o = AnnotGetColorMethodInfo-    ResolveAnnotTextMethod "getContents" o = AnnotGetContentsMethodInfo-    ResolveAnnotTextMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveAnnotTextMethod "getDate" o = AnnotMarkupGetDateMethodInfo-    ResolveAnnotTextMethod "getExternalData" o = AnnotMarkupGetExternalDataMethodInfo-    ResolveAnnotTextMethod "getFlags" o = AnnotGetFlagsMethodInfo-    ResolveAnnotTextMethod "getIcon" o = AnnotTextGetIconMethodInfo-    ResolveAnnotTextMethod "getIsOpen" o = AnnotTextGetIsOpenMethodInfo-    ResolveAnnotTextMethod "getLabel" o = AnnotMarkupGetLabelMethodInfo-    ResolveAnnotTextMethod "getModified" o = AnnotGetModifiedMethodInfo-    ResolveAnnotTextMethod "getName" o = AnnotGetNameMethodInfo-    ResolveAnnotTextMethod "getOpacity" o = AnnotMarkupGetOpacityMethodInfo-    ResolveAnnotTextMethod "getPageIndex" o = AnnotGetPageIndexMethodInfo-    ResolveAnnotTextMethod "getPopupIsOpen" o = AnnotMarkupGetPopupIsOpenMethodInfo-    ResolveAnnotTextMethod "getPopupRectangle" o = AnnotMarkupGetPopupRectangleMethodInfo-    ResolveAnnotTextMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveAnnotTextMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveAnnotTextMethod "getRectangle" o = AnnotGetRectangleMethodInfo-    ResolveAnnotTextMethod "getReplyTo" o = AnnotMarkupGetReplyToMethodInfo-    ResolveAnnotTextMethod "getState" o = AnnotTextGetStateMethodInfo-    ResolveAnnotTextMethod "getSubject" o = AnnotMarkupGetSubjectMethodInfo-    ResolveAnnotTextMethod "setColor" o = AnnotSetColorMethodInfo-    ResolveAnnotTextMethod "setContents" o = AnnotSetContentsMethodInfo-    ResolveAnnotTextMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveAnnotTextMethod "setFlags" o = AnnotSetFlagsMethodInfo-    ResolveAnnotTextMethod "setIcon" o = AnnotTextSetIconMethodInfo-    ResolveAnnotTextMethod "setIsOpen" o = AnnotTextSetIsOpenMethodInfo-    ResolveAnnotTextMethod "setLabel" o = AnnotMarkupSetLabelMethodInfo-    ResolveAnnotTextMethod "setOpacity" o = AnnotMarkupSetOpacityMethodInfo-    ResolveAnnotTextMethod "setPopup" o = AnnotMarkupSetPopupMethodInfo-    ResolveAnnotTextMethod "setPopupIsOpen" o = AnnotMarkupSetPopupIsOpenMethodInfo-    ResolveAnnotTextMethod "setPopupRectangle" o = AnnotMarkupSetPopupRectangleMethodInfo-    ResolveAnnotTextMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveAnnotTextMethod "setRectangle" o = AnnotSetRectangleMethodInfo-    ResolveAnnotTextMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveAnnotTextMethod t AnnotText, MethodInfo info AnnotText p) => IsLabelProxy t (AnnotText -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveAnnotTextMethod t AnnotText, MethodInfo info AnnotText p) => IsLabel t (AnnotText -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList AnnotText = AnnotTextAttributeList-type AnnotTextAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList AnnotText = AnnotTextSignalList-type AnnotTextSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method AnnotText::new--- method type : Constructor--- Args : [Arg {argCName = "doc", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "AnnotText")--- throws : False--- Skip return : False--foreign import ccall "poppler_annot_text_new" poppler_annot_text_new :: -    Ptr Document ->                         -- doc : TInterface "Poppler" "Document"-    Ptr Rectangle ->                        -- rect : TInterface "Poppler" "Rectangle"-    IO (Ptr AnnotText)---annotTextNew ::-    (MonadIO m, DocumentK a) =>-    a                                       -- doc-    -> Rectangle                            -- rect-    -> m AnnotText                          -- result-annotTextNew doc rect = liftIO $ do-    let doc' = unsafeManagedPtrCastPtr doc-    let rect' = unsafeManagedPtrGetPtr rect-    result <- poppler_annot_text_new doc' rect'-    checkUnexpectedReturnNULL "poppler_annot_text_new" result-    result' <- (wrapObject AnnotText) result-    touchManagedPtr doc-    touchManagedPtr rect-    return result'---- method AnnotText::get_icon--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotText", direction = DirectionIn, mayBeNull = False, 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_text_get_icon" poppler_annot_text_get_icon :: -    Ptr AnnotText ->                        -- _obj : TInterface "Poppler" "AnnotText"-    IO CString---annotTextGetIcon ::-    (MonadIO m, AnnotTextK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-annotTextGetIcon _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_annot_text_get_icon _obj'-    checkUnexpectedReturnNULL "poppler_annot_text_get_icon" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data AnnotTextGetIconMethodInfo-instance (signature ~ (m T.Text), MonadIO m, AnnotTextK a) => MethodInfo AnnotTextGetIconMethodInfo a signature where-    overloadedMethod _ = annotTextGetIcon---- method AnnotText::get_is_open--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotText", direction = DirectionIn, mayBeNull = False, 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_text_get_is_open" poppler_annot_text_get_is_open :: -    Ptr AnnotText ->                        -- _obj : TInterface "Poppler" "AnnotText"-    IO CInt---annotTextGetIsOpen ::-    (MonadIO m, AnnotTextK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-annotTextGetIsOpen _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_annot_text_get_is_open _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data AnnotTextGetIsOpenMethodInfo-instance (signature ~ (m Bool), MonadIO m, AnnotTextK a) => MethodInfo AnnotTextGetIsOpenMethodInfo a signature where-    overloadedMethod _ = annotTextGetIsOpen---- method AnnotText::get_state--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "AnnotTextState")--- throws : False--- Skip return : False--foreign import ccall "poppler_annot_text_get_state" poppler_annot_text_get_state :: -    Ptr AnnotText ->                        -- _obj : TInterface "Poppler" "AnnotText"-    IO CUInt---annotTextGetState ::-    (MonadIO m, AnnotTextK a) =>-    a                                       -- _obj-    -> m AnnotTextState                     -- result-annotTextGetState _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_annot_text_get_state _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data AnnotTextGetStateMethodInfo-instance (signature ~ (m AnnotTextState), MonadIO m, AnnotTextK a) => MethodInfo AnnotTextGetStateMethodInfo a signature where-    overloadedMethod _ = annotTextGetState---- method AnnotText::set_icon--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_annot_text_set_icon" poppler_annot_text_set_icon :: -    Ptr AnnotText ->                        -- _obj : TInterface "Poppler" "AnnotText"-    CString ->                              -- icon : TBasicType TUTF8-    IO ()---annotTextSetIcon ::-    (MonadIO m, AnnotTextK a) =>-    a                                       -- _obj-    -> T.Text                               -- icon-    -> m ()                                 -- result-annotTextSetIcon _obj icon = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    icon' <- textToCString icon-    poppler_annot_text_set_icon _obj' icon'-    touchManagedPtr _obj-    freeMem icon'-    return ()--data AnnotTextSetIconMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, AnnotTextK a) => MethodInfo AnnotTextSetIconMethodInfo a signature where-    overloadedMethod _ = annotTextSetIcon---- method AnnotText::set_is_open--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_open", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_annot_text_set_is_open" poppler_annot_text_set_is_open :: -    Ptr AnnotText ->                        -- _obj : TInterface "Poppler" "AnnotText"-    CInt ->                                 -- is_open : TBasicType TBoolean-    IO ()---annotTextSetIsOpen ::-    (MonadIO m, AnnotTextK a) =>-    a                                       -- _obj-    -> Bool                                 -- isOpen-    -> m ()                                 -- result-annotTextSetIsOpen _obj isOpen = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let isOpen' = (fromIntegral . fromEnum) isOpen-    poppler_annot_text_set_is_open _obj' isOpen'-    touchManagedPtr _obj-    return ()--data AnnotTextSetIsOpenMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, AnnotTextK a) => MethodInfo AnnotTextSetIsOpenMethodInfo a signature where-    overloadedMethod _ = annotTextSetIsOpen--
− GI/Poppler/Objects/AnnotText.hs-boot 
@@ -1,18 +0,0 @@-module GI.Poppler.Objects.AnnotText where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype AnnotText = AnnotText (ForeignPtr AnnotText)-instance GObject AnnotText where-class GObject o => AnnotTextK o-instance (GObject o, IsDescendantOf AnnotText o) => AnnotTextK o-data AnnotTextGetIconMethodInfo-data AnnotTextGetIsOpenMethodInfo-data AnnotTextGetStateMethodInfo-data AnnotTextSetIconMethodInfo-data AnnotTextSetIsOpenMethodInfo
− GI/Poppler/Objects/AnnotTextMarkup.hs 
@@ -1,353 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Poppler.Objects.AnnotTextMarkup-    ( ---- * Exported types-    AnnotTextMarkup(..)                     ,-    AnnotTextMarkupK                        ,-    toAnnotTextMarkup                       ,-    noAnnotTextMarkup                       ,--- -- * Methods--- ** annotTextMarkupGetQuadrilaterals-    AnnotTextMarkupGetQuadrilateralsMethodInfo,-    annotTextMarkupGetQuadrilaterals        ,----- ** annotTextMarkupNewHighlight-    annotTextMarkupNewHighlight             ,----- ** annotTextMarkupNewSquiggly-    annotTextMarkupNewSquiggly              ,----- ** annotTextMarkupNewStrikeout-    annotTextMarkupNewStrikeout             ,----- ** annotTextMarkupNewUnderline-    annotTextMarkupNewUnderline             ,----- ** annotTextMarkupSetQuadrilaterals-    AnnotTextMarkupSetQuadrilateralsMethodInfo,-    annotTextMarkupSetQuadrilaterals        ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks-import qualified GI.GObject as GObject--newtype AnnotTextMarkup = AnnotTextMarkup (ForeignPtr AnnotTextMarkup)-foreign import ccall "poppler_annot_text_markup_get_type"-    c_poppler_annot_text_markup_get_type :: IO GType--type instance ParentTypes AnnotTextMarkup = AnnotTextMarkupParentTypes-type AnnotTextMarkupParentTypes = '[AnnotMarkup, Annot, GObject.Object]--instance GObject AnnotTextMarkup where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_poppler_annot_text_markup_get_type-    --class GObject o => AnnotTextMarkupK o-instance (GObject o, IsDescendantOf AnnotTextMarkup o) => AnnotTextMarkupK o--toAnnotTextMarkup :: AnnotTextMarkupK o => o -> IO AnnotTextMarkup-toAnnotTextMarkup = unsafeCastTo AnnotTextMarkup--noAnnotTextMarkup :: Maybe AnnotTextMarkup-noAnnotTextMarkup = Nothing--type family ResolveAnnotTextMarkupMethod (t :: Symbol) (o :: *) :: * where-    ResolveAnnotTextMarkupMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveAnnotTextMarkupMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveAnnotTextMarkupMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveAnnotTextMarkupMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveAnnotTextMarkupMethod "hasPopup" o = AnnotMarkupHasPopupMethodInfo-    ResolveAnnotTextMarkupMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveAnnotTextMarkupMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveAnnotTextMarkupMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveAnnotTextMarkupMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveAnnotTextMarkupMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveAnnotTextMarkupMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveAnnotTextMarkupMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveAnnotTextMarkupMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveAnnotTextMarkupMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveAnnotTextMarkupMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveAnnotTextMarkupMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveAnnotTextMarkupMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveAnnotTextMarkupMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveAnnotTextMarkupMethod "getAnnotType" o = AnnotGetAnnotTypeMethodInfo-    ResolveAnnotTextMarkupMethod "getColor" o = AnnotGetColorMethodInfo-    ResolveAnnotTextMarkupMethod "getContents" o = AnnotGetContentsMethodInfo-    ResolveAnnotTextMarkupMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveAnnotTextMarkupMethod "getDate" o = AnnotMarkupGetDateMethodInfo-    ResolveAnnotTextMarkupMethod "getExternalData" o = AnnotMarkupGetExternalDataMethodInfo-    ResolveAnnotTextMarkupMethod "getFlags" o = AnnotGetFlagsMethodInfo-    ResolveAnnotTextMarkupMethod "getLabel" o = AnnotMarkupGetLabelMethodInfo-    ResolveAnnotTextMarkupMethod "getModified" o = AnnotGetModifiedMethodInfo-    ResolveAnnotTextMarkupMethod "getName" o = AnnotGetNameMethodInfo-    ResolveAnnotTextMarkupMethod "getOpacity" o = AnnotMarkupGetOpacityMethodInfo-    ResolveAnnotTextMarkupMethod "getPageIndex" o = AnnotGetPageIndexMethodInfo-    ResolveAnnotTextMarkupMethod "getPopupIsOpen" o = AnnotMarkupGetPopupIsOpenMethodInfo-    ResolveAnnotTextMarkupMethod "getPopupRectangle" o = AnnotMarkupGetPopupRectangleMethodInfo-    ResolveAnnotTextMarkupMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveAnnotTextMarkupMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveAnnotTextMarkupMethod "getQuadrilaterals" o = AnnotTextMarkupGetQuadrilateralsMethodInfo-    ResolveAnnotTextMarkupMethod "getRectangle" o = AnnotGetRectangleMethodInfo-    ResolveAnnotTextMarkupMethod "getReplyTo" o = AnnotMarkupGetReplyToMethodInfo-    ResolveAnnotTextMarkupMethod "getSubject" o = AnnotMarkupGetSubjectMethodInfo-    ResolveAnnotTextMarkupMethod "setColor" o = AnnotSetColorMethodInfo-    ResolveAnnotTextMarkupMethod "setContents" o = AnnotSetContentsMethodInfo-    ResolveAnnotTextMarkupMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveAnnotTextMarkupMethod "setFlags" o = AnnotSetFlagsMethodInfo-    ResolveAnnotTextMarkupMethod "setLabel" o = AnnotMarkupSetLabelMethodInfo-    ResolveAnnotTextMarkupMethod "setOpacity" o = AnnotMarkupSetOpacityMethodInfo-    ResolveAnnotTextMarkupMethod "setPopup" o = AnnotMarkupSetPopupMethodInfo-    ResolveAnnotTextMarkupMethod "setPopupIsOpen" o = AnnotMarkupSetPopupIsOpenMethodInfo-    ResolveAnnotTextMarkupMethod "setPopupRectangle" o = AnnotMarkupSetPopupRectangleMethodInfo-    ResolveAnnotTextMarkupMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveAnnotTextMarkupMethod "setQuadrilaterals" o = AnnotTextMarkupSetQuadrilateralsMethodInfo-    ResolveAnnotTextMarkupMethod "setRectangle" o = AnnotSetRectangleMethodInfo-    ResolveAnnotTextMarkupMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveAnnotTextMarkupMethod t AnnotTextMarkup, MethodInfo info AnnotTextMarkup p) => IsLabelProxy t (AnnotTextMarkup -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveAnnotTextMarkupMethod t AnnotTextMarkup, MethodInfo info AnnotTextMarkup p) => IsLabel t (AnnotTextMarkup -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList AnnotTextMarkup = AnnotTextMarkupAttributeList-type AnnotTextMarkupAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList AnnotTextMarkup = AnnotTextMarkupSignalList-type AnnotTextMarkupSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method AnnotTextMarkup::new_highlight--- method type : Constructor--- Args : [Arg {argCName = "doc", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "quadrilaterals", argType = TGArray (TInterface "Poppler" "Quadrilateral"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "AnnotTextMarkup")--- throws : False--- Skip return : False--foreign import ccall "poppler_annot_text_markup_new_highlight" poppler_annot_text_markup_new_highlight :: -    Ptr Document ->                         -- doc : TInterface "Poppler" "Document"-    Ptr Rectangle ->                        -- rect : TInterface "Poppler" "Rectangle"-    Ptr (GArray (Ptr Quadrilateral)) ->     -- quadrilaterals : TGArray (TInterface "Poppler" "Quadrilateral")-    IO (Ptr AnnotTextMarkup)---annotTextMarkupNewHighlight ::-    (MonadIO m, DocumentK a) =>-    a                                       -- doc-    -> Rectangle                            -- rect-    -> [Quadrilateral]                      -- quadrilaterals-    -> m AnnotTextMarkup                    -- result-annotTextMarkupNewHighlight doc rect quadrilaterals = liftIO $ do-    let doc' = unsafeManagedPtrCastPtr doc-    let rect' = unsafeManagedPtrGetPtr rect-    let quadrilaterals' = map unsafeManagedPtrGetPtr quadrilaterals-    quadrilaterals'' <- packGArray quadrilaterals'-    result <- poppler_annot_text_markup_new_highlight doc' rect' quadrilaterals''-    checkUnexpectedReturnNULL "poppler_annot_text_markup_new_highlight" result-    result' <- (wrapObject AnnotTextMarkup) result-    touchManagedPtr doc-    touchManagedPtr rect-    mapM_ touchManagedPtr quadrilaterals-    unrefGArray quadrilaterals''-    return result'---- method AnnotTextMarkup::new_squiggly--- method type : Constructor--- Args : [Arg {argCName = "doc", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "quadrilaterals", argType = TGArray (TInterface "Poppler" "Quadrilateral"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "AnnotTextMarkup")--- throws : False--- Skip return : False--foreign import ccall "poppler_annot_text_markup_new_squiggly" poppler_annot_text_markup_new_squiggly :: -    Ptr Document ->                         -- doc : TInterface "Poppler" "Document"-    Ptr Rectangle ->                        -- rect : TInterface "Poppler" "Rectangle"-    Ptr (GArray (Ptr Quadrilateral)) ->     -- quadrilaterals : TGArray (TInterface "Poppler" "Quadrilateral")-    IO (Ptr AnnotTextMarkup)---annotTextMarkupNewSquiggly ::-    (MonadIO m, DocumentK a) =>-    a                                       -- doc-    -> Rectangle                            -- rect-    -> [Quadrilateral]                      -- quadrilaterals-    -> m AnnotTextMarkup                    -- result-annotTextMarkupNewSquiggly doc rect quadrilaterals = liftIO $ do-    let doc' = unsafeManagedPtrCastPtr doc-    let rect' = unsafeManagedPtrGetPtr rect-    let quadrilaterals' = map unsafeManagedPtrGetPtr quadrilaterals-    quadrilaterals'' <- packGArray quadrilaterals'-    result <- poppler_annot_text_markup_new_squiggly doc' rect' quadrilaterals''-    checkUnexpectedReturnNULL "poppler_annot_text_markup_new_squiggly" result-    result' <- (wrapObject AnnotTextMarkup) result-    touchManagedPtr doc-    touchManagedPtr rect-    mapM_ touchManagedPtr quadrilaterals-    unrefGArray quadrilaterals''-    return result'---- method AnnotTextMarkup::new_strikeout--- method type : Constructor--- Args : [Arg {argCName = "doc", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "quadrilaterals", argType = TGArray (TInterface "Poppler" "Quadrilateral"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "AnnotTextMarkup")--- throws : False--- Skip return : False--foreign import ccall "poppler_annot_text_markup_new_strikeout" poppler_annot_text_markup_new_strikeout :: -    Ptr Document ->                         -- doc : TInterface "Poppler" "Document"-    Ptr Rectangle ->                        -- rect : TInterface "Poppler" "Rectangle"-    Ptr (GArray (Ptr Quadrilateral)) ->     -- quadrilaterals : TGArray (TInterface "Poppler" "Quadrilateral")-    IO (Ptr AnnotTextMarkup)---annotTextMarkupNewStrikeout ::-    (MonadIO m, DocumentK a) =>-    a                                       -- doc-    -> Rectangle                            -- rect-    -> [Quadrilateral]                      -- quadrilaterals-    -> m AnnotTextMarkup                    -- result-annotTextMarkupNewStrikeout doc rect quadrilaterals = liftIO $ do-    let doc' = unsafeManagedPtrCastPtr doc-    let rect' = unsafeManagedPtrGetPtr rect-    let quadrilaterals' = map unsafeManagedPtrGetPtr quadrilaterals-    quadrilaterals'' <- packGArray quadrilaterals'-    result <- poppler_annot_text_markup_new_strikeout doc' rect' quadrilaterals''-    checkUnexpectedReturnNULL "poppler_annot_text_markup_new_strikeout" result-    result' <- (wrapObject AnnotTextMarkup) result-    touchManagedPtr doc-    touchManagedPtr rect-    mapM_ touchManagedPtr quadrilaterals-    unrefGArray quadrilaterals''-    return result'---- method AnnotTextMarkup::new_underline--- method type : Constructor--- Args : [Arg {argCName = "doc", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "quadrilaterals", argType = TGArray (TInterface "Poppler" "Quadrilateral"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "AnnotTextMarkup")--- throws : False--- Skip return : False--foreign import ccall "poppler_annot_text_markup_new_underline" poppler_annot_text_markup_new_underline :: -    Ptr Document ->                         -- doc : TInterface "Poppler" "Document"-    Ptr Rectangle ->                        -- rect : TInterface "Poppler" "Rectangle"-    Ptr (GArray (Ptr Quadrilateral)) ->     -- quadrilaterals : TGArray (TInterface "Poppler" "Quadrilateral")-    IO (Ptr AnnotTextMarkup)---annotTextMarkupNewUnderline ::-    (MonadIO m, DocumentK a) =>-    a                                       -- doc-    -> Rectangle                            -- rect-    -> [Quadrilateral]                      -- quadrilaterals-    -> m AnnotTextMarkup                    -- result-annotTextMarkupNewUnderline doc rect quadrilaterals = liftIO $ do-    let doc' = unsafeManagedPtrCastPtr doc-    let rect' = unsafeManagedPtrGetPtr rect-    let quadrilaterals' = map unsafeManagedPtrGetPtr quadrilaterals-    quadrilaterals'' <- packGArray quadrilaterals'-    result <- poppler_annot_text_markup_new_underline doc' rect' quadrilaterals''-    checkUnexpectedReturnNULL "poppler_annot_text_markup_new_underline" result-    result' <- (wrapObject AnnotTextMarkup) result-    touchManagedPtr doc-    touchManagedPtr rect-    mapM_ touchManagedPtr quadrilaterals-    unrefGArray quadrilaterals''-    return result'---- method AnnotTextMarkup::get_quadrilaterals--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotTextMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGArray (TInterface "Poppler" "Quadrilateral"))--- throws : False--- Skip return : False--foreign import ccall "poppler_annot_text_markup_get_quadrilaterals" poppler_annot_text_markup_get_quadrilaterals :: -    Ptr AnnotTextMarkup ->                  -- _obj : TInterface "Poppler" "AnnotTextMarkup"-    IO (Ptr (GArray (Ptr Quadrilateral)))---annotTextMarkupGetQuadrilaterals ::-    (MonadIO m, AnnotTextMarkupK a) =>-    a                                       -- _obj-    -> m [Quadrilateral]                    -- result-annotTextMarkupGetQuadrilaterals _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_annot_text_markup_get_quadrilaterals _obj'-    checkUnexpectedReturnNULL "poppler_annot_text_markup_get_quadrilaterals" result-    result' <- unpackGArray result-    result'' <- mapM (wrapBoxed Quadrilateral) result'-    unrefGArray result-    touchManagedPtr _obj-    return result''--data AnnotTextMarkupGetQuadrilateralsMethodInfo-instance (signature ~ (m [Quadrilateral]), MonadIO m, AnnotTextMarkupK a) => MethodInfo AnnotTextMarkupGetQuadrilateralsMethodInfo a signature where-    overloadedMethod _ = annotTextMarkupGetQuadrilaterals---- method AnnotTextMarkup::set_quadrilaterals--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotTextMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "quadrilaterals", argType = TGArray (TInterface "Poppler" "Quadrilateral"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_annot_text_markup_set_quadrilaterals" poppler_annot_text_markup_set_quadrilaterals :: -    Ptr AnnotTextMarkup ->                  -- _obj : TInterface "Poppler" "AnnotTextMarkup"-    Ptr (GArray (Ptr Quadrilateral)) ->     -- quadrilaterals : TGArray (TInterface "Poppler" "Quadrilateral")-    IO ()---annotTextMarkupSetQuadrilaterals ::-    (MonadIO m, AnnotTextMarkupK a) =>-    a                                       -- _obj-    -> [Quadrilateral]                      -- quadrilaterals-    -> m ()                                 -- result-annotTextMarkupSetQuadrilaterals _obj quadrilaterals = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let quadrilaterals' = map unsafeManagedPtrGetPtr quadrilaterals-    quadrilaterals'' <- packGArray quadrilaterals'-    poppler_annot_text_markup_set_quadrilaterals _obj' quadrilaterals''-    touchManagedPtr _obj-    mapM_ touchManagedPtr quadrilaterals-    unrefGArray quadrilaterals''-    return ()--data AnnotTextMarkupSetQuadrilateralsMethodInfo-instance (signature ~ ([Quadrilateral] -> m ()), MonadIO m, AnnotTextMarkupK a) => MethodInfo AnnotTextMarkupSetQuadrilateralsMethodInfo a signature where-    overloadedMethod _ = annotTextMarkupSetQuadrilaterals--
− GI/Poppler/Objects/AnnotTextMarkup.hs-boot 
@@ -1,15 +0,0 @@-module GI.Poppler.Objects.AnnotTextMarkup where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype AnnotTextMarkup = AnnotTextMarkup (ForeignPtr AnnotTextMarkup)-instance GObject AnnotTextMarkup where-class GObject o => AnnotTextMarkupK o-instance (GObject o, IsDescendantOf AnnotTextMarkup o) => AnnotTextMarkupK o-data AnnotTextMarkupGetQuadrilateralsMethodInfo-data AnnotTextMarkupSetQuadrilateralsMethodInfo
− GI/Poppler/Objects/Attachment.hs 
@@ -1,182 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Poppler.Objects.Attachment-    ( ---- * Exported types-    Attachment(..)                          ,-    AttachmentK                             ,-    toAttachment                            ,-    noAttachment                            ,--- -- * Methods--- ** attachmentSave-    AttachmentSaveMethodInfo                ,-    attachmentSave                          ,----- ** attachmentSaveToCallback-    AttachmentSaveToCallbackMethodInfo      ,-    attachmentSaveToCallback                ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks-import qualified GI.GObject as GObject--newtype Attachment = Attachment (ForeignPtr Attachment)-foreign import ccall "poppler_attachment_get_type"-    c_poppler_attachment_get_type :: IO GType--type instance ParentTypes Attachment = AttachmentParentTypes-type AttachmentParentTypes = '[GObject.Object]--instance GObject Attachment where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_poppler_attachment_get_type-    --class GObject o => AttachmentK o-instance (GObject o, IsDescendantOf Attachment o) => AttachmentK o--toAttachment :: AttachmentK o => o -> IO Attachment-toAttachment = unsafeCastTo Attachment--noAttachment :: Maybe Attachment-noAttachment = Nothing--type family ResolveAttachmentMethod (t :: Symbol) (o :: *) :: * where-    ResolveAttachmentMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveAttachmentMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveAttachmentMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveAttachmentMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveAttachmentMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveAttachmentMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveAttachmentMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveAttachmentMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveAttachmentMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveAttachmentMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveAttachmentMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveAttachmentMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveAttachmentMethod "save" o = AttachmentSaveMethodInfo-    ResolveAttachmentMethod "saveToCallback" o = AttachmentSaveToCallbackMethodInfo-    ResolveAttachmentMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveAttachmentMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveAttachmentMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveAttachmentMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveAttachmentMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveAttachmentMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveAttachmentMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveAttachmentMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveAttachmentMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveAttachmentMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveAttachmentMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveAttachmentMethod t Attachment, MethodInfo info Attachment p) => IsLabelProxy t (Attachment -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveAttachmentMethod t Attachment, MethodInfo info Attachment p) => IsLabel t (Attachment -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList Attachment = AttachmentAttributeList-type AttachmentAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList Attachment = AttachmentSignalList-type AttachmentSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method Attachment::save--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Attachment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "poppler_attachment_save" poppler_attachment_save :: -    Ptr Attachment ->                       -- _obj : TInterface "Poppler" "Attachment"-    CString ->                              -- filename : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt---attachmentSave ::-    (MonadIO m, AttachmentK a) =>-    a                                       -- _obj-    -> T.Text                               -- filename-    -> m ()                                 -- result-attachmentSave _obj filename = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    filename' <- textToCString filename-    onException (do-        _ <- propagateGError $ poppler_attachment_save _obj' filename'-        touchManagedPtr _obj-        freeMem filename'-        return ()-     ) (do-        freeMem filename'-     )--data AttachmentSaveMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, AttachmentK a) => MethodInfo AttachmentSaveMethodInfo a signature where-    overloadedMethod _ = attachmentSave---- method Attachment::save_to_callback--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Attachment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "save_func", argType = TInterface "Poppler" "AttachmentSaveFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "poppler_attachment_save_to_callback" poppler_attachment_save_to_callback :: -    Ptr Attachment ->                       -- _obj : TInterface "Poppler" "Attachment"-    FunPtr AttachmentSaveFuncC ->           -- save_func : TInterface "Poppler" "AttachmentSaveFunc"-    Ptr () ->                               -- user_data : TBasicType TPtr-    Ptr (Ptr GError) ->                     -- error-    IO CInt---attachmentSaveToCallback ::-    (MonadIO m, AttachmentK a) =>-    a                                       -- _obj-    -> AttachmentSaveFunc                   -- saveFunc-    -> m ()                                 -- result-attachmentSaveToCallback _obj saveFunc = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    saveFunc' <- mkAttachmentSaveFunc (attachmentSaveFuncWrapper Nothing saveFunc)-    let userData = nullPtr-    onException (do-        _ <- propagateGError $ poppler_attachment_save_to_callback _obj' saveFunc' userData-        safeFreeFunPtr $ castFunPtrToPtr saveFunc'-        touchManagedPtr _obj-        return ()-     ) (do-        safeFreeFunPtr $ castFunPtrToPtr saveFunc'-        return ()-     )--data AttachmentSaveToCallbackMethodInfo-instance (signature ~ (AttachmentSaveFunc -> m ()), MonadIO m, AttachmentK a) => MethodInfo AttachmentSaveToCallbackMethodInfo a signature where-    overloadedMethod _ = attachmentSaveToCallback--
− GI/Poppler/Objects/Attachment.hs-boot 
@@ -1,15 +0,0 @@-module GI.Poppler.Objects.Attachment where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Attachment = Attachment (ForeignPtr Attachment)-instance GObject Attachment where-class GObject o => AttachmentK o-instance (GObject o, IsDescendantOf Attachment o) => AttachmentK o-data AttachmentSaveMethodInfo-data AttachmentSaveToCallbackMethodInfo
− GI/Poppler/Objects/Document.hs 
@@ -1,1731 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Poppler.Objects.Document-    ( ---- * Exported types-    Document(..)                            ,-    DocumentK                               ,-    toDocument                              ,-    noDocument                              ,--- -- * Methods--- ** documentFindDest-    DocumentFindDestMethodInfo              ,-    documentFindDest                        ,----- ** documentGetAttachments-    DocumentGetAttachmentsMethodInfo        ,-    documentGetAttachments                  ,----- ** documentGetAuthor-    DocumentGetAuthorMethodInfo             ,-    documentGetAuthor                       ,----- ** documentGetCreationDate-    DocumentGetCreationDateMethodInfo       ,-    documentGetCreationDate                 ,----- ** documentGetCreator-    DocumentGetCreatorMethodInfo            ,-    documentGetCreator                      ,----- ** documentGetFormField-    DocumentGetFormFieldMethodInfo          ,-    documentGetFormField                    ,----- ** documentGetId-    DocumentGetIdMethodInfo                 ,-    documentGetId                           ,----- ** documentGetKeywords-    DocumentGetKeywordsMethodInfo           ,-    documentGetKeywords                     ,----- ** documentGetMetadata-    DocumentGetMetadataMethodInfo           ,-    documentGetMetadata                     ,----- ** documentGetModificationDate-    DocumentGetModificationDateMethodInfo   ,-    documentGetModificationDate             ,----- ** documentGetNAttachments-    DocumentGetNAttachmentsMethodInfo       ,-    documentGetNAttachments                 ,----- ** documentGetNPages-    DocumentGetNPagesMethodInfo             ,-    documentGetNPages                       ,----- ** documentGetPage-    DocumentGetPageMethodInfo               ,-    documentGetPage                         ,----- ** documentGetPageByLabel-    DocumentGetPageByLabelMethodInfo        ,-    documentGetPageByLabel                  ,----- ** documentGetPageLayout-    DocumentGetPageLayoutMethodInfo         ,-    documentGetPageLayout                   ,----- ** documentGetPageMode-    DocumentGetPageModeMethodInfo           ,-    documentGetPageMode                     ,----- ** documentGetPdfVersion-    DocumentGetPdfVersionMethodInfo         ,-    documentGetPdfVersion                   ,----- ** documentGetPdfVersionString-    DocumentGetPdfVersionStringMethodInfo   ,-    documentGetPdfVersionString             ,----- ** documentGetPermissions-    DocumentGetPermissionsMethodInfo        ,-    documentGetPermissions                  ,----- ** documentGetProducer-    DocumentGetProducerMethodInfo           ,-    documentGetProducer                     ,----- ** documentGetSubject-    DocumentGetSubjectMethodInfo            ,-    documentGetSubject                      ,----- ** documentGetTitle-    DocumentGetTitleMethodInfo              ,-    documentGetTitle                        ,----- ** documentHasAttachments-    DocumentHasAttachmentsMethodInfo        ,-    documentHasAttachments                  ,----- ** documentIsLinearized-    DocumentIsLinearizedMethodInfo          ,-    documentIsLinearized                    ,----- ** documentNewFromData-    documentNewFromData                     ,----- ** documentNewFromFile-    documentNewFromFile                     ,----- ** documentNewFromGfile-    documentNewFromGfile                    ,----- ** documentNewFromStream-    documentNewFromStream                   ,----- ** documentSave-    DocumentSaveMethodInfo                  ,-    documentSave                            ,----- ** documentSaveACopy-    DocumentSaveACopyMethodInfo             ,-    documentSaveACopy                       ,----- -- * Properties--- ** Author-    DocumentAuthorPropertyInfo              ,-    documentAuthor                          ,-    getDocumentAuthor                       ,----- ** CreationDate-    DocumentCreationDatePropertyInfo        ,-    documentCreationDate                    ,-    getDocumentCreationDate                 ,----- ** Creator-    DocumentCreatorPropertyInfo             ,-    documentCreator                         ,-    getDocumentCreator                      ,----- ** Format-    DocumentFormatPropertyInfo              ,-    documentFormat                          ,-    getDocumentFormat                       ,----- ** FormatMajor-    DocumentFormatMajorPropertyInfo         ,-    documentFormatMajor                     ,-    getDocumentFormatMajor                  ,----- ** FormatMinor-    DocumentFormatMinorPropertyInfo         ,-    documentFormatMinor                     ,-    getDocumentFormatMinor                  ,----- ** Keywords-    DocumentKeywordsPropertyInfo            ,-    documentKeywords                        ,-    getDocumentKeywords                     ,----- ** Linearized-    DocumentLinearizedPropertyInfo          ,-    documentLinearized                      ,-    getDocumentLinearized                   ,----- ** Metadata-    DocumentMetadataPropertyInfo            ,-    documentMetadata                        ,-    getDocumentMetadata                     ,----- ** ModDate-    DocumentModDatePropertyInfo             ,-    documentModDate                         ,-    getDocumentModDate                      ,----- ** PageLayout-    DocumentPageLayoutPropertyInfo          ,-    documentPageLayout                      ,-    getDocumentPageLayout                   ,----- ** PageMode-    DocumentPageModePropertyInfo            ,-    documentPageMode                        ,-    getDocumentPageMode                     ,----- ** Permissions-    DocumentPermissionsPropertyInfo         ,-    documentPermissions                     ,-    getDocumentPermissions                  ,----- ** Producer-    DocumentProducerPropertyInfo            ,-    documentProducer                        ,-    getDocumentProducer                     ,----- ** Subject-    DocumentSubjectPropertyInfo             ,-    documentSubject                         ,-    getDocumentSubject                      ,----- ** Title-    DocumentTitlePropertyInfo               ,-    documentTitle                           ,-    getDocumentTitle                        ,----- ** ViewerPreferences-    DocumentViewerPreferencesPropertyInfo   ,-    documentViewerPreferences               ,-    getDocumentViewerPreferences            ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks-import qualified GI.GObject as GObject-import qualified GI.Gio as Gio--newtype Document = Document (ForeignPtr Document)-foreign import ccall "poppler_document_get_type"-    c_poppler_document_get_type :: IO GType--type instance ParentTypes Document = DocumentParentTypes-type DocumentParentTypes = '[GObject.Object]--instance GObject Document where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_poppler_document_get_type-    --class GObject o => DocumentK o-instance (GObject o, IsDescendantOf Document o) => DocumentK o--toDocument :: DocumentK o => o -> IO Document-toDocument = unsafeCastTo Document--noDocument :: Maybe Document-noDocument = Nothing--type family ResolveDocumentMethod (t :: Symbol) (o :: *) :: * where-    ResolveDocumentMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveDocumentMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveDocumentMethod "findDest" o = DocumentFindDestMethodInfo-    ResolveDocumentMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveDocumentMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveDocumentMethod "hasAttachments" o = DocumentHasAttachmentsMethodInfo-    ResolveDocumentMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveDocumentMethod "isLinearized" o = DocumentIsLinearizedMethodInfo-    ResolveDocumentMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveDocumentMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveDocumentMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveDocumentMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveDocumentMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveDocumentMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveDocumentMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveDocumentMethod "save" o = DocumentSaveMethodInfo-    ResolveDocumentMethod "saveACopy" o = DocumentSaveACopyMethodInfo-    ResolveDocumentMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveDocumentMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveDocumentMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveDocumentMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveDocumentMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveDocumentMethod "getAttachments" o = DocumentGetAttachmentsMethodInfo-    ResolveDocumentMethod "getAuthor" o = DocumentGetAuthorMethodInfo-    ResolveDocumentMethod "getCreationDate" o = DocumentGetCreationDateMethodInfo-    ResolveDocumentMethod "getCreator" o = DocumentGetCreatorMethodInfo-    ResolveDocumentMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveDocumentMethod "getFormField" o = DocumentGetFormFieldMethodInfo-    ResolveDocumentMethod "getId" o = DocumentGetIdMethodInfo-    ResolveDocumentMethod "getKeywords" o = DocumentGetKeywordsMethodInfo-    ResolveDocumentMethod "getMetadata" o = DocumentGetMetadataMethodInfo-    ResolveDocumentMethod "getModificationDate" o = DocumentGetModificationDateMethodInfo-    ResolveDocumentMethod "getNAttachments" o = DocumentGetNAttachmentsMethodInfo-    ResolveDocumentMethod "getNPages" o = DocumentGetNPagesMethodInfo-    ResolveDocumentMethod "getPage" o = DocumentGetPageMethodInfo-    ResolveDocumentMethod "getPageByLabel" o = DocumentGetPageByLabelMethodInfo-    ResolveDocumentMethod "getPageLayout" o = DocumentGetPageLayoutMethodInfo-    ResolveDocumentMethod "getPageMode" o = DocumentGetPageModeMethodInfo-    ResolveDocumentMethod "getPdfVersion" o = DocumentGetPdfVersionMethodInfo-    ResolveDocumentMethod "getPdfVersionString" o = DocumentGetPdfVersionStringMethodInfo-    ResolveDocumentMethod "getPermissions" o = DocumentGetPermissionsMethodInfo-    ResolveDocumentMethod "getProducer" o = DocumentGetProducerMethodInfo-    ResolveDocumentMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveDocumentMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveDocumentMethod "getSubject" o = DocumentGetSubjectMethodInfo-    ResolveDocumentMethod "getTitle" o = DocumentGetTitleMethodInfo-    ResolveDocumentMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveDocumentMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveDocumentMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveDocumentMethod t Document, MethodInfo info Document p) => IsLabelProxy t (Document -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveDocumentMethod t Document, MethodInfo info Document p) => IsLabel t (Document -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "author"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getDocumentAuthor :: (MonadIO m, DocumentK o) => o -> m (Maybe T.Text)-getDocumentAuthor obj = liftIO $ getObjectPropertyString obj "author"--data DocumentAuthorPropertyInfo-instance AttrInfo DocumentAuthorPropertyInfo where-    type AttrAllowedOps DocumentAuthorPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DocumentAuthorPropertyInfo = (~) ()-    type AttrBaseTypeConstraint DocumentAuthorPropertyInfo = DocumentK-    type AttrGetType DocumentAuthorPropertyInfo = (Maybe T.Text)-    type AttrLabel DocumentAuthorPropertyInfo = "author"-    attrGet _ = getDocumentAuthor-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "creation-date"-   -- Type: TBasicType TInt-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getDocumentCreationDate :: (MonadIO m, DocumentK o) => o -> m Int32-getDocumentCreationDate obj = liftIO $ getObjectPropertyInt32 obj "creation-date"--data DocumentCreationDatePropertyInfo-instance AttrInfo DocumentCreationDatePropertyInfo where-    type AttrAllowedOps DocumentCreationDatePropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint DocumentCreationDatePropertyInfo = (~) ()-    type AttrBaseTypeConstraint DocumentCreationDatePropertyInfo = DocumentK-    type AttrGetType DocumentCreationDatePropertyInfo = Int32-    type AttrLabel DocumentCreationDatePropertyInfo = "creation-date"-    attrGet _ = getDocumentCreationDate-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "creator"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getDocumentCreator :: (MonadIO m, DocumentK o) => o -> m (Maybe T.Text)-getDocumentCreator obj = liftIO $ getObjectPropertyString obj "creator"--data DocumentCreatorPropertyInfo-instance AttrInfo DocumentCreatorPropertyInfo where-    type AttrAllowedOps DocumentCreatorPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DocumentCreatorPropertyInfo = (~) ()-    type AttrBaseTypeConstraint DocumentCreatorPropertyInfo = DocumentK-    type AttrGetType DocumentCreatorPropertyInfo = (Maybe T.Text)-    type AttrLabel DocumentCreatorPropertyInfo = "creator"-    attrGet _ = getDocumentCreator-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "format"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getDocumentFormat :: (MonadIO m, DocumentK o) => o -> m (Maybe T.Text)-getDocumentFormat obj = liftIO $ getObjectPropertyString obj "format"--data DocumentFormatPropertyInfo-instance AttrInfo DocumentFormatPropertyInfo where-    type AttrAllowedOps DocumentFormatPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DocumentFormatPropertyInfo = (~) ()-    type AttrBaseTypeConstraint DocumentFormatPropertyInfo = DocumentK-    type AttrGetType DocumentFormatPropertyInfo = (Maybe T.Text)-    type AttrLabel DocumentFormatPropertyInfo = "format"-    attrGet _ = getDocumentFormat-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "format-major"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getDocumentFormatMajor :: (MonadIO m, DocumentK o) => o -> m Word32-getDocumentFormatMajor obj = liftIO $ getObjectPropertyUInt32 obj "format-major"--data DocumentFormatMajorPropertyInfo-instance AttrInfo DocumentFormatMajorPropertyInfo where-    type AttrAllowedOps DocumentFormatMajorPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint DocumentFormatMajorPropertyInfo = (~) ()-    type AttrBaseTypeConstraint DocumentFormatMajorPropertyInfo = DocumentK-    type AttrGetType DocumentFormatMajorPropertyInfo = Word32-    type AttrLabel DocumentFormatMajorPropertyInfo = "format-major"-    attrGet _ = getDocumentFormatMajor-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "format-minor"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getDocumentFormatMinor :: (MonadIO m, DocumentK o) => o -> m Word32-getDocumentFormatMinor obj = liftIO $ getObjectPropertyUInt32 obj "format-minor"--data DocumentFormatMinorPropertyInfo-instance AttrInfo DocumentFormatMinorPropertyInfo where-    type AttrAllowedOps DocumentFormatMinorPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint DocumentFormatMinorPropertyInfo = (~) ()-    type AttrBaseTypeConstraint DocumentFormatMinorPropertyInfo = DocumentK-    type AttrGetType DocumentFormatMinorPropertyInfo = Word32-    type AttrLabel DocumentFormatMinorPropertyInfo = "format-minor"-    attrGet _ = getDocumentFormatMinor-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "keywords"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getDocumentKeywords :: (MonadIO m, DocumentK o) => o -> m (Maybe T.Text)-getDocumentKeywords obj = liftIO $ getObjectPropertyString obj "keywords"--data DocumentKeywordsPropertyInfo-instance AttrInfo DocumentKeywordsPropertyInfo where-    type AttrAllowedOps DocumentKeywordsPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DocumentKeywordsPropertyInfo = (~) ()-    type AttrBaseTypeConstraint DocumentKeywordsPropertyInfo = DocumentK-    type AttrGetType DocumentKeywordsPropertyInfo = (Maybe T.Text)-    type AttrLabel DocumentKeywordsPropertyInfo = "keywords"-    attrGet _ = getDocumentKeywords-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "linearized"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getDocumentLinearized :: (MonadIO m, DocumentK o) => o -> m Bool-getDocumentLinearized obj = liftIO $ getObjectPropertyBool obj "linearized"--data DocumentLinearizedPropertyInfo-instance AttrInfo DocumentLinearizedPropertyInfo where-    type AttrAllowedOps DocumentLinearizedPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint DocumentLinearizedPropertyInfo = (~) ()-    type AttrBaseTypeConstraint DocumentLinearizedPropertyInfo = DocumentK-    type AttrGetType DocumentLinearizedPropertyInfo = Bool-    type AttrLabel DocumentLinearizedPropertyInfo = "linearized"-    attrGet _ = getDocumentLinearized-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "metadata"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getDocumentMetadata :: (MonadIO m, DocumentK o) => o -> m (Maybe T.Text)-getDocumentMetadata obj = liftIO $ getObjectPropertyString obj "metadata"--data DocumentMetadataPropertyInfo-instance AttrInfo DocumentMetadataPropertyInfo where-    type AttrAllowedOps DocumentMetadataPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DocumentMetadataPropertyInfo = (~) ()-    type AttrBaseTypeConstraint DocumentMetadataPropertyInfo = DocumentK-    type AttrGetType DocumentMetadataPropertyInfo = (Maybe T.Text)-    type AttrLabel DocumentMetadataPropertyInfo = "metadata"-    attrGet _ = getDocumentMetadata-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "mod-date"-   -- Type: TBasicType TInt-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getDocumentModDate :: (MonadIO m, DocumentK o) => o -> m Int32-getDocumentModDate obj = liftIO $ getObjectPropertyInt32 obj "mod-date"--data DocumentModDatePropertyInfo-instance AttrInfo DocumentModDatePropertyInfo where-    type AttrAllowedOps DocumentModDatePropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint DocumentModDatePropertyInfo = (~) ()-    type AttrBaseTypeConstraint DocumentModDatePropertyInfo = DocumentK-    type AttrGetType DocumentModDatePropertyInfo = Int32-    type AttrLabel DocumentModDatePropertyInfo = "mod-date"-    attrGet _ = getDocumentModDate-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "page-layout"-   -- Type: TInterface "Poppler" "PageLayout"-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getDocumentPageLayout :: (MonadIO m, DocumentK o) => o -> m PageLayout-getDocumentPageLayout obj = liftIO $ getObjectPropertyEnum obj "page-layout"--data DocumentPageLayoutPropertyInfo-instance AttrInfo DocumentPageLayoutPropertyInfo where-    type AttrAllowedOps DocumentPageLayoutPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint DocumentPageLayoutPropertyInfo = (~) ()-    type AttrBaseTypeConstraint DocumentPageLayoutPropertyInfo = DocumentK-    type AttrGetType DocumentPageLayoutPropertyInfo = PageLayout-    type AttrLabel DocumentPageLayoutPropertyInfo = "page-layout"-    attrGet _ = getDocumentPageLayout-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "page-mode"-   -- Type: TInterface "Poppler" "PageMode"-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getDocumentPageMode :: (MonadIO m, DocumentK o) => o -> m PageMode-getDocumentPageMode obj = liftIO $ getObjectPropertyEnum obj "page-mode"--data DocumentPageModePropertyInfo-instance AttrInfo DocumentPageModePropertyInfo where-    type AttrAllowedOps DocumentPageModePropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint DocumentPageModePropertyInfo = (~) ()-    type AttrBaseTypeConstraint DocumentPageModePropertyInfo = DocumentK-    type AttrGetType DocumentPageModePropertyInfo = PageMode-    type AttrLabel DocumentPageModePropertyInfo = "page-mode"-    attrGet _ = getDocumentPageMode-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "permissions"-   -- Type: TInterface "Poppler" "Permissions"-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getDocumentPermissions :: (MonadIO m, DocumentK o) => o -> m [Permissions]-getDocumentPermissions obj = liftIO $ getObjectPropertyFlags obj "permissions"--data DocumentPermissionsPropertyInfo-instance AttrInfo DocumentPermissionsPropertyInfo where-    type AttrAllowedOps DocumentPermissionsPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint DocumentPermissionsPropertyInfo = (~) ()-    type AttrBaseTypeConstraint DocumentPermissionsPropertyInfo = DocumentK-    type AttrGetType DocumentPermissionsPropertyInfo = [Permissions]-    type AttrLabel DocumentPermissionsPropertyInfo = "permissions"-    attrGet _ = getDocumentPermissions-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "producer"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getDocumentProducer :: (MonadIO m, DocumentK o) => o -> m (Maybe T.Text)-getDocumentProducer obj = liftIO $ getObjectPropertyString obj "producer"--data DocumentProducerPropertyInfo-instance AttrInfo DocumentProducerPropertyInfo where-    type AttrAllowedOps DocumentProducerPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DocumentProducerPropertyInfo = (~) ()-    type AttrBaseTypeConstraint DocumentProducerPropertyInfo = DocumentK-    type AttrGetType DocumentProducerPropertyInfo = (Maybe T.Text)-    type AttrLabel DocumentProducerPropertyInfo = "producer"-    attrGet _ = getDocumentProducer-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "subject"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getDocumentSubject :: (MonadIO m, DocumentK o) => o -> m (Maybe T.Text)-getDocumentSubject obj = liftIO $ getObjectPropertyString obj "subject"--data DocumentSubjectPropertyInfo-instance AttrInfo DocumentSubjectPropertyInfo where-    type AttrAllowedOps DocumentSubjectPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DocumentSubjectPropertyInfo = (~) ()-    type AttrBaseTypeConstraint DocumentSubjectPropertyInfo = DocumentK-    type AttrGetType DocumentSubjectPropertyInfo = (Maybe T.Text)-    type AttrLabel DocumentSubjectPropertyInfo = "subject"-    attrGet _ = getDocumentSubject-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "title"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getDocumentTitle :: (MonadIO m, DocumentK o) => o -> m (Maybe T.Text)-getDocumentTitle obj = liftIO $ getObjectPropertyString obj "title"--data DocumentTitlePropertyInfo-instance AttrInfo DocumentTitlePropertyInfo where-    type AttrAllowedOps DocumentTitlePropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DocumentTitlePropertyInfo = (~) ()-    type AttrBaseTypeConstraint DocumentTitlePropertyInfo = DocumentK-    type AttrGetType DocumentTitlePropertyInfo = (Maybe T.Text)-    type AttrLabel DocumentTitlePropertyInfo = "title"-    attrGet _ = getDocumentTitle-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "viewer-preferences"-   -- Type: TInterface "Poppler" "ViewerPreferences"-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getDocumentViewerPreferences :: (MonadIO m, DocumentK o) => o -> m [ViewerPreferences]-getDocumentViewerPreferences obj = liftIO $ getObjectPropertyFlags obj "viewer-preferences"--data DocumentViewerPreferencesPropertyInfo-instance AttrInfo DocumentViewerPreferencesPropertyInfo where-    type AttrAllowedOps DocumentViewerPreferencesPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint DocumentViewerPreferencesPropertyInfo = (~) ()-    type AttrBaseTypeConstraint DocumentViewerPreferencesPropertyInfo = DocumentK-    type AttrGetType DocumentViewerPreferencesPropertyInfo = [ViewerPreferences]-    type AttrLabel DocumentViewerPreferencesPropertyInfo = "viewer-preferences"-    attrGet _ = getDocumentViewerPreferences-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined--type instance AttributeList Document = DocumentAttributeList-type DocumentAttributeList = ('[ '("author", DocumentAuthorPropertyInfo), '("creationDate", DocumentCreationDatePropertyInfo), '("creator", DocumentCreatorPropertyInfo), '("format", DocumentFormatPropertyInfo), '("formatMajor", DocumentFormatMajorPropertyInfo), '("formatMinor", DocumentFormatMinorPropertyInfo), '("keywords", DocumentKeywordsPropertyInfo), '("linearized", DocumentLinearizedPropertyInfo), '("metadata", DocumentMetadataPropertyInfo), '("modDate", DocumentModDatePropertyInfo), '("pageLayout", DocumentPageLayoutPropertyInfo), '("pageMode", DocumentPageModePropertyInfo), '("permissions", DocumentPermissionsPropertyInfo), '("producer", DocumentProducerPropertyInfo), '("subject", DocumentSubjectPropertyInfo), '("title", DocumentTitlePropertyInfo), '("viewerPreferences", DocumentViewerPreferencesPropertyInfo)] :: [(Symbol, *)])--documentAuthor :: AttrLabelProxy "author"-documentAuthor = AttrLabelProxy--documentCreationDate :: AttrLabelProxy "creationDate"-documentCreationDate = AttrLabelProxy--documentCreator :: AttrLabelProxy "creator"-documentCreator = AttrLabelProxy--documentFormat :: AttrLabelProxy "format"-documentFormat = AttrLabelProxy--documentFormatMajor :: AttrLabelProxy "formatMajor"-documentFormatMajor = AttrLabelProxy--documentFormatMinor :: AttrLabelProxy "formatMinor"-documentFormatMinor = AttrLabelProxy--documentKeywords :: AttrLabelProxy "keywords"-documentKeywords = AttrLabelProxy--documentLinearized :: AttrLabelProxy "linearized"-documentLinearized = AttrLabelProxy--documentMetadata :: AttrLabelProxy "metadata"-documentMetadata = AttrLabelProxy--documentModDate :: AttrLabelProxy "modDate"-documentModDate = AttrLabelProxy--documentPageLayout :: AttrLabelProxy "pageLayout"-documentPageLayout = AttrLabelProxy--documentPageMode :: AttrLabelProxy "pageMode"-documentPageMode = AttrLabelProxy--documentPermissions :: AttrLabelProxy "permissions"-documentPermissions = AttrLabelProxy--documentProducer :: AttrLabelProxy "producer"-documentProducer = AttrLabelProxy--documentSubject :: AttrLabelProxy "subject"-documentSubject = AttrLabelProxy--documentTitle :: AttrLabelProxy "title"-documentTitle = AttrLabelProxy--documentViewerPreferences :: AttrLabelProxy "viewerPreferences"-documentViewerPreferences = AttrLabelProxy--type instance SignalList Document = DocumentSignalList-type DocumentSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method Document::new_from_data--- method type : Constructor--- Args : [Arg {argCName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "Document")--- throws : True--- Skip return : False--foreign import ccall "poppler_document_new_from_data" poppler_document_new_from_data :: -    CString ->                              -- data : TBasicType TUTF8-    Int32 ->                                -- length : TBasicType TInt-    CString ->                              -- password : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Document)---documentNewFromData ::-    (MonadIO m) =>-    T.Text                                  -- data_-    -> Int32                                -- length_-    -> Maybe (T.Text)                       -- password-    -> m Document                           -- result-documentNewFromData data_ length_ password = liftIO $ do-    data_' <- textToCString data_-    maybePassword <- case password of-        Nothing -> return nullPtr-        Just jPassword -> do-            jPassword' <- textToCString jPassword-            return jPassword'-    onException (do-        result <- propagateGError $ poppler_document_new_from_data data_' length_ maybePassword-        checkUnexpectedReturnNULL "poppler_document_new_from_data" result-        result' <- (wrapObject Document) result-        freeMem data_'-        freeMem maybePassword-        return result'-     ) (do-        freeMem data_'-        freeMem maybePassword-     )---- method Document::new_from_file--- method type : Constructor--- Args : [Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "Document")--- throws : True--- Skip return : False--foreign import ccall "poppler_document_new_from_file" poppler_document_new_from_file :: -    CString ->                              -- uri : TBasicType TUTF8-    CString ->                              -- password : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Document)---documentNewFromFile ::-    (MonadIO m) =>-    T.Text                                  -- uri-    -> Maybe (T.Text)                       -- password-    -> m Document                           -- result-documentNewFromFile uri password = liftIO $ do-    uri' <- textToCString uri-    maybePassword <- case password of-        Nothing -> return nullPtr-        Just jPassword -> do-            jPassword' <- textToCString jPassword-            return jPassword'-    onException (do-        result <- propagateGError $ poppler_document_new_from_file uri' maybePassword-        checkUnexpectedReturnNULL "poppler_document_new_from_file" result-        result' <- (wrapObject Document) result-        freeMem uri'-        freeMem maybePassword-        return result'-     ) (do-        freeMem uri'-        freeMem maybePassword-     )---- method Document::new_from_gfile--- method type : Constructor--- Args : [Arg {argCName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "Document")--- throws : True--- Skip return : False--foreign import ccall "poppler_document_new_from_gfile" poppler_document_new_from_gfile :: -    Ptr Gio.File ->                         -- file : TInterface "Gio" "File"-    CString ->                              -- password : TBasicType TUTF8-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Document)---documentNewFromGfile ::-    (MonadIO m, Gio.FileK a, Gio.CancellableK b) =>-    a                                       -- file-    -> Maybe (T.Text)                       -- password-    -> Maybe (b)                            -- cancellable-    -> m Document                           -- result-documentNewFromGfile file password cancellable = liftIO $ do-    let file' = unsafeManagedPtrCastPtr file-    maybePassword <- case password of-        Nothing -> return nullPtr-        Just jPassword -> do-            jPassword' <- textToCString jPassword-            return jPassword'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ poppler_document_new_from_gfile file' maybePassword maybeCancellable-        checkUnexpectedReturnNULL "poppler_document_new_from_gfile" result-        result' <- (wrapObject Document) result-        touchManagedPtr file-        whenJust cancellable touchManagedPtr-        freeMem maybePassword-        return result'-     ) (do-        freeMem maybePassword-     )---- method Document::new_from_stream--- method type : Constructor--- Args : [Arg {argCName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "Document")--- throws : True--- Skip return : False--foreign import ccall "poppler_document_new_from_stream" poppler_document_new_from_stream :: -    Ptr Gio.InputStream ->                  -- stream : TInterface "Gio" "InputStream"-    Int64 ->                                -- length : TBasicType TInt64-    CString ->                              -- password : TBasicType TUTF8-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Document)---documentNewFromStream ::-    (MonadIO m, Gio.InputStreamK a, Gio.CancellableK b) =>-    a                                       -- stream-    -> Int64                                -- length_-    -> Maybe (T.Text)                       -- password-    -> Maybe (b)                            -- cancellable-    -> m Document                           -- result-documentNewFromStream stream length_ password cancellable = liftIO $ do-    let stream' = unsafeManagedPtrCastPtr stream-    maybePassword <- case password of-        Nothing -> return nullPtr-        Just jPassword -> do-            jPassword' <- textToCString jPassword-            return jPassword'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ poppler_document_new_from_stream stream' length_ maybePassword maybeCancellable-        checkUnexpectedReturnNULL "poppler_document_new_from_stream" result-        result' <- (wrapObject Document) result-        touchManagedPtr stream-        whenJust cancellable touchManagedPtr-        freeMem maybePassword-        return result'-     ) (do-        freeMem maybePassword-     )---- method Document::find_dest--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "link_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "Dest")--- throws : False--- Skip return : False--foreign import ccall "poppler_document_find_dest" poppler_document_find_dest :: -    Ptr Document ->                         -- _obj : TInterface "Poppler" "Document"-    CString ->                              -- link_name : TBasicType TUTF8-    IO (Ptr Dest)---documentFindDest ::-    (MonadIO m, DocumentK a) =>-    a                                       -- _obj-    -> T.Text                               -- linkName-    -> m Dest                               -- result-documentFindDest _obj linkName = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    linkName' <- textToCString linkName-    result <- poppler_document_find_dest _obj' linkName'-    checkUnexpectedReturnNULL "poppler_document_find_dest" result-    result' <- (wrapBoxed Dest) result-    touchManagedPtr _obj-    freeMem linkName'-    return result'--data DocumentFindDestMethodInfo-instance (signature ~ (T.Text -> m Dest), MonadIO m, DocumentK a) => MethodInfo DocumentFindDestMethodInfo a signature where-    overloadedMethod _ = documentFindDest---- method Document::get_attachments--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "Poppler" "Attachment"))--- throws : False--- Skip return : False--foreign import ccall "poppler_document_get_attachments" poppler_document_get_attachments :: -    Ptr Document ->                         -- _obj : TInterface "Poppler" "Document"-    IO (Ptr (GList (Ptr Attachment)))---documentGetAttachments ::-    (MonadIO m, DocumentK a) =>-    a                                       -- _obj-    -> m [Attachment]                       -- result-documentGetAttachments _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_document_get_attachments _obj'-    result' <- unpackGList result-    result'' <- mapM (wrapObject Attachment) result'-    g_list_free result-    touchManagedPtr _obj-    return result''--data DocumentGetAttachmentsMethodInfo-instance (signature ~ (m [Attachment]), MonadIO m, DocumentK a) => MethodInfo DocumentGetAttachmentsMethodInfo a signature where-    overloadedMethod _ = documentGetAttachments---- method Document::get_author--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "poppler_document_get_author" poppler_document_get_author :: -    Ptr Document ->                         -- _obj : TInterface "Poppler" "Document"-    IO CString---documentGetAuthor ::-    (MonadIO m, DocumentK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-documentGetAuthor _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_document_get_author _obj'-    checkUnexpectedReturnNULL "poppler_document_get_author" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data DocumentGetAuthorMethodInfo-instance (signature ~ (m T.Text), MonadIO m, DocumentK a) => MethodInfo DocumentGetAuthorMethodInfo a signature where-    overloadedMethod _ = documentGetAuthor---- method Document::get_creation_date--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TLong)--- throws : False--- Skip return : False--foreign import ccall "poppler_document_get_creation_date" poppler_document_get_creation_date :: -    Ptr Document ->                         -- _obj : TInterface "Poppler" "Document"-    IO CLong---documentGetCreationDate ::-    (MonadIO m, DocumentK a) =>-    a                                       -- _obj-    -> m CLong                              -- result-documentGetCreationDate _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_document_get_creation_date _obj'-    touchManagedPtr _obj-    return result--data DocumentGetCreationDateMethodInfo-instance (signature ~ (m CLong), MonadIO m, DocumentK a) => MethodInfo DocumentGetCreationDateMethodInfo a signature where-    overloadedMethod _ = documentGetCreationDate---- method Document::get_creator--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "poppler_document_get_creator" poppler_document_get_creator :: -    Ptr Document ->                         -- _obj : TInterface "Poppler" "Document"-    IO CString---documentGetCreator ::-    (MonadIO m, DocumentK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-documentGetCreator _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_document_get_creator _obj'-    checkUnexpectedReturnNULL "poppler_document_get_creator" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data DocumentGetCreatorMethodInfo-instance (signature ~ (m T.Text), MonadIO m, DocumentK a) => MethodInfo DocumentGetCreatorMethodInfo a signature where-    overloadedMethod _ = documentGetCreator---- method Document::get_form_field--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "FormField")--- throws : False--- Skip return : False--foreign import ccall "poppler_document_get_form_field" poppler_document_get_form_field :: -    Ptr Document ->                         -- _obj : TInterface "Poppler" "Document"-    Int32 ->                                -- id : TBasicType TInt-    IO (Ptr FormField)---documentGetFormField ::-    (MonadIO m, DocumentK a) =>-    a                                       -- _obj-    -> Int32                                -- id-    -> m FormField                          -- result-documentGetFormField _obj id = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_document_get_form_field _obj' id-    checkUnexpectedReturnNULL "poppler_document_get_form_field" result-    result' <- (wrapObject FormField) result-    touchManagedPtr _obj-    return result'--data DocumentGetFormFieldMethodInfo-instance (signature ~ (Int32 -> m FormField), MonadIO m, DocumentK a) => MethodInfo DocumentGetFormFieldMethodInfo a signature where-    overloadedMethod _ = documentGetFormField---- method Document::get_id--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "permanent_id", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "update_id", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "poppler_document_get_id" poppler_document_get_id :: -    Ptr Document ->                         -- _obj : TInterface "Poppler" "Document"-    Ptr CString ->                          -- permanent_id : TBasicType TUTF8-    Ptr CString ->                          -- update_id : TBasicType TUTF8-    IO CInt---documentGetId ::-    (MonadIO m, DocumentK a) =>-    a                                       -- _obj-    -> m (Bool,T.Text,T.Text)               -- result-documentGetId _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    permanentId <- allocMem :: IO (Ptr CString)-    updateId <- allocMem :: IO (Ptr CString)-    result <- poppler_document_get_id _obj' permanentId updateId-    let result' = (/= 0) result-    permanentId' <- peek permanentId-    permanentId'' <- cstringToText permanentId'-    freeMem permanentId'-    updateId' <- peek updateId-    updateId'' <- cstringToText updateId'-    freeMem updateId'-    touchManagedPtr _obj-    freeMem permanentId-    freeMem updateId-    return (result', permanentId'', updateId'')--data DocumentGetIdMethodInfo-instance (signature ~ (m (Bool,T.Text,T.Text)), MonadIO m, DocumentK a) => MethodInfo DocumentGetIdMethodInfo a signature where-    overloadedMethod _ = documentGetId---- method Document::get_keywords--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "poppler_document_get_keywords" poppler_document_get_keywords :: -    Ptr Document ->                         -- _obj : TInterface "Poppler" "Document"-    IO CString---documentGetKeywords ::-    (MonadIO m, DocumentK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-documentGetKeywords _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_document_get_keywords _obj'-    checkUnexpectedReturnNULL "poppler_document_get_keywords" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data DocumentGetKeywordsMethodInfo-instance (signature ~ (m T.Text), MonadIO m, DocumentK a) => MethodInfo DocumentGetKeywordsMethodInfo a signature where-    overloadedMethod _ = documentGetKeywords---- method Document::get_metadata--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "poppler_document_get_metadata" poppler_document_get_metadata :: -    Ptr Document ->                         -- _obj : TInterface "Poppler" "Document"-    IO CString---documentGetMetadata ::-    (MonadIO m, DocumentK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-documentGetMetadata _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_document_get_metadata _obj'-    checkUnexpectedReturnNULL "poppler_document_get_metadata" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data DocumentGetMetadataMethodInfo-instance (signature ~ (m T.Text), MonadIO m, DocumentK a) => MethodInfo DocumentGetMetadataMethodInfo a signature where-    overloadedMethod _ = documentGetMetadata---- method Document::get_modification_date--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TLong)--- throws : False--- Skip return : False--foreign import ccall "poppler_document_get_modification_date" poppler_document_get_modification_date :: -    Ptr Document ->                         -- _obj : TInterface "Poppler" "Document"-    IO CLong---documentGetModificationDate ::-    (MonadIO m, DocumentK a) =>-    a                                       -- _obj-    -> m CLong                              -- result-documentGetModificationDate _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_document_get_modification_date _obj'-    touchManagedPtr _obj-    return result--data DocumentGetModificationDateMethodInfo-instance (signature ~ (m CLong), MonadIO m, DocumentK a) => MethodInfo DocumentGetModificationDateMethodInfo a signature where-    overloadedMethod _ = documentGetModificationDate---- method Document::get_n_attachments--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "poppler_document_get_n_attachments" poppler_document_get_n_attachments :: -    Ptr Document ->                         -- _obj : TInterface "Poppler" "Document"-    IO Word32---documentGetNAttachments ::-    (MonadIO m, DocumentK a) =>-    a                                       -- _obj-    -> m Word32                             -- result-documentGetNAttachments _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_document_get_n_attachments _obj'-    touchManagedPtr _obj-    return result--data DocumentGetNAttachmentsMethodInfo-instance (signature ~ (m Word32), MonadIO m, DocumentK a) => MethodInfo DocumentGetNAttachmentsMethodInfo a signature where-    overloadedMethod _ = documentGetNAttachments---- method Document::get_n_pages--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "poppler_document_get_n_pages" poppler_document_get_n_pages :: -    Ptr Document ->                         -- _obj : TInterface "Poppler" "Document"-    IO Int32---documentGetNPages ::-    (MonadIO m, DocumentK a) =>-    a                                       -- _obj-    -> m Int32                              -- result-documentGetNPages _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_document_get_n_pages _obj'-    touchManagedPtr _obj-    return result--data DocumentGetNPagesMethodInfo-instance (signature ~ (m Int32), MonadIO m, DocumentK a) => MethodInfo DocumentGetNPagesMethodInfo a signature where-    overloadedMethod _ = documentGetNPages---- method Document::get_page--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "Page")--- throws : False--- Skip return : False--foreign import ccall "poppler_document_get_page" poppler_document_get_page :: -    Ptr Document ->                         -- _obj : TInterface "Poppler" "Document"-    Int32 ->                                -- index : TBasicType TInt-    IO (Ptr Page)---documentGetPage ::-    (MonadIO m, DocumentK a) =>-    a                                       -- _obj-    -> Int32                                -- index-    -> m Page                               -- result-documentGetPage _obj index = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_document_get_page _obj' index-    checkUnexpectedReturnNULL "poppler_document_get_page" result-    result' <- (wrapObject Page) result-    touchManagedPtr _obj-    return result'--data DocumentGetPageMethodInfo-instance (signature ~ (Int32 -> m Page), MonadIO m, DocumentK a) => MethodInfo DocumentGetPageMethodInfo a signature where-    overloadedMethod _ = documentGetPage---- method Document::get_page_by_label--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "Page")--- throws : False--- Skip return : False--foreign import ccall "poppler_document_get_page_by_label" poppler_document_get_page_by_label :: -    Ptr Document ->                         -- _obj : TInterface "Poppler" "Document"-    CString ->                              -- label : TBasicType TUTF8-    IO (Ptr Page)---documentGetPageByLabel ::-    (MonadIO m, DocumentK a) =>-    a                                       -- _obj-    -> T.Text                               -- label-    -> m Page                               -- result-documentGetPageByLabel _obj label = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    label' <- textToCString label-    result <- poppler_document_get_page_by_label _obj' label'-    checkUnexpectedReturnNULL "poppler_document_get_page_by_label" result-    result' <- (wrapObject Page) result-    touchManagedPtr _obj-    freeMem label'-    return result'--data DocumentGetPageByLabelMethodInfo-instance (signature ~ (T.Text -> m Page), MonadIO m, DocumentK a) => MethodInfo DocumentGetPageByLabelMethodInfo a signature where-    overloadedMethod _ = documentGetPageByLabel---- method Document::get_page_layout--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "PageLayout")--- throws : False--- Skip return : False--foreign import ccall "poppler_document_get_page_layout" poppler_document_get_page_layout :: -    Ptr Document ->                         -- _obj : TInterface "Poppler" "Document"-    IO CUInt---documentGetPageLayout ::-    (MonadIO m, DocumentK a) =>-    a                                       -- _obj-    -> m PageLayout                         -- result-documentGetPageLayout _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_document_get_page_layout _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data DocumentGetPageLayoutMethodInfo-instance (signature ~ (m PageLayout), MonadIO m, DocumentK a) => MethodInfo DocumentGetPageLayoutMethodInfo a signature where-    overloadedMethod _ = documentGetPageLayout---- method Document::get_page_mode--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "PageMode")--- throws : False--- Skip return : False--foreign import ccall "poppler_document_get_page_mode" poppler_document_get_page_mode :: -    Ptr Document ->                         -- _obj : TInterface "Poppler" "Document"-    IO CUInt---documentGetPageMode ::-    (MonadIO m, DocumentK a) =>-    a                                       -- _obj-    -> m PageMode                           -- result-documentGetPageMode _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_document_get_page_mode _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data DocumentGetPageModeMethodInfo-instance (signature ~ (m PageMode), MonadIO m, DocumentK a) => MethodInfo DocumentGetPageModeMethodInfo a signature where-    overloadedMethod _ = documentGetPageMode---- method Document::get_pdf_version--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "major_version", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "minor_version", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_document_get_pdf_version" poppler_document_get_pdf_version :: -    Ptr Document ->                         -- _obj : TInterface "Poppler" "Document"-    Ptr Word32 ->                           -- major_version : TBasicType TUInt-    Ptr Word32 ->                           -- minor_version : TBasicType TUInt-    IO ()---documentGetPdfVersion ::-    (MonadIO m, DocumentK a) =>-    a                                       -- _obj-    -> m (Word32,Word32)                    -- result-documentGetPdfVersion _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    majorVersion <- allocMem :: IO (Ptr Word32)-    minorVersion <- allocMem :: IO (Ptr Word32)-    poppler_document_get_pdf_version _obj' majorVersion minorVersion-    majorVersion' <- peek majorVersion-    minorVersion' <- peek minorVersion-    touchManagedPtr _obj-    freeMem majorVersion-    freeMem minorVersion-    return (majorVersion', minorVersion')--data DocumentGetPdfVersionMethodInfo-instance (signature ~ (m (Word32,Word32)), MonadIO m, DocumentK a) => MethodInfo DocumentGetPdfVersionMethodInfo a signature where-    overloadedMethod _ = documentGetPdfVersion---- method Document::get_pdf_version_string--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "poppler_document_get_pdf_version_string" poppler_document_get_pdf_version_string :: -    Ptr Document ->                         -- _obj : TInterface "Poppler" "Document"-    IO CString---documentGetPdfVersionString ::-    (MonadIO m, DocumentK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-documentGetPdfVersionString _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_document_get_pdf_version_string _obj'-    checkUnexpectedReturnNULL "poppler_document_get_pdf_version_string" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data DocumentGetPdfVersionStringMethodInfo-instance (signature ~ (m T.Text), MonadIO m, DocumentK a) => MethodInfo DocumentGetPdfVersionStringMethodInfo a signature where-    overloadedMethod _ = documentGetPdfVersionString---- method Document::get_permissions--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "Permissions")--- throws : False--- Skip return : False--foreign import ccall "poppler_document_get_permissions" poppler_document_get_permissions :: -    Ptr Document ->                         -- _obj : TInterface "Poppler" "Document"-    IO CUInt---documentGetPermissions ::-    (MonadIO m, DocumentK a) =>-    a                                       -- _obj-    -> m [Permissions]                      -- result-documentGetPermissions _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_document_get_permissions _obj'-    let result' = wordToGFlags result-    touchManagedPtr _obj-    return result'--data DocumentGetPermissionsMethodInfo-instance (signature ~ (m [Permissions]), MonadIO m, DocumentK a) => MethodInfo DocumentGetPermissionsMethodInfo a signature where-    overloadedMethod _ = documentGetPermissions---- method Document::get_producer--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "poppler_document_get_producer" poppler_document_get_producer :: -    Ptr Document ->                         -- _obj : TInterface "Poppler" "Document"-    IO CString---documentGetProducer ::-    (MonadIO m, DocumentK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-documentGetProducer _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_document_get_producer _obj'-    checkUnexpectedReturnNULL "poppler_document_get_producer" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data DocumentGetProducerMethodInfo-instance (signature ~ (m T.Text), MonadIO m, DocumentK a) => MethodInfo DocumentGetProducerMethodInfo a signature where-    overloadedMethod _ = documentGetProducer---- method Document::get_subject--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "poppler_document_get_subject" poppler_document_get_subject :: -    Ptr Document ->                         -- _obj : TInterface "Poppler" "Document"-    IO CString---documentGetSubject ::-    (MonadIO m, DocumentK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-documentGetSubject _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_document_get_subject _obj'-    checkUnexpectedReturnNULL "poppler_document_get_subject" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data DocumentGetSubjectMethodInfo-instance (signature ~ (m T.Text), MonadIO m, DocumentK a) => MethodInfo DocumentGetSubjectMethodInfo a signature where-    overloadedMethod _ = documentGetSubject---- method Document::get_title--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "poppler_document_get_title" poppler_document_get_title :: -    Ptr Document ->                         -- _obj : TInterface "Poppler" "Document"-    IO CString---documentGetTitle ::-    (MonadIO m, DocumentK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-documentGetTitle _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_document_get_title _obj'-    checkUnexpectedReturnNULL "poppler_document_get_title" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data DocumentGetTitleMethodInfo-instance (signature ~ (m T.Text), MonadIO m, DocumentK a) => MethodInfo DocumentGetTitleMethodInfo a signature where-    overloadedMethod _ = documentGetTitle---- method Document::has_attachments--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "poppler_document_has_attachments" poppler_document_has_attachments :: -    Ptr Document ->                         -- _obj : TInterface "Poppler" "Document"-    IO CInt---documentHasAttachments ::-    (MonadIO m, DocumentK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-documentHasAttachments _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_document_has_attachments _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data DocumentHasAttachmentsMethodInfo-instance (signature ~ (m Bool), MonadIO m, DocumentK a) => MethodInfo DocumentHasAttachmentsMethodInfo a signature where-    overloadedMethod _ = documentHasAttachments---- method Document::is_linearized--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "poppler_document_is_linearized" poppler_document_is_linearized :: -    Ptr Document ->                         -- _obj : TInterface "Poppler" "Document"-    IO CInt---documentIsLinearized ::-    (MonadIO m, DocumentK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-documentIsLinearized _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_document_is_linearized _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data DocumentIsLinearizedMethodInfo-instance (signature ~ (m Bool), MonadIO m, DocumentK a) => MethodInfo DocumentIsLinearizedMethodInfo a signature where-    overloadedMethod _ = documentIsLinearized---- method Document::save--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "poppler_document_save" poppler_document_save :: -    Ptr Document ->                         -- _obj : TInterface "Poppler" "Document"-    CString ->                              -- uri : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt---documentSave ::-    (MonadIO m, DocumentK a) =>-    a                                       -- _obj-    -> T.Text                               -- uri-    -> m ()                                 -- result-documentSave _obj uri = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    uri' <- textToCString uri-    onException (do-        _ <- propagateGError $ poppler_document_save _obj' uri'-        touchManagedPtr _obj-        freeMem uri'-        return ()-     ) (do-        freeMem uri'-     )--data DocumentSaveMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, DocumentK a) => MethodInfo DocumentSaveMethodInfo a signature where-    overloadedMethod _ = documentSave---- method Document::save_a_copy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "poppler_document_save_a_copy" poppler_document_save_a_copy :: -    Ptr Document ->                         -- _obj : TInterface "Poppler" "Document"-    CString ->                              -- uri : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt---documentSaveACopy ::-    (MonadIO m, DocumentK a) =>-    a                                       -- _obj-    -> T.Text                               -- uri-    -> m ()                                 -- result-documentSaveACopy _obj uri = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    uri' <- textToCString uri-    onException (do-        _ <- propagateGError $ poppler_document_save_a_copy _obj' uri'-        touchManagedPtr _obj-        freeMem uri'-        return ()-     ) (do-        freeMem uri'-     )--data DocumentSaveACopyMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, DocumentK a) => MethodInfo DocumentSaveACopyMethodInfo a signature where-    overloadedMethod _ = documentSaveACopy--
− GI/Poppler/Objects/Document.hs-boot 
@@ -1,56 +0,0 @@-module GI.Poppler.Objects.Document where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Document = Document (ForeignPtr Document)-instance GObject Document where-class GObject o => DocumentK o-instance (GObject o, IsDescendantOf Document o) => DocumentK o-data DocumentAuthorPropertyInfo-data DocumentCreationDatePropertyInfo-data DocumentCreatorPropertyInfo-data DocumentFormatPropertyInfo-data DocumentFormatMajorPropertyInfo-data DocumentFormatMinorPropertyInfo-data DocumentKeywordsPropertyInfo-data DocumentLinearizedPropertyInfo-data DocumentMetadataPropertyInfo-data DocumentModDatePropertyInfo-data DocumentPageLayoutPropertyInfo-data DocumentPageModePropertyInfo-data DocumentPermissionsPropertyInfo-data DocumentProducerPropertyInfo-data DocumentSubjectPropertyInfo-data DocumentTitlePropertyInfo-data DocumentViewerPreferencesPropertyInfo-data DocumentFindDestMethodInfo-data DocumentGetAttachmentsMethodInfo-data DocumentGetAuthorMethodInfo-data DocumentGetCreationDateMethodInfo-data DocumentGetCreatorMethodInfo-data DocumentGetFormFieldMethodInfo-data DocumentGetIdMethodInfo-data DocumentGetKeywordsMethodInfo-data DocumentGetMetadataMethodInfo-data DocumentGetModificationDateMethodInfo-data DocumentGetNAttachmentsMethodInfo-data DocumentGetNPagesMethodInfo-data DocumentGetPageMethodInfo-data DocumentGetPageByLabelMethodInfo-data DocumentGetPageLayoutMethodInfo-data DocumentGetPageModeMethodInfo-data DocumentGetPdfVersionMethodInfo-data DocumentGetPdfVersionStringMethodInfo-data DocumentGetPermissionsMethodInfo-data DocumentGetProducerMethodInfo-data DocumentGetSubjectMethodInfo-data DocumentGetTitleMethodInfo-data DocumentHasAttachmentsMethodInfo-data DocumentIsLinearizedMethodInfo-data DocumentSaveMethodInfo-data DocumentSaveACopyMethodInfo
− GI/Poppler/Objects/FontInfo.hs 
@@ -1,198 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Poppler.Objects.FontInfo-    ( ---- * Exported types-    FontInfo(..)                            ,-    FontInfoK                               ,-    toFontInfo                              ,-    noFontInfo                              ,--- -- * Methods--- ** fontInfoFree-    FontInfoFreeMethodInfo                  ,-    fontInfoFree                            ,----- ** fontInfoNew-    fontInfoNew                             ,----- ** fontInfoScan-    FontInfoScanMethodInfo                  ,-    fontInfoScan                            ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks-import qualified GI.GObject as GObject--newtype FontInfo = FontInfo (ForeignPtr FontInfo)-foreign import ccall "poppler_font_info_get_type"-    c_poppler_font_info_get_type :: IO GType--type instance ParentTypes FontInfo = FontInfoParentTypes-type FontInfoParentTypes = '[GObject.Object]--instance GObject FontInfo where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_poppler_font_info_get_type-    --class GObject o => FontInfoK o-instance (GObject o, IsDescendantOf FontInfo o) => FontInfoK o--toFontInfo :: FontInfoK o => o -> IO FontInfo-toFontInfo = unsafeCastTo FontInfo--noFontInfo :: Maybe FontInfo-noFontInfo = Nothing--type family ResolveFontInfoMethod (t :: Symbol) (o :: *) :: * where-    ResolveFontInfoMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveFontInfoMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveFontInfoMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveFontInfoMethod "free" o = FontInfoFreeMethodInfo-    ResolveFontInfoMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveFontInfoMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveFontInfoMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveFontInfoMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveFontInfoMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveFontInfoMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveFontInfoMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveFontInfoMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveFontInfoMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveFontInfoMethod "scan" o = FontInfoScanMethodInfo-    ResolveFontInfoMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveFontInfoMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveFontInfoMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveFontInfoMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveFontInfoMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveFontInfoMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveFontInfoMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveFontInfoMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveFontInfoMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveFontInfoMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveFontInfoMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveFontInfoMethod t FontInfo, MethodInfo info FontInfo p) => IsLabelProxy t (FontInfo -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveFontInfoMethod t FontInfo, MethodInfo info FontInfo p) => IsLabel t (FontInfo -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList FontInfo = FontInfoAttributeList-type FontInfoAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList FontInfo = FontInfoSignalList-type FontInfoSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method FontInfo::new--- method type : Constructor--- Args : [Arg {argCName = "document", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "FontInfo")--- throws : False--- Skip return : False--foreign import ccall "poppler_font_info_new" poppler_font_info_new :: -    Ptr Document ->                         -- document : TInterface "Poppler" "Document"-    IO (Ptr FontInfo)---fontInfoNew ::-    (MonadIO m, DocumentK a) =>-    a                                       -- document-    -> m FontInfo                           -- result-fontInfoNew document = liftIO $ do-    let document' = unsafeManagedPtrCastPtr document-    result <- poppler_font_info_new document'-    checkUnexpectedReturnNULL "poppler_font_info_new" result-    result' <- (wrapObject FontInfo) result-    touchManagedPtr document-    return result'---- method FontInfo::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FontInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_font_info_free" poppler_font_info_free :: -    Ptr FontInfo ->                         -- _obj : TInterface "Poppler" "FontInfo"-    IO ()---fontInfoFree ::-    (MonadIO m, FontInfoK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-fontInfoFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    poppler_font_info_free _obj'-    touchManagedPtr _obj-    return ()--data FontInfoFreeMethodInfo-instance (signature ~ (m ()), MonadIO m, FontInfoK a) => MethodInfo FontInfoFreeMethodInfo a signature where-    overloadedMethod _ = fontInfoFree---- method FontInfo::scan--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FontInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_pages", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Poppler" "FontsIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "poppler_font_info_scan" poppler_font_info_scan :: -    Ptr FontInfo ->                         -- _obj : TInterface "Poppler" "FontInfo"-    Int32 ->                                -- n_pages : TBasicType TInt-    Ptr (Ptr FontsIter) ->                  -- iter : TInterface "Poppler" "FontsIter"-    IO CInt---fontInfoScan ::-    (MonadIO m, FontInfoK a) =>-    a                                       -- _obj-    -> Int32                                -- nPages-    -> m (Bool,FontsIter)                   -- result-fontInfoScan _obj nPages = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    iter <- allocMem :: IO (Ptr (Ptr FontsIter))-    result <- poppler_font_info_scan _obj' nPages iter-    let result' = (/= 0) result-    iter' <- peek iter-    iter'' <- (wrapBoxed FontsIter) iter'-    touchManagedPtr _obj-    freeMem iter-    return (result', iter'')--data FontInfoScanMethodInfo-instance (signature ~ (Int32 -> m (Bool,FontsIter)), MonadIO m, FontInfoK a) => MethodInfo FontInfoScanMethodInfo a signature where-    overloadedMethod _ = fontInfoScan--
− GI/Poppler/Objects/FontInfo.hs-boot 
@@ -1,15 +0,0 @@-module GI.Poppler.Objects.FontInfo where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype FontInfo = FontInfo (ForeignPtr FontInfo)-instance GObject FontInfo where-class GObject o => FontInfoK o-instance (GObject o, IsDescendantOf FontInfo o) => FontInfoK o-data FontInfoFreeMethodInfo-data FontInfoScanMethodInfo
− GI/Poppler/Objects/FormField.hs 
@@ -1,1206 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Poppler.Objects.FormField-    ( ---- * Exported types-    FormField(..)                           ,-    FormFieldK                              ,-    toFormField                             ,-    noFormField                             ,--- -- * Methods--- ** formFieldButtonGetButtonType-    FormFieldButtonGetButtonTypeMethodInfo  ,-    formFieldButtonGetButtonType            ,----- ** formFieldButtonGetState-    FormFieldButtonGetStateMethodInfo       ,-    formFieldButtonGetState                 ,----- ** formFieldButtonSetState-    FormFieldButtonSetStateMethodInfo       ,-    formFieldButtonSetState                 ,----- ** formFieldChoiceCanSelectMultiple-    FormFieldChoiceCanSelectMultipleMethodInfo,-    formFieldChoiceCanSelectMultiple        ,----- ** formFieldChoiceCommitOnChange-    FormFieldChoiceCommitOnChangeMethodInfo ,-    formFieldChoiceCommitOnChange           ,----- ** formFieldChoiceDoSpellCheck-    FormFieldChoiceDoSpellCheckMethodInfo   ,-    formFieldChoiceDoSpellCheck             ,----- ** formFieldChoiceGetChoiceType-    FormFieldChoiceGetChoiceTypeMethodInfo  ,-    formFieldChoiceGetChoiceType            ,----- ** formFieldChoiceGetItem-    FormFieldChoiceGetItemMethodInfo        ,-    formFieldChoiceGetItem                  ,----- ** formFieldChoiceGetNItems-    FormFieldChoiceGetNItemsMethodInfo      ,-    formFieldChoiceGetNItems                ,----- ** formFieldChoiceGetText-    FormFieldChoiceGetTextMethodInfo        ,-    formFieldChoiceGetText                  ,----- ** formFieldChoiceIsEditable-    FormFieldChoiceIsEditableMethodInfo     ,-    formFieldChoiceIsEditable               ,----- ** formFieldChoiceIsItemSelected-    FormFieldChoiceIsItemSelectedMethodInfo ,-    formFieldChoiceIsItemSelected           ,----- ** formFieldChoiceSelectItem-    FormFieldChoiceSelectItemMethodInfo     ,-    formFieldChoiceSelectItem               ,----- ** formFieldChoiceSetText-    FormFieldChoiceSetTextMethodInfo        ,-    formFieldChoiceSetText                  ,----- ** formFieldChoiceToggleItem-    FormFieldChoiceToggleItemMethodInfo     ,-    formFieldChoiceToggleItem               ,----- ** formFieldChoiceUnselectAll-    FormFieldChoiceUnselectAllMethodInfo    ,-    formFieldChoiceUnselectAll              ,----- ** formFieldGetAction-    FormFieldGetActionMethodInfo            ,-    formFieldGetAction                      ,----- ** formFieldGetFieldType-    FormFieldGetFieldTypeMethodInfo         ,-    formFieldGetFieldType                   ,----- ** formFieldGetFontSize-    FormFieldGetFontSizeMethodInfo          ,-    formFieldGetFontSize                    ,----- ** formFieldGetId-    FormFieldGetIdMethodInfo                ,-    formFieldGetId                          ,----- ** formFieldGetMappingName-    FormFieldGetMappingNameMethodInfo       ,-    formFieldGetMappingName                 ,----- ** formFieldGetName-    FormFieldGetNameMethodInfo              ,-    formFieldGetName                        ,----- ** formFieldGetPartialName-    FormFieldGetPartialNameMethodInfo       ,-    formFieldGetPartialName                 ,----- ** formFieldIsReadOnly-    FormFieldIsReadOnlyMethodInfo           ,-    formFieldIsReadOnly                     ,----- ** formFieldTextDoScroll-    FormFieldTextDoScrollMethodInfo         ,-    formFieldTextDoScroll                   ,----- ** formFieldTextDoSpellCheck-    FormFieldTextDoSpellCheckMethodInfo     ,-    formFieldTextDoSpellCheck               ,----- ** formFieldTextGetMaxLen-    FormFieldTextGetMaxLenMethodInfo        ,-    formFieldTextGetMaxLen                  ,----- ** formFieldTextGetText-    FormFieldTextGetTextMethodInfo          ,-    formFieldTextGetText                    ,----- ** formFieldTextGetTextType-    FormFieldTextGetTextTypeMethodInfo      ,-    formFieldTextGetTextType                ,----- ** formFieldTextIsPassword-    FormFieldTextIsPasswordMethodInfo       ,-    formFieldTextIsPassword                 ,----- ** formFieldTextIsRichText-    FormFieldTextIsRichTextMethodInfo       ,-    formFieldTextIsRichText                 ,----- ** formFieldTextSetText-    FormFieldTextSetTextMethodInfo          ,-    formFieldTextSetText                    ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks-import qualified GI.GObject as GObject--newtype FormField = FormField (ForeignPtr FormField)-foreign import ccall "poppler_form_field_get_type"-    c_poppler_form_field_get_type :: IO GType--type instance ParentTypes FormField = FormFieldParentTypes-type FormFieldParentTypes = '[GObject.Object]--instance GObject FormField where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_poppler_form_field_get_type-    --class GObject o => FormFieldK o-instance (GObject o, IsDescendantOf FormField o) => FormFieldK o--toFormField :: FormFieldK o => o -> IO FormField-toFormField = unsafeCastTo FormField--noFormField :: Maybe FormField-noFormField = Nothing--type family ResolveFormFieldMethod (t :: Symbol) (o :: *) :: * where-    ResolveFormFieldMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveFormFieldMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveFormFieldMethod "buttonGetButtonType" o = FormFieldButtonGetButtonTypeMethodInfo-    ResolveFormFieldMethod "buttonGetState" o = FormFieldButtonGetStateMethodInfo-    ResolveFormFieldMethod "buttonSetState" o = FormFieldButtonSetStateMethodInfo-    ResolveFormFieldMethod "choiceCanSelectMultiple" o = FormFieldChoiceCanSelectMultipleMethodInfo-    ResolveFormFieldMethod "choiceCommitOnChange" o = FormFieldChoiceCommitOnChangeMethodInfo-    ResolveFormFieldMethod "choiceDoSpellCheck" o = FormFieldChoiceDoSpellCheckMethodInfo-    ResolveFormFieldMethod "choiceGetChoiceType" o = FormFieldChoiceGetChoiceTypeMethodInfo-    ResolveFormFieldMethod "choiceGetItem" o = FormFieldChoiceGetItemMethodInfo-    ResolveFormFieldMethod "choiceGetNItems" o = FormFieldChoiceGetNItemsMethodInfo-    ResolveFormFieldMethod "choiceGetText" o = FormFieldChoiceGetTextMethodInfo-    ResolveFormFieldMethod "choiceIsEditable" o = FormFieldChoiceIsEditableMethodInfo-    ResolveFormFieldMethod "choiceIsItemSelected" o = FormFieldChoiceIsItemSelectedMethodInfo-    ResolveFormFieldMethod "choiceSelectItem" o = FormFieldChoiceSelectItemMethodInfo-    ResolveFormFieldMethod "choiceSetText" o = FormFieldChoiceSetTextMethodInfo-    ResolveFormFieldMethod "choiceToggleItem" o = FormFieldChoiceToggleItemMethodInfo-    ResolveFormFieldMethod "choiceUnselectAll" o = FormFieldChoiceUnselectAllMethodInfo-    ResolveFormFieldMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveFormFieldMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveFormFieldMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveFormFieldMethod "isReadOnly" o = FormFieldIsReadOnlyMethodInfo-    ResolveFormFieldMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveFormFieldMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveFormFieldMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveFormFieldMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveFormFieldMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveFormFieldMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveFormFieldMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveFormFieldMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveFormFieldMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveFormFieldMethod "textDoScroll" o = FormFieldTextDoScrollMethodInfo-    ResolveFormFieldMethod "textDoSpellCheck" o = FormFieldTextDoSpellCheckMethodInfo-    ResolveFormFieldMethod "textGetMaxLen" o = FormFieldTextGetMaxLenMethodInfo-    ResolveFormFieldMethod "textGetText" o = FormFieldTextGetTextMethodInfo-    ResolveFormFieldMethod "textGetTextType" o = FormFieldTextGetTextTypeMethodInfo-    ResolveFormFieldMethod "textIsPassword" o = FormFieldTextIsPasswordMethodInfo-    ResolveFormFieldMethod "textIsRichText" o = FormFieldTextIsRichTextMethodInfo-    ResolveFormFieldMethod "textSetText" o = FormFieldTextSetTextMethodInfo-    ResolveFormFieldMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveFormFieldMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveFormFieldMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveFormFieldMethod "getAction" o = FormFieldGetActionMethodInfo-    ResolveFormFieldMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveFormFieldMethod "getFieldType" o = FormFieldGetFieldTypeMethodInfo-    ResolveFormFieldMethod "getFontSize" o = FormFieldGetFontSizeMethodInfo-    ResolveFormFieldMethod "getId" o = FormFieldGetIdMethodInfo-    ResolveFormFieldMethod "getMappingName" o = FormFieldGetMappingNameMethodInfo-    ResolveFormFieldMethod "getName" o = FormFieldGetNameMethodInfo-    ResolveFormFieldMethod "getPartialName" o = FormFieldGetPartialNameMethodInfo-    ResolveFormFieldMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveFormFieldMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveFormFieldMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveFormFieldMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveFormFieldMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveFormFieldMethod t FormField, MethodInfo info FormField p) => IsLabelProxy t (FormField -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveFormFieldMethod t FormField, MethodInfo info FormField p) => IsLabel t (FormField -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList FormField = FormFieldAttributeList-type FormFieldAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList FormField = FormFieldSignalList-type FormFieldSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method FormField::button_get_button_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "FormButtonType")--- throws : False--- Skip return : False--foreign import ccall "poppler_form_field_button_get_button_type" poppler_form_field_button_get_button_type :: -    Ptr FormField ->                        -- _obj : TInterface "Poppler" "FormField"-    IO CUInt---formFieldButtonGetButtonType ::-    (MonadIO m, FormFieldK a) =>-    a                                       -- _obj-    -> m FormButtonType                     -- result-formFieldButtonGetButtonType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_form_field_button_get_button_type _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data FormFieldButtonGetButtonTypeMethodInfo-instance (signature ~ (m FormButtonType), MonadIO m, FormFieldK a) => MethodInfo FormFieldButtonGetButtonTypeMethodInfo a signature where-    overloadedMethod _ = formFieldButtonGetButtonType---- method FormField::button_get_state--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "poppler_form_field_button_get_state" poppler_form_field_button_get_state :: -    Ptr FormField ->                        -- _obj : TInterface "Poppler" "FormField"-    IO CInt---formFieldButtonGetState ::-    (MonadIO m, FormFieldK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-formFieldButtonGetState _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_form_field_button_get_state _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data FormFieldButtonGetStateMethodInfo-instance (signature ~ (m Bool), MonadIO m, FormFieldK a) => MethodInfo FormFieldButtonGetStateMethodInfo a signature where-    overloadedMethod _ = formFieldButtonGetState---- method FormField::button_set_state--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_form_field_button_set_state" poppler_form_field_button_set_state :: -    Ptr FormField ->                        -- _obj : TInterface "Poppler" "FormField"-    CInt ->                                 -- state : TBasicType TBoolean-    IO ()---formFieldButtonSetState ::-    (MonadIO m, FormFieldK a) =>-    a                                       -- _obj-    -> Bool                                 -- state-    -> m ()                                 -- result-formFieldButtonSetState _obj state = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let state' = (fromIntegral . fromEnum) state-    poppler_form_field_button_set_state _obj' state'-    touchManagedPtr _obj-    return ()--data FormFieldButtonSetStateMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, FormFieldK a) => MethodInfo FormFieldButtonSetStateMethodInfo a signature where-    overloadedMethod _ = formFieldButtonSetState---- method FormField::choice_can_select_multiple--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "poppler_form_field_choice_can_select_multiple" poppler_form_field_choice_can_select_multiple :: -    Ptr FormField ->                        -- _obj : TInterface "Poppler" "FormField"-    IO CInt---formFieldChoiceCanSelectMultiple ::-    (MonadIO m, FormFieldK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-formFieldChoiceCanSelectMultiple _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_form_field_choice_can_select_multiple _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data FormFieldChoiceCanSelectMultipleMethodInfo-instance (signature ~ (m Bool), MonadIO m, FormFieldK a) => MethodInfo FormFieldChoiceCanSelectMultipleMethodInfo a signature where-    overloadedMethod _ = formFieldChoiceCanSelectMultiple---- method FormField::choice_commit_on_change--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "poppler_form_field_choice_commit_on_change" poppler_form_field_choice_commit_on_change :: -    Ptr FormField ->                        -- _obj : TInterface "Poppler" "FormField"-    IO CInt---formFieldChoiceCommitOnChange ::-    (MonadIO m, FormFieldK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-formFieldChoiceCommitOnChange _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_form_field_choice_commit_on_change _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data FormFieldChoiceCommitOnChangeMethodInfo-instance (signature ~ (m Bool), MonadIO m, FormFieldK a) => MethodInfo FormFieldChoiceCommitOnChangeMethodInfo a signature where-    overloadedMethod _ = formFieldChoiceCommitOnChange---- method FormField::choice_do_spell_check--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "poppler_form_field_choice_do_spell_check" poppler_form_field_choice_do_spell_check :: -    Ptr FormField ->                        -- _obj : TInterface "Poppler" "FormField"-    IO CInt---formFieldChoiceDoSpellCheck ::-    (MonadIO m, FormFieldK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-formFieldChoiceDoSpellCheck _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_form_field_choice_do_spell_check _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data FormFieldChoiceDoSpellCheckMethodInfo-instance (signature ~ (m Bool), MonadIO m, FormFieldK a) => MethodInfo FormFieldChoiceDoSpellCheckMethodInfo a signature where-    overloadedMethod _ = formFieldChoiceDoSpellCheck---- method FormField::choice_get_choice_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "FormChoiceType")--- throws : False--- Skip return : False--foreign import ccall "poppler_form_field_choice_get_choice_type" poppler_form_field_choice_get_choice_type :: -    Ptr FormField ->                        -- _obj : TInterface "Poppler" "FormField"-    IO CUInt---formFieldChoiceGetChoiceType ::-    (MonadIO m, FormFieldK a) =>-    a                                       -- _obj-    -> m FormChoiceType                     -- result-formFieldChoiceGetChoiceType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_form_field_choice_get_choice_type _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data FormFieldChoiceGetChoiceTypeMethodInfo-instance (signature ~ (m FormChoiceType), MonadIO m, FormFieldK a) => MethodInfo FormFieldChoiceGetChoiceTypeMethodInfo a signature where-    overloadedMethod _ = formFieldChoiceGetChoiceType---- method FormField::choice_get_item--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "poppler_form_field_choice_get_item" poppler_form_field_choice_get_item :: -    Ptr FormField ->                        -- _obj : TInterface "Poppler" "FormField"-    Int32 ->                                -- index : TBasicType TInt-    IO CString---formFieldChoiceGetItem ::-    (MonadIO m, FormFieldK a) =>-    a                                       -- _obj-    -> Int32                                -- index-    -> m T.Text                             -- result-formFieldChoiceGetItem _obj index = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_form_field_choice_get_item _obj' index-    checkUnexpectedReturnNULL "poppler_form_field_choice_get_item" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data FormFieldChoiceGetItemMethodInfo-instance (signature ~ (Int32 -> m T.Text), MonadIO m, FormFieldK a) => MethodInfo FormFieldChoiceGetItemMethodInfo a signature where-    overloadedMethod _ = formFieldChoiceGetItem---- method FormField::choice_get_n_items--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "poppler_form_field_choice_get_n_items" poppler_form_field_choice_get_n_items :: -    Ptr FormField ->                        -- _obj : TInterface "Poppler" "FormField"-    IO Int32---formFieldChoiceGetNItems ::-    (MonadIO m, FormFieldK a) =>-    a                                       -- _obj-    -> m Int32                              -- result-formFieldChoiceGetNItems _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_form_field_choice_get_n_items _obj'-    touchManagedPtr _obj-    return result--data FormFieldChoiceGetNItemsMethodInfo-instance (signature ~ (m Int32), MonadIO m, FormFieldK a) => MethodInfo FormFieldChoiceGetNItemsMethodInfo a signature where-    overloadedMethod _ = formFieldChoiceGetNItems---- method FormField::choice_get_text--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "poppler_form_field_choice_get_text" poppler_form_field_choice_get_text :: -    Ptr FormField ->                        -- _obj : TInterface "Poppler" "FormField"-    IO CString---formFieldChoiceGetText ::-    (MonadIO m, FormFieldK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-formFieldChoiceGetText _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_form_field_choice_get_text _obj'-    checkUnexpectedReturnNULL "poppler_form_field_choice_get_text" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data FormFieldChoiceGetTextMethodInfo-instance (signature ~ (m T.Text), MonadIO m, FormFieldK a) => MethodInfo FormFieldChoiceGetTextMethodInfo a signature where-    overloadedMethod _ = formFieldChoiceGetText---- method FormField::choice_is_editable--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "poppler_form_field_choice_is_editable" poppler_form_field_choice_is_editable :: -    Ptr FormField ->                        -- _obj : TInterface "Poppler" "FormField"-    IO CInt---formFieldChoiceIsEditable ::-    (MonadIO m, FormFieldK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-formFieldChoiceIsEditable _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_form_field_choice_is_editable _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data FormFieldChoiceIsEditableMethodInfo-instance (signature ~ (m Bool), MonadIO m, FormFieldK a) => MethodInfo FormFieldChoiceIsEditableMethodInfo a signature where-    overloadedMethod _ = formFieldChoiceIsEditable---- method FormField::choice_is_item_selected--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "poppler_form_field_choice_is_item_selected" poppler_form_field_choice_is_item_selected :: -    Ptr FormField ->                        -- _obj : TInterface "Poppler" "FormField"-    Int32 ->                                -- index : TBasicType TInt-    IO CInt---formFieldChoiceIsItemSelected ::-    (MonadIO m, FormFieldK a) =>-    a                                       -- _obj-    -> Int32                                -- index-    -> m Bool                               -- result-formFieldChoiceIsItemSelected _obj index = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_form_field_choice_is_item_selected _obj' index-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data FormFieldChoiceIsItemSelectedMethodInfo-instance (signature ~ (Int32 -> m Bool), MonadIO m, FormFieldK a) => MethodInfo FormFieldChoiceIsItemSelectedMethodInfo a signature where-    overloadedMethod _ = formFieldChoiceIsItemSelected---- method FormField::choice_select_item--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_form_field_choice_select_item" poppler_form_field_choice_select_item :: -    Ptr FormField ->                        -- _obj : TInterface "Poppler" "FormField"-    Int32 ->                                -- index : TBasicType TInt-    IO ()---formFieldChoiceSelectItem ::-    (MonadIO m, FormFieldK a) =>-    a                                       -- _obj-    -> Int32                                -- index-    -> m ()                                 -- result-formFieldChoiceSelectItem _obj index = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    poppler_form_field_choice_select_item _obj' index-    touchManagedPtr _obj-    return ()--data FormFieldChoiceSelectItemMethodInfo-instance (signature ~ (Int32 -> m ()), MonadIO m, FormFieldK a) => MethodInfo FormFieldChoiceSelectItemMethodInfo a signature where-    overloadedMethod _ = formFieldChoiceSelectItem---- method FormField::choice_set_text--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_form_field_choice_set_text" poppler_form_field_choice_set_text :: -    Ptr FormField ->                        -- _obj : TInterface "Poppler" "FormField"-    CString ->                              -- text : TBasicType TUTF8-    IO ()---formFieldChoiceSetText ::-    (MonadIO m, FormFieldK a) =>-    a                                       -- _obj-    -> T.Text                               -- text-    -> m ()                                 -- result-formFieldChoiceSetText _obj text = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    text' <- textToCString text-    poppler_form_field_choice_set_text _obj' text'-    touchManagedPtr _obj-    freeMem text'-    return ()--data FormFieldChoiceSetTextMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, FormFieldK a) => MethodInfo FormFieldChoiceSetTextMethodInfo a signature where-    overloadedMethod _ = formFieldChoiceSetText---- method FormField::choice_toggle_item--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_form_field_choice_toggle_item" poppler_form_field_choice_toggle_item :: -    Ptr FormField ->                        -- _obj : TInterface "Poppler" "FormField"-    Int32 ->                                -- index : TBasicType TInt-    IO ()---formFieldChoiceToggleItem ::-    (MonadIO m, FormFieldK a) =>-    a                                       -- _obj-    -> Int32                                -- index-    -> m ()                                 -- result-formFieldChoiceToggleItem _obj index = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    poppler_form_field_choice_toggle_item _obj' index-    touchManagedPtr _obj-    return ()--data FormFieldChoiceToggleItemMethodInfo-instance (signature ~ (Int32 -> m ()), MonadIO m, FormFieldK a) => MethodInfo FormFieldChoiceToggleItemMethodInfo a signature where-    overloadedMethod _ = formFieldChoiceToggleItem---- method FormField::choice_unselect_all--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_form_field_choice_unselect_all" poppler_form_field_choice_unselect_all :: -    Ptr FormField ->                        -- _obj : TInterface "Poppler" "FormField"-    IO ()---formFieldChoiceUnselectAll ::-    (MonadIO m, FormFieldK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-formFieldChoiceUnselectAll _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    poppler_form_field_choice_unselect_all _obj'-    touchManagedPtr _obj-    return ()--data FormFieldChoiceUnselectAllMethodInfo-instance (signature ~ (m ()), MonadIO m, FormFieldK a) => MethodInfo FormFieldChoiceUnselectAllMethodInfo a signature where-    overloadedMethod _ = formFieldChoiceUnselectAll---- method FormField::get_action--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "Action")--- throws : False--- Skip return : False--foreign import ccall "poppler_form_field_get_action" poppler_form_field_get_action :: -    Ptr FormField ->                        -- _obj : TInterface "Poppler" "FormField"-    IO (Ptr Action)---formFieldGetAction ::-    (MonadIO m, FormFieldK a) =>-    a                                       -- _obj-    -> m Action                             -- result-formFieldGetAction _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_form_field_get_action _obj'-    checkUnexpectedReturnNULL "poppler_form_field_get_action" result-    result' <- (newBoxed Action) result-    touchManagedPtr _obj-    return result'--data FormFieldGetActionMethodInfo-instance (signature ~ (m Action), MonadIO m, FormFieldK a) => MethodInfo FormFieldGetActionMethodInfo a signature where-    overloadedMethod _ = formFieldGetAction---- method FormField::get_field_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "FormFieldType")--- throws : False--- Skip return : False--foreign import ccall "poppler_form_field_get_field_type" poppler_form_field_get_field_type :: -    Ptr FormField ->                        -- _obj : TInterface "Poppler" "FormField"-    IO CUInt---formFieldGetFieldType ::-    (MonadIO m, FormFieldK a) =>-    a                                       -- _obj-    -> m FormFieldType                      -- result-formFieldGetFieldType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_form_field_get_field_type _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data FormFieldGetFieldTypeMethodInfo-instance (signature ~ (m FormFieldType), MonadIO m, FormFieldK a) => MethodInfo FormFieldGetFieldTypeMethodInfo a signature where-    overloadedMethod _ = formFieldGetFieldType---- method FormField::get_font_size--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TDouble)--- throws : False--- Skip return : False--foreign import ccall "poppler_form_field_get_font_size" poppler_form_field_get_font_size :: -    Ptr FormField ->                        -- _obj : TInterface "Poppler" "FormField"-    IO CDouble---formFieldGetFontSize ::-    (MonadIO m, FormFieldK a) =>-    a                                       -- _obj-    -> m Double                             -- result-formFieldGetFontSize _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_form_field_get_font_size _obj'-    let result' = realToFrac result-    touchManagedPtr _obj-    return result'--data FormFieldGetFontSizeMethodInfo-instance (signature ~ (m Double), MonadIO m, FormFieldK a) => MethodInfo FormFieldGetFontSizeMethodInfo a signature where-    overloadedMethod _ = formFieldGetFontSize---- method FormField::get_id--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "poppler_form_field_get_id" poppler_form_field_get_id :: -    Ptr FormField ->                        -- _obj : TInterface "Poppler" "FormField"-    IO Int32---formFieldGetId ::-    (MonadIO m, FormFieldK a) =>-    a                                       -- _obj-    -> m Int32                              -- result-formFieldGetId _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_form_field_get_id _obj'-    touchManagedPtr _obj-    return result--data FormFieldGetIdMethodInfo-instance (signature ~ (m Int32), MonadIO m, FormFieldK a) => MethodInfo FormFieldGetIdMethodInfo a signature where-    overloadedMethod _ = formFieldGetId---- method FormField::get_mapping_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "poppler_form_field_get_mapping_name" poppler_form_field_get_mapping_name :: -    Ptr FormField ->                        -- _obj : TInterface "Poppler" "FormField"-    IO CString---formFieldGetMappingName ::-    (MonadIO m, FormFieldK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-formFieldGetMappingName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_form_field_get_mapping_name _obj'-    checkUnexpectedReturnNULL "poppler_form_field_get_mapping_name" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data FormFieldGetMappingNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, FormFieldK a) => MethodInfo FormFieldGetMappingNameMethodInfo a signature where-    overloadedMethod _ = formFieldGetMappingName---- method FormField::get_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "poppler_form_field_get_name" poppler_form_field_get_name :: -    Ptr FormField ->                        -- _obj : TInterface "Poppler" "FormField"-    IO CString---formFieldGetName ::-    (MonadIO m, FormFieldK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-formFieldGetName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_form_field_get_name _obj'-    checkUnexpectedReturnNULL "poppler_form_field_get_name" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data FormFieldGetNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, FormFieldK a) => MethodInfo FormFieldGetNameMethodInfo a signature where-    overloadedMethod _ = formFieldGetName---- method FormField::get_partial_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "poppler_form_field_get_partial_name" poppler_form_field_get_partial_name :: -    Ptr FormField ->                        -- _obj : TInterface "Poppler" "FormField"-    IO CString---formFieldGetPartialName ::-    (MonadIO m, FormFieldK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-formFieldGetPartialName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_form_field_get_partial_name _obj'-    checkUnexpectedReturnNULL "poppler_form_field_get_partial_name" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data FormFieldGetPartialNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, FormFieldK a) => MethodInfo FormFieldGetPartialNameMethodInfo a signature where-    overloadedMethod _ = formFieldGetPartialName---- method FormField::is_read_only--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "poppler_form_field_is_read_only" poppler_form_field_is_read_only :: -    Ptr FormField ->                        -- _obj : TInterface "Poppler" "FormField"-    IO CInt---formFieldIsReadOnly ::-    (MonadIO m, FormFieldK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-formFieldIsReadOnly _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_form_field_is_read_only _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data FormFieldIsReadOnlyMethodInfo-instance (signature ~ (m Bool), MonadIO m, FormFieldK a) => MethodInfo FormFieldIsReadOnlyMethodInfo a signature where-    overloadedMethod _ = formFieldIsReadOnly---- method FormField::text_do_scroll--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "poppler_form_field_text_do_scroll" poppler_form_field_text_do_scroll :: -    Ptr FormField ->                        -- _obj : TInterface "Poppler" "FormField"-    IO CInt---formFieldTextDoScroll ::-    (MonadIO m, FormFieldK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-formFieldTextDoScroll _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_form_field_text_do_scroll _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data FormFieldTextDoScrollMethodInfo-instance (signature ~ (m Bool), MonadIO m, FormFieldK a) => MethodInfo FormFieldTextDoScrollMethodInfo a signature where-    overloadedMethod _ = formFieldTextDoScroll---- method FormField::text_do_spell_check--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "poppler_form_field_text_do_spell_check" poppler_form_field_text_do_spell_check :: -    Ptr FormField ->                        -- _obj : TInterface "Poppler" "FormField"-    IO CInt---formFieldTextDoSpellCheck ::-    (MonadIO m, FormFieldK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-formFieldTextDoSpellCheck _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_form_field_text_do_spell_check _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data FormFieldTextDoSpellCheckMethodInfo-instance (signature ~ (m Bool), MonadIO m, FormFieldK a) => MethodInfo FormFieldTextDoSpellCheckMethodInfo a signature where-    overloadedMethod _ = formFieldTextDoSpellCheck---- method FormField::text_get_max_len--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "poppler_form_field_text_get_max_len" poppler_form_field_text_get_max_len :: -    Ptr FormField ->                        -- _obj : TInterface "Poppler" "FormField"-    IO Int32---formFieldTextGetMaxLen ::-    (MonadIO m, FormFieldK a) =>-    a                                       -- _obj-    -> m Int32                              -- result-formFieldTextGetMaxLen _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_form_field_text_get_max_len _obj'-    touchManagedPtr _obj-    return result--data FormFieldTextGetMaxLenMethodInfo-instance (signature ~ (m Int32), MonadIO m, FormFieldK a) => MethodInfo FormFieldTextGetMaxLenMethodInfo a signature where-    overloadedMethod _ = formFieldTextGetMaxLen---- method FormField::text_get_text--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "poppler_form_field_text_get_text" poppler_form_field_text_get_text :: -    Ptr FormField ->                        -- _obj : TInterface "Poppler" "FormField"-    IO CString---formFieldTextGetText ::-    (MonadIO m, FormFieldK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-formFieldTextGetText _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_form_field_text_get_text _obj'-    checkUnexpectedReturnNULL "poppler_form_field_text_get_text" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data FormFieldTextGetTextMethodInfo-instance (signature ~ (m T.Text), MonadIO m, FormFieldK a) => MethodInfo FormFieldTextGetTextMethodInfo a signature where-    overloadedMethod _ = formFieldTextGetText---- method FormField::text_get_text_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "FormTextType")--- throws : False--- Skip return : False--foreign import ccall "poppler_form_field_text_get_text_type" poppler_form_field_text_get_text_type :: -    Ptr FormField ->                        -- _obj : TInterface "Poppler" "FormField"-    IO CUInt---formFieldTextGetTextType ::-    (MonadIO m, FormFieldK a) =>-    a                                       -- _obj-    -> m FormTextType                       -- result-formFieldTextGetTextType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_form_field_text_get_text_type _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data FormFieldTextGetTextTypeMethodInfo-instance (signature ~ (m FormTextType), MonadIO m, FormFieldK a) => MethodInfo FormFieldTextGetTextTypeMethodInfo a signature where-    overloadedMethod _ = formFieldTextGetTextType---- method FormField::text_is_password--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "poppler_form_field_text_is_password" poppler_form_field_text_is_password :: -    Ptr FormField ->                        -- _obj : TInterface "Poppler" "FormField"-    IO CInt---formFieldTextIsPassword ::-    (MonadIO m, FormFieldK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-formFieldTextIsPassword _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_form_field_text_is_password _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data FormFieldTextIsPasswordMethodInfo-instance (signature ~ (m Bool), MonadIO m, FormFieldK a) => MethodInfo FormFieldTextIsPasswordMethodInfo a signature where-    overloadedMethod _ = formFieldTextIsPassword---- method FormField::text_is_rich_text--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "poppler_form_field_text_is_rich_text" poppler_form_field_text_is_rich_text :: -    Ptr FormField ->                        -- _obj : TInterface "Poppler" "FormField"-    IO CInt---formFieldTextIsRichText ::-    (MonadIO m, FormFieldK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-formFieldTextIsRichText _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_form_field_text_is_rich_text _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data FormFieldTextIsRichTextMethodInfo-instance (signature ~ (m Bool), MonadIO m, FormFieldK a) => MethodInfo FormFieldTextIsRichTextMethodInfo a signature where-    overloadedMethod _ = formFieldTextIsRichText---- method FormField::text_set_text--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_form_field_text_set_text" poppler_form_field_text_set_text :: -    Ptr FormField ->                        -- _obj : TInterface "Poppler" "FormField"-    CString ->                              -- text : TBasicType TUTF8-    IO ()---formFieldTextSetText ::-    (MonadIO m, FormFieldK a) =>-    a                                       -- _obj-    -> T.Text                               -- text-    -> m ()                                 -- result-formFieldTextSetText _obj text = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    text' <- textToCString text-    poppler_form_field_text_set_text _obj' text'-    touchManagedPtr _obj-    freeMem text'-    return ()--data FormFieldTextSetTextMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, FormFieldK a) => MethodInfo FormFieldTextSetTextMethodInfo a signature where-    overloadedMethod _ = formFieldTextSetText--
− GI/Poppler/Objects/FormField.hs-boot 
@@ -1,45 +0,0 @@-module GI.Poppler.Objects.FormField where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype FormField = FormField (ForeignPtr FormField)-instance GObject FormField where-class GObject o => FormFieldK o-instance (GObject o, IsDescendantOf FormField o) => FormFieldK o-data FormFieldButtonGetButtonTypeMethodInfo-data FormFieldButtonGetStateMethodInfo-data FormFieldButtonSetStateMethodInfo-data FormFieldChoiceCanSelectMultipleMethodInfo-data FormFieldChoiceCommitOnChangeMethodInfo-data FormFieldChoiceDoSpellCheckMethodInfo-data FormFieldChoiceGetChoiceTypeMethodInfo-data FormFieldChoiceGetItemMethodInfo-data FormFieldChoiceGetNItemsMethodInfo-data FormFieldChoiceGetTextMethodInfo-data FormFieldChoiceIsEditableMethodInfo-data FormFieldChoiceIsItemSelectedMethodInfo-data FormFieldChoiceSelectItemMethodInfo-data FormFieldChoiceSetTextMethodInfo-data FormFieldChoiceToggleItemMethodInfo-data FormFieldChoiceUnselectAllMethodInfo-data FormFieldGetActionMethodInfo-data FormFieldGetFieldTypeMethodInfo-data FormFieldGetFontSizeMethodInfo-data FormFieldGetIdMethodInfo-data FormFieldGetMappingNameMethodInfo-data FormFieldGetNameMethodInfo-data FormFieldGetPartialNameMethodInfo-data FormFieldIsReadOnlyMethodInfo-data FormFieldTextDoScrollMethodInfo-data FormFieldTextDoSpellCheckMethodInfo-data FormFieldTextGetMaxLenMethodInfo-data FormFieldTextGetTextMethodInfo-data FormFieldTextGetTextTypeMethodInfo-data FormFieldTextIsPasswordMethodInfo-data FormFieldTextIsRichTextMethodInfo-data FormFieldTextSetTextMethodInfo
− GI/Poppler/Objects/Layer.hs 
@@ -1,297 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Poppler.Objects.Layer-    ( ---- * Exported types-    Layer(..)                               ,-    LayerK                                  ,-    toLayer                                 ,-    noLayer                                 ,--- -- * Methods--- ** layerGetRadioButtonGroupId-    LayerGetRadioButtonGroupIdMethodInfo    ,-    layerGetRadioButtonGroupId              ,----- ** layerGetTitle-    LayerGetTitleMethodInfo                 ,-    layerGetTitle                           ,----- ** layerHide-    LayerHideMethodInfo                     ,-    layerHide                               ,----- ** layerIsParent-    LayerIsParentMethodInfo                 ,-    layerIsParent                           ,----- ** layerIsVisible-    LayerIsVisibleMethodInfo                ,-    layerIsVisible                          ,----- ** layerShow-    LayerShowMethodInfo                     ,-    layerShow                               ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks-import qualified GI.GObject as GObject--newtype Layer = Layer (ForeignPtr Layer)-foreign import ccall "poppler_layer_get_type"-    c_poppler_layer_get_type :: IO GType--type instance ParentTypes Layer = LayerParentTypes-type LayerParentTypes = '[GObject.Object]--instance GObject Layer where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_poppler_layer_get_type-    --class GObject o => LayerK o-instance (GObject o, IsDescendantOf Layer o) => LayerK o--toLayer :: LayerK o => o -> IO Layer-toLayer = unsafeCastTo Layer--noLayer :: Maybe Layer-noLayer = Nothing--type family ResolveLayerMethod (t :: Symbol) (o :: *) :: * where-    ResolveLayerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveLayerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveLayerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveLayerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveLayerMethod "hide" o = LayerHideMethodInfo-    ResolveLayerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveLayerMethod "isParent" o = LayerIsParentMethodInfo-    ResolveLayerMethod "isVisible" o = LayerIsVisibleMethodInfo-    ResolveLayerMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveLayerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveLayerMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveLayerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveLayerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveLayerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveLayerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveLayerMethod "show" o = LayerShowMethodInfo-    ResolveLayerMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveLayerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveLayerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveLayerMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveLayerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveLayerMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveLayerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveLayerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveLayerMethod "getRadioButtonGroupId" o = LayerGetRadioButtonGroupIdMethodInfo-    ResolveLayerMethod "getTitle" o = LayerGetTitleMethodInfo-    ResolveLayerMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveLayerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveLayerMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveLayerMethod t Layer, MethodInfo info Layer p) => IsLabelProxy t (Layer -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveLayerMethod t Layer, MethodInfo info Layer p) => IsLabel t (Layer -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList Layer = LayerAttributeList-type LayerAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList Layer = LayerSignalList-type LayerSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method Layer::get_radio_button_group_id--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "poppler_layer_get_radio_button_group_id" poppler_layer_get_radio_button_group_id :: -    Ptr Layer ->                            -- _obj : TInterface "Poppler" "Layer"-    IO Int32---layerGetRadioButtonGroupId ::-    (MonadIO m, LayerK a) =>-    a                                       -- _obj-    -> m Int32                              -- result-layerGetRadioButtonGroupId _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_layer_get_radio_button_group_id _obj'-    touchManagedPtr _obj-    return result--data LayerGetRadioButtonGroupIdMethodInfo-instance (signature ~ (m Int32), MonadIO m, LayerK a) => MethodInfo LayerGetRadioButtonGroupIdMethodInfo a signature where-    overloadedMethod _ = layerGetRadioButtonGroupId---- method Layer::get_title--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "poppler_layer_get_title" poppler_layer_get_title :: -    Ptr Layer ->                            -- _obj : TInterface "Poppler" "Layer"-    IO CString---layerGetTitle ::-    (MonadIO m, LayerK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-layerGetTitle _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_layer_get_title _obj'-    checkUnexpectedReturnNULL "poppler_layer_get_title" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data LayerGetTitleMethodInfo-instance (signature ~ (m T.Text), MonadIO m, LayerK a) => MethodInfo LayerGetTitleMethodInfo a signature where-    overloadedMethod _ = layerGetTitle---- method Layer::hide--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_layer_hide" poppler_layer_hide :: -    Ptr Layer ->                            -- _obj : TInterface "Poppler" "Layer"-    IO ()---layerHide ::-    (MonadIO m, LayerK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-layerHide _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    poppler_layer_hide _obj'-    touchManagedPtr _obj-    return ()--data LayerHideMethodInfo-instance (signature ~ (m ()), MonadIO m, LayerK a) => MethodInfo LayerHideMethodInfo a signature where-    overloadedMethod _ = layerHide---- method Layer::is_parent--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "poppler_layer_is_parent" poppler_layer_is_parent :: -    Ptr Layer ->                            -- _obj : TInterface "Poppler" "Layer"-    IO CInt---layerIsParent ::-    (MonadIO m, LayerK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-layerIsParent _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_layer_is_parent _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data LayerIsParentMethodInfo-instance (signature ~ (m Bool), MonadIO m, LayerK a) => MethodInfo LayerIsParentMethodInfo a signature where-    overloadedMethod _ = layerIsParent---- method Layer::is_visible--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "poppler_layer_is_visible" poppler_layer_is_visible :: -    Ptr Layer ->                            -- _obj : TInterface "Poppler" "Layer"-    IO CInt---layerIsVisible ::-    (MonadIO m, LayerK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-layerIsVisible _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_layer_is_visible _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data LayerIsVisibleMethodInfo-instance (signature ~ (m Bool), MonadIO m, LayerK a) => MethodInfo LayerIsVisibleMethodInfo a signature where-    overloadedMethod _ = layerIsVisible---- method Layer::show--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_layer_show" poppler_layer_show :: -    Ptr Layer ->                            -- _obj : TInterface "Poppler" "Layer"-    IO ()---layerShow ::-    (MonadIO m, LayerK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-layerShow _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    poppler_layer_show _obj'-    touchManagedPtr _obj-    return ()--data LayerShowMethodInfo-instance (signature ~ (m ()), MonadIO m, LayerK a) => MethodInfo LayerShowMethodInfo a signature where-    overloadedMethod _ = layerShow--
− GI/Poppler/Objects/Layer.hs-boot 
@@ -1,19 +0,0 @@-module GI.Poppler.Objects.Layer where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Layer = Layer (ForeignPtr Layer)-instance GObject Layer where-class GObject o => LayerK o-instance (GObject o, IsDescendantOf Layer o) => LayerK o-data LayerGetRadioButtonGroupIdMethodInfo-data LayerGetTitleMethodInfo-data LayerHideMethodInfo-data LayerIsParentMethodInfo-data LayerIsVisibleMethodInfo-data LayerShowMethodInfo
− GI/Poppler/Objects/Media.hs 
@@ -1,286 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Poppler.Objects.Media-    ( ---- * Exported types-    Media(..)                               ,-    MediaK                                  ,-    toMedia                                 ,-    noMedia                                 ,--- -- * Methods--- ** mediaGetFilename-    MediaGetFilenameMethodInfo              ,-    mediaGetFilename                        ,----- ** mediaGetMimeType-    MediaGetMimeTypeMethodInfo              ,-    mediaGetMimeType                        ,----- ** mediaIsEmbedded-    MediaIsEmbeddedMethodInfo               ,-    mediaIsEmbedded                         ,----- ** mediaSave-    MediaSaveMethodInfo                     ,-    mediaSave                               ,----- ** mediaSaveToCallback-    MediaSaveToCallbackMethodInfo           ,-    mediaSaveToCallback                     ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks-import qualified GI.GObject as GObject--newtype Media = Media (ForeignPtr Media)-foreign import ccall "poppler_media_get_type"-    c_poppler_media_get_type :: IO GType--type instance ParentTypes Media = MediaParentTypes-type MediaParentTypes = '[GObject.Object]--instance GObject Media where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_poppler_media_get_type-    --class GObject o => MediaK o-instance (GObject o, IsDescendantOf Media o) => MediaK o--toMedia :: MediaK o => o -> IO Media-toMedia = unsafeCastTo Media--noMedia :: Maybe Media-noMedia = Nothing--type family ResolveMediaMethod (t :: Symbol) (o :: *) :: * where-    ResolveMediaMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveMediaMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveMediaMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveMediaMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveMediaMethod "isEmbedded" o = MediaIsEmbeddedMethodInfo-    ResolveMediaMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveMediaMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveMediaMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveMediaMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveMediaMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveMediaMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveMediaMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveMediaMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveMediaMethod "save" o = MediaSaveMethodInfo-    ResolveMediaMethod "saveToCallback" o = MediaSaveToCallbackMethodInfo-    ResolveMediaMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveMediaMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveMediaMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveMediaMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveMediaMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveMediaMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveMediaMethod "getFilename" o = MediaGetFilenameMethodInfo-    ResolveMediaMethod "getMimeType" o = MediaGetMimeTypeMethodInfo-    ResolveMediaMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveMediaMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveMediaMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveMediaMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveMediaMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveMediaMethod t Media, MethodInfo info Media p) => IsLabelProxy t (Media -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveMediaMethod t Media, MethodInfo info Media p) => IsLabel t (Media -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList Media = MediaAttributeList-type MediaAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList Media = MediaSignalList-type MediaSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method Media::get_filename--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Media", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "poppler_media_get_filename" poppler_media_get_filename :: -    Ptr Media ->                            -- _obj : TInterface "Poppler" "Media"-    IO CString---mediaGetFilename ::-    (MonadIO m, MediaK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-mediaGetFilename _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_media_get_filename _obj'-    checkUnexpectedReturnNULL "poppler_media_get_filename" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data MediaGetFilenameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, MediaK a) => MethodInfo MediaGetFilenameMethodInfo a signature where-    overloadedMethod _ = mediaGetFilename---- method Media::get_mime_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Media", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "poppler_media_get_mime_type" poppler_media_get_mime_type :: -    Ptr Media ->                            -- _obj : TInterface "Poppler" "Media"-    IO CString---mediaGetMimeType ::-    (MonadIO m, MediaK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-mediaGetMimeType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_media_get_mime_type _obj'-    checkUnexpectedReturnNULL "poppler_media_get_mime_type" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data MediaGetMimeTypeMethodInfo-instance (signature ~ (m T.Text), MonadIO m, MediaK a) => MethodInfo MediaGetMimeTypeMethodInfo a signature where-    overloadedMethod _ = mediaGetMimeType---- method Media::is_embedded--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Media", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "poppler_media_is_embedded" poppler_media_is_embedded :: -    Ptr Media ->                            -- _obj : TInterface "Poppler" "Media"-    IO CInt---mediaIsEmbedded ::-    (MonadIO m, MediaK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-mediaIsEmbedded _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_media_is_embedded _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data MediaIsEmbeddedMethodInfo-instance (signature ~ (m Bool), MonadIO m, MediaK a) => MethodInfo MediaIsEmbeddedMethodInfo a signature where-    overloadedMethod _ = mediaIsEmbedded---- method Media::save--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Media", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "poppler_media_save" poppler_media_save :: -    Ptr Media ->                            -- _obj : TInterface "Poppler" "Media"-    CString ->                              -- filename : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt---mediaSave ::-    (MonadIO m, MediaK a) =>-    a                                       -- _obj-    -> T.Text                               -- filename-    -> m ()                                 -- result-mediaSave _obj filename = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    filename' <- textToCString filename-    onException (do-        _ <- propagateGError $ poppler_media_save _obj' filename'-        touchManagedPtr _obj-        freeMem filename'-        return ()-     ) (do-        freeMem filename'-     )--data MediaSaveMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, MediaK a) => MethodInfo MediaSaveMethodInfo a signature where-    overloadedMethod _ = mediaSave---- method Media::save_to_callback--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Media", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "save_func", argType = TInterface "Poppler" "MediaSaveFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "poppler_media_save_to_callback" poppler_media_save_to_callback :: -    Ptr Media ->                            -- _obj : TInterface "Poppler" "Media"-    FunPtr MediaSaveFuncC ->                -- save_func : TInterface "Poppler" "MediaSaveFunc"-    Ptr () ->                               -- user_data : TBasicType TPtr-    Ptr (Ptr GError) ->                     -- error-    IO CInt---mediaSaveToCallback ::-    (MonadIO m, MediaK a) =>-    a                                       -- _obj-    -> MediaSaveFunc                        -- saveFunc-    -> m ()                                 -- result-mediaSaveToCallback _obj saveFunc = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    saveFunc' <- mkMediaSaveFunc (mediaSaveFuncWrapper Nothing saveFunc)-    let userData = nullPtr-    onException (do-        _ <- propagateGError $ poppler_media_save_to_callback _obj' saveFunc' userData-        safeFreeFunPtr $ castFunPtrToPtr saveFunc'-        touchManagedPtr _obj-        return ()-     ) (do-        safeFreeFunPtr $ castFunPtrToPtr saveFunc'-        return ()-     )--data MediaSaveToCallbackMethodInfo-instance (signature ~ (MediaSaveFunc -> m ()), MonadIO m, MediaK a) => MethodInfo MediaSaveToCallbackMethodInfo a signature where-    overloadedMethod _ = mediaSaveToCallback--
− GI/Poppler/Objects/Media.hs-boot 
@@ -1,18 +0,0 @@-module GI.Poppler.Objects.Media where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Media = Media (ForeignPtr Media)-instance GObject Media where-class GObject o => MediaK o-instance (GObject o, IsDescendantOf Media o) => MediaK o-data MediaGetFilenameMethodInfo-data MediaGetMimeTypeMethodInfo-data MediaIsEmbeddedMethodInfo-data MediaSaveMethodInfo-data MediaSaveToCallbackMethodInfo
− GI/Poppler/Objects/Movie.hs 
@@ -1,198 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Poppler.Objects.Movie-    ( ---- * Exported types-    Movie(..)                               ,-    MovieK                                  ,-    toMovie                                 ,-    noMovie                                 ,--- -- * Methods--- ** movieGetFilename-    MovieGetFilenameMethodInfo              ,-    movieGetFilename                        ,----- ** movieNeedPoster-    MovieNeedPosterMethodInfo               ,-    movieNeedPoster                         ,----- ** movieShowControls-    MovieShowControlsMethodInfo             ,-    movieShowControls                       ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks-import qualified GI.GObject as GObject--newtype Movie = Movie (ForeignPtr Movie)-foreign import ccall "poppler_movie_get_type"-    c_poppler_movie_get_type :: IO GType--type instance ParentTypes Movie = MovieParentTypes-type MovieParentTypes = '[GObject.Object]--instance GObject Movie where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_poppler_movie_get_type-    --class GObject o => MovieK o-instance (GObject o, IsDescendantOf Movie o) => MovieK o--toMovie :: MovieK o => o -> IO Movie-toMovie = unsafeCastTo Movie--noMovie :: Maybe Movie-noMovie = Nothing--type family ResolveMovieMethod (t :: Symbol) (o :: *) :: * where-    ResolveMovieMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveMovieMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveMovieMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveMovieMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveMovieMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveMovieMethod "needPoster" o = MovieNeedPosterMethodInfo-    ResolveMovieMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveMovieMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveMovieMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveMovieMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveMovieMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveMovieMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveMovieMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveMovieMethod "showControls" o = MovieShowControlsMethodInfo-    ResolveMovieMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveMovieMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveMovieMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveMovieMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveMovieMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveMovieMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveMovieMethod "getFilename" o = MovieGetFilenameMethodInfo-    ResolveMovieMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveMovieMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveMovieMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveMovieMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveMovieMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveMovieMethod t Movie, MethodInfo info Movie p) => IsLabelProxy t (Movie -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveMovieMethod t Movie, MethodInfo info Movie p) => IsLabel t (Movie -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList Movie = MovieAttributeList-type MovieAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList Movie = MovieSignalList-type MovieSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method Movie::get_filename--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Movie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "poppler_movie_get_filename" poppler_movie_get_filename :: -    Ptr Movie ->                            -- _obj : TInterface "Poppler" "Movie"-    IO CString---movieGetFilename ::-    (MonadIO m, MovieK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-movieGetFilename _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_movie_get_filename _obj'-    checkUnexpectedReturnNULL "poppler_movie_get_filename" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data MovieGetFilenameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, MovieK a) => MethodInfo MovieGetFilenameMethodInfo a signature where-    overloadedMethod _ = movieGetFilename---- method Movie::need_poster--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Movie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "poppler_movie_need_poster" poppler_movie_need_poster :: -    Ptr Movie ->                            -- _obj : TInterface "Poppler" "Movie"-    IO CInt---movieNeedPoster ::-    (MonadIO m, MovieK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-movieNeedPoster _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_movie_need_poster _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data MovieNeedPosterMethodInfo-instance (signature ~ (m Bool), MonadIO m, MovieK a) => MethodInfo MovieNeedPosterMethodInfo a signature where-    overloadedMethod _ = movieNeedPoster---- method Movie::show_controls--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Movie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "poppler_movie_show_controls" poppler_movie_show_controls :: -    Ptr Movie ->                            -- _obj : TInterface "Poppler" "Movie"-    IO CInt---movieShowControls ::-    (MonadIO m, MovieK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-movieShowControls _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_movie_show_controls _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data MovieShowControlsMethodInfo-instance (signature ~ (m Bool), MonadIO m, MovieK a) => MethodInfo MovieShowControlsMethodInfo a signature where-    overloadedMethod _ = movieShowControls--
− GI/Poppler/Objects/Movie.hs-boot 
@@ -1,16 +0,0 @@-module GI.Poppler.Objects.Movie where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Movie = Movie (ForeignPtr Movie)-instance GObject Movie where-class GObject o => MovieK o-instance (GObject o, IsDescendantOf Movie o) => MovieK o-data MovieGetFilenameMethodInfo-data MovieNeedPosterMethodInfo-data MovieShowControlsMethodInfo
− GI/Poppler/Objects/PSFile.hs 
@@ -1,240 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Poppler.Objects.PSFile-    ( ---- * Exported types-    PSFile(..)                              ,-    PSFileK                                 ,-    toPSFile                                ,-    noPSFile                                ,--- -- * Methods--- ** pSFileFree-    PSFileFreeMethodInfo                    ,-    pSFileFree                              ,----- ** pSFileNew-    pSFileNew                               ,----- ** pSFileSetDuplex-    PSFileSetDuplexMethodInfo               ,-    pSFileSetDuplex                         ,----- ** pSFileSetPaperSize-    PSFileSetPaperSizeMethodInfo            ,-    pSFileSetPaperSize                      ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks-import qualified GI.GObject as GObject--newtype PSFile = PSFile (ForeignPtr PSFile)-foreign import ccall "poppler_ps_file_get_type"-    c_poppler_ps_file_get_type :: IO GType--type instance ParentTypes PSFile = PSFileParentTypes-type PSFileParentTypes = '[GObject.Object]--instance GObject PSFile where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_poppler_ps_file_get_type-    --class GObject o => PSFileK o-instance (GObject o, IsDescendantOf PSFile o) => PSFileK o--toPSFile :: PSFileK o => o -> IO PSFile-toPSFile = unsafeCastTo PSFile--noPSFile :: Maybe PSFile-noPSFile = Nothing--type family ResolvePSFileMethod (t :: Symbol) (o :: *) :: * where-    ResolvePSFileMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolvePSFileMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolvePSFileMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolvePSFileMethod "free" o = PSFileFreeMethodInfo-    ResolvePSFileMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolvePSFileMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolvePSFileMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolvePSFileMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolvePSFileMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolvePSFileMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolvePSFileMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolvePSFileMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolvePSFileMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolvePSFileMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolvePSFileMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolvePSFileMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolvePSFileMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolvePSFileMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolvePSFileMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolvePSFileMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolvePSFileMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolvePSFileMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolvePSFileMethod "setDuplex" o = PSFileSetDuplexMethodInfo-    ResolvePSFileMethod "setPaperSize" o = PSFileSetPaperSizeMethodInfo-    ResolvePSFileMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolvePSFileMethod l o = MethodResolutionFailed l o--instance (info ~ ResolvePSFileMethod t PSFile, MethodInfo info PSFile p) => IsLabelProxy t (PSFile -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolvePSFileMethod t PSFile, MethodInfo info PSFile p) => IsLabel t (PSFile -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList PSFile = PSFileAttributeList-type PSFileAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList PSFile = PSFileSignalList-type PSFileSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method PSFile::new--- method type : Constructor--- Args : [Arg {argCName = "document", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "first_page", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_pages", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "PSFile")--- throws : False--- Skip return : False--foreign import ccall "poppler_ps_file_new" poppler_ps_file_new :: -    Ptr Document ->                         -- document : TInterface "Poppler" "Document"-    CString ->                              -- filename : TBasicType TUTF8-    Int32 ->                                -- first_page : TBasicType TInt-    Int32 ->                                -- n_pages : TBasicType TInt-    IO (Ptr PSFile)---pSFileNew ::-    (MonadIO m, DocumentK a) =>-    a                                       -- document-    -> T.Text                               -- filename-    -> Int32                                -- firstPage-    -> Int32                                -- nPages-    -> m PSFile                             -- result-pSFileNew document filename firstPage nPages = liftIO $ do-    let document' = unsafeManagedPtrCastPtr document-    filename' <- textToCString filename-    result <- poppler_ps_file_new document' filename' firstPage nPages-    checkUnexpectedReturnNULL "poppler_ps_file_new" result-    result' <- (wrapObject PSFile) result-    touchManagedPtr document-    freeMem filename'-    return result'---- method PSFile::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "PSFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_ps_file_free" poppler_ps_file_free :: -    Ptr PSFile ->                           -- _obj : TInterface "Poppler" "PSFile"-    IO ()---pSFileFree ::-    (MonadIO m, PSFileK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-pSFileFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    poppler_ps_file_free _obj'-    touchManagedPtr _obj-    return ()--data PSFileFreeMethodInfo-instance (signature ~ (m ()), MonadIO m, PSFileK a) => MethodInfo PSFileFreeMethodInfo a signature where-    overloadedMethod _ = pSFileFree---- method PSFile::set_duplex--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "PSFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "duplex", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_ps_file_set_duplex" poppler_ps_file_set_duplex :: -    Ptr PSFile ->                           -- _obj : TInterface "Poppler" "PSFile"-    CInt ->                                 -- duplex : TBasicType TBoolean-    IO ()---pSFileSetDuplex ::-    (MonadIO m, PSFileK a) =>-    a                                       -- _obj-    -> Bool                                 -- duplex-    -> m ()                                 -- result-pSFileSetDuplex _obj duplex = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let duplex' = (fromIntegral . fromEnum) duplex-    poppler_ps_file_set_duplex _obj' duplex'-    touchManagedPtr _obj-    return ()--data PSFileSetDuplexMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, PSFileK a) => MethodInfo PSFileSetDuplexMethodInfo a signature where-    overloadedMethod _ = pSFileSetDuplex---- method PSFile::set_paper_size--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "PSFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_ps_file_set_paper_size" poppler_ps_file_set_paper_size :: -    Ptr PSFile ->                           -- _obj : TInterface "Poppler" "PSFile"-    CDouble ->                              -- width : TBasicType TDouble-    CDouble ->                              -- height : TBasicType TDouble-    IO ()---pSFileSetPaperSize ::-    (MonadIO m, PSFileK a) =>-    a                                       -- _obj-    -> Double                               -- width-    -> Double                               -- height-    -> m ()                                 -- result-pSFileSetPaperSize _obj width height = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let width' = realToFrac width-    let height' = realToFrac height-    poppler_ps_file_set_paper_size _obj' width' height'-    touchManagedPtr _obj-    return ()--data PSFileSetPaperSizeMethodInfo-instance (signature ~ (Double -> Double -> m ()), MonadIO m, PSFileK a) => MethodInfo PSFileSetPaperSizeMethodInfo a signature where-    overloadedMethod _ = pSFileSetPaperSize--
− GI/Poppler/Objects/PSFile.hs-boot 
@@ -1,16 +0,0 @@-module GI.Poppler.Objects.PSFile where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype PSFile = PSFile (ForeignPtr PSFile)-instance GObject PSFile where-class GObject o => PSFileK o-instance (GObject o, IsDescendantOf PSFile o) => PSFileK o-data PSFileFreeMethodInfo-data PSFileSetDuplexMethodInfo-data PSFileSetPaperSizeMethodInfo
− GI/Poppler/Objects/Page.hs 
@@ -1,1521 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Poppler.Objects.Page-    ( ---- * Exported types-    Page(..)                                ,-    PageK                                   ,-    toPage                                  ,-    noPage                                  ,--- -- * Methods--- ** pageAddAnnot-    PageAddAnnotMethodInfo                  ,-    pageAddAnnot                            ,----- ** pageFindText-    PageFindTextMethodInfo                  ,-    pageFindText                            ,----- ** pageFindTextWithOptions-    PageFindTextWithOptionsMethodInfo       ,-    pageFindTextWithOptions                 ,----- ** pageFreeAnnotMapping-    pageFreeAnnotMapping                    ,----- ** pageFreeFormFieldMapping-    pageFreeFormFieldMapping                ,----- ** pageFreeImageMapping-    pageFreeImageMapping                    ,----- ** pageFreeLinkMapping-    pageFreeLinkMapping                     ,----- ** pageFreeTextAttributes-    pageFreeTextAttributes                  ,----- ** pageGetAnnotMapping-    PageGetAnnotMappingMethodInfo           ,-    pageGetAnnotMapping                     ,----- ** pageGetCropBox-    PageGetCropBoxMethodInfo                ,-    pageGetCropBox                          ,----- ** pageGetDuration-    PageGetDurationMethodInfo               ,-    pageGetDuration                         ,----- ** pageGetFormFieldMapping-    PageGetFormFieldMappingMethodInfo       ,-    pageGetFormFieldMapping                 ,----- ** pageGetImage-    PageGetImageMethodInfo                  ,-    pageGetImage                            ,----- ** pageGetImageMapping-    PageGetImageMappingMethodInfo           ,-    pageGetImageMapping                     ,----- ** pageGetIndex-    PageGetIndexMethodInfo                  ,-    pageGetIndex                            ,----- ** pageGetLabel-    PageGetLabelMethodInfo                  ,-    pageGetLabel                            ,----- ** pageGetLinkMapping-    PageGetLinkMappingMethodInfo            ,-    pageGetLinkMapping                      ,----- ** pageGetSelectedRegion-    PageGetSelectedRegionMethodInfo         ,-    pageGetSelectedRegion                   ,----- ** pageGetSelectedText-    PageGetSelectedTextMethodInfo           ,-    pageGetSelectedText                     ,----- ** pageGetSelectionRegion-    PageGetSelectionRegionMethodInfo        ,-    pageGetSelectionRegion                  ,----- ** pageGetSize-    PageGetSizeMethodInfo                   ,-    pageGetSize                             ,----- ** pageGetText-    PageGetTextMethodInfo                   ,-    pageGetText                             ,----- ** pageGetTextAttributes-    PageGetTextAttributesMethodInfo         ,-    pageGetTextAttributes                   ,----- ** pageGetTextAttributesForArea-    PageGetTextAttributesForAreaMethodInfo  ,-    pageGetTextAttributesForArea            ,----- ** pageGetTextForArea-    PageGetTextForAreaMethodInfo            ,-    pageGetTextForArea                      ,----- ** pageGetTextLayout-    PageGetTextLayoutMethodInfo             ,-    pageGetTextLayout                       ,----- ** pageGetTextLayoutForArea-    PageGetTextLayoutForAreaMethodInfo      ,-    pageGetTextLayoutForArea                ,----- ** pageGetThumbnail-    PageGetThumbnailMethodInfo              ,-    pageGetThumbnail                        ,----- ** pageGetThumbnailSize-    PageGetThumbnailSizeMethodInfo          ,-    pageGetThumbnailSize                    ,----- ** pageGetTransition-    PageGetTransitionMethodInfo             ,-    pageGetTransition                       ,----- ** pageRemoveAnnot-    PageRemoveAnnotMethodInfo               ,-    pageRemoveAnnot                         ,----- ** pageRender-    PageRenderMethodInfo                    ,-    pageRender                              ,----- ** pageRenderForPrinting-    PageRenderForPrintingMethodInfo         ,-    pageRenderForPrinting                   ,----- ** pageRenderForPrintingWithOptions-    PageRenderForPrintingWithOptionsMethodInfo,-    pageRenderForPrintingWithOptions        ,----- ** pageRenderSelection-    PageRenderSelectionMethodInfo           ,-    pageRenderSelection                     ,----- ** pageRenderToPs-    PageRenderToPsMethodInfo                ,-    pageRenderToPs                          ,----- ** pageSelectionRegionFree-    pageSelectionRegionFree                 ,----- -- * Properties--- ** Label-    PageLabelPropertyInfo                   ,-    getPageLabel                            ,-    pageLabel                               ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks-import qualified GI.GObject as GObject-import qualified GI.Cairo as Cairo--newtype Page = Page (ForeignPtr Page)-foreign import ccall "poppler_page_get_type"-    c_poppler_page_get_type :: IO GType--type instance ParentTypes Page = PageParentTypes-type PageParentTypes = '[GObject.Object]--instance GObject Page where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_poppler_page_get_type-    --class GObject o => PageK o-instance (GObject o, IsDescendantOf Page o) => PageK o--toPage :: PageK o => o -> IO Page-toPage = unsafeCastTo Page--noPage :: Maybe Page-noPage = Nothing--type family ResolvePageMethod (t :: Symbol) (o :: *) :: * where-    ResolvePageMethod "addAnnot" o = PageAddAnnotMethodInfo-    ResolvePageMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolvePageMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolvePageMethod "findText" o = PageFindTextMethodInfo-    ResolvePageMethod "findTextWithOptions" o = PageFindTextWithOptionsMethodInfo-    ResolvePageMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolvePageMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolvePageMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolvePageMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolvePageMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolvePageMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolvePageMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolvePageMethod "removeAnnot" o = PageRemoveAnnotMethodInfo-    ResolvePageMethod "render" o = PageRenderMethodInfo-    ResolvePageMethod "renderForPrinting" o = PageRenderForPrintingMethodInfo-    ResolvePageMethod "renderForPrintingWithOptions" o = PageRenderForPrintingWithOptionsMethodInfo-    ResolvePageMethod "renderSelection" o = PageRenderSelectionMethodInfo-    ResolvePageMethod "renderToPs" o = PageRenderToPsMethodInfo-    ResolvePageMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolvePageMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolvePageMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolvePageMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolvePageMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolvePageMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolvePageMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolvePageMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolvePageMethod "getAnnotMapping" o = PageGetAnnotMappingMethodInfo-    ResolvePageMethod "getCropBox" o = PageGetCropBoxMethodInfo-    ResolvePageMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolvePageMethod "getDuration" o = PageGetDurationMethodInfo-    ResolvePageMethod "getFormFieldMapping" o = PageGetFormFieldMappingMethodInfo-    ResolvePageMethod "getImage" o = PageGetImageMethodInfo-    ResolvePageMethod "getImageMapping" o = PageGetImageMappingMethodInfo-    ResolvePageMethod "getIndex" o = PageGetIndexMethodInfo-    ResolvePageMethod "getLabel" o = PageGetLabelMethodInfo-    ResolvePageMethod "getLinkMapping" o = PageGetLinkMappingMethodInfo-    ResolvePageMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolvePageMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolvePageMethod "getSelectedRegion" o = PageGetSelectedRegionMethodInfo-    ResolvePageMethod "getSelectedText" o = PageGetSelectedTextMethodInfo-    ResolvePageMethod "getSelectionRegion" o = PageGetSelectionRegionMethodInfo-    ResolvePageMethod "getSize" o = PageGetSizeMethodInfo-    ResolvePageMethod "getText" o = PageGetTextMethodInfo-    ResolvePageMethod "getTextAttributes" o = PageGetTextAttributesMethodInfo-    ResolvePageMethod "getTextAttributesForArea" o = PageGetTextAttributesForAreaMethodInfo-    ResolvePageMethod "getTextForArea" o = PageGetTextForAreaMethodInfo-    ResolvePageMethod "getTextLayout" o = PageGetTextLayoutMethodInfo-    ResolvePageMethod "getTextLayoutForArea" o = PageGetTextLayoutForAreaMethodInfo-    ResolvePageMethod "getThumbnail" o = PageGetThumbnailMethodInfo-    ResolvePageMethod "getThumbnailSize" o = PageGetThumbnailSizeMethodInfo-    ResolvePageMethod "getTransition" o = PageGetTransitionMethodInfo-    ResolvePageMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolvePageMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolvePageMethod l o = MethodResolutionFailed l o--instance (info ~ ResolvePageMethod t Page, MethodInfo info Page p) => IsLabelProxy t (Page -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolvePageMethod t Page, MethodInfo info Page p) => IsLabel t (Page -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "label"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getPageLabel :: (MonadIO m, PageK o) => o -> m (Maybe T.Text)-getPageLabel obj = liftIO $ getObjectPropertyString obj "label"--data PageLabelPropertyInfo-instance AttrInfo PageLabelPropertyInfo where-    type AttrAllowedOps PageLabelPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint PageLabelPropertyInfo = (~) ()-    type AttrBaseTypeConstraint PageLabelPropertyInfo = PageK-    type AttrGetType PageLabelPropertyInfo = (Maybe T.Text)-    type AttrLabel PageLabelPropertyInfo = "label"-    attrGet _ = getPageLabel-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined--type instance AttributeList Page = PageAttributeList-type PageAttributeList = ('[ '("label", PageLabelPropertyInfo)] :: [(Symbol, *)])--pageLabel :: AttrLabelProxy "label"-pageLabel = AttrLabelProxy--type instance SignalList Page = PageSignalList-type PageSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method Page::add_annot--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "annot", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_page_add_annot" poppler_page_add_annot :: -    Ptr Page ->                             -- _obj : TInterface "Poppler" "Page"-    Ptr Annot ->                            -- annot : TInterface "Poppler" "Annot"-    IO ()---pageAddAnnot ::-    (MonadIO m, PageK a, AnnotK b) =>-    a                                       -- _obj-    -> b                                    -- annot-    -> m ()                                 -- result-pageAddAnnot _obj annot = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let annot' = unsafeManagedPtrCastPtr annot-    poppler_page_add_annot _obj' annot'-    touchManagedPtr _obj-    touchManagedPtr annot-    return ()--data PageAddAnnotMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, PageK a, AnnotK b) => MethodInfo PageAddAnnotMethodInfo a signature where-    overloadedMethod _ = pageAddAnnot---- method Page::find_text--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "Poppler" "Rectangle"))--- throws : False--- Skip return : False--foreign import ccall "poppler_page_find_text" poppler_page_find_text :: -    Ptr Page ->                             -- _obj : TInterface "Poppler" "Page"-    CString ->                              -- text : TBasicType TUTF8-    IO (Ptr (GList (Ptr Rectangle)))---pageFindText ::-    (MonadIO m, PageK a) =>-    a                                       -- _obj-    -> T.Text                               -- text-    -> m [Rectangle]                        -- result-pageFindText _obj text = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    text' <- textToCString text-    result <- poppler_page_find_text _obj' text'-    result' <- unpackGList result-    result'' <- mapM (wrapBoxed Rectangle) result'-    g_list_free result-    touchManagedPtr _obj-    freeMem text'-    return result''--data PageFindTextMethodInfo-instance (signature ~ (T.Text -> m [Rectangle]), MonadIO m, PageK a) => MethodInfo PageFindTextMethodInfo a signature where-    overloadedMethod _ = pageFindText---- method Page::find_text_with_options--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "options", argType = TInterface "Poppler" "FindFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "Poppler" "Rectangle"))--- throws : False--- Skip return : False--foreign import ccall "poppler_page_find_text_with_options" poppler_page_find_text_with_options :: -    Ptr Page ->                             -- _obj : TInterface "Poppler" "Page"-    CString ->                              -- text : TBasicType TUTF8-    CUInt ->                                -- options : TInterface "Poppler" "FindFlags"-    IO (Ptr (GList (Ptr Rectangle)))---pageFindTextWithOptions ::-    (MonadIO m, PageK a) =>-    a                                       -- _obj-    -> T.Text                               -- text-    -> [FindFlags]                          -- options-    -> m [Rectangle]                        -- result-pageFindTextWithOptions _obj text options = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    text' <- textToCString text-    let options' = gflagsToWord options-    result <- poppler_page_find_text_with_options _obj' text' options'-    result' <- unpackGList result-    result'' <- mapM (wrapBoxed Rectangle) result'-    g_list_free result-    touchManagedPtr _obj-    freeMem text'-    return result''--data PageFindTextWithOptionsMethodInfo-instance (signature ~ (T.Text -> [FindFlags] -> m [Rectangle]), MonadIO m, PageK a) => MethodInfo PageFindTextWithOptionsMethodInfo a signature where-    overloadedMethod _ = pageFindTextWithOptions---- method Page::get_annot_mapping--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "Poppler" "AnnotMapping"))--- throws : False--- Skip return : False--foreign import ccall "poppler_page_get_annot_mapping" poppler_page_get_annot_mapping :: -    Ptr Page ->                             -- _obj : TInterface "Poppler" "Page"-    IO (Ptr (GList (Ptr AnnotMapping)))---pageGetAnnotMapping ::-    (MonadIO m, PageK a) =>-    a                                       -- _obj-    -> m [AnnotMapping]                     -- result-pageGetAnnotMapping _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_page_get_annot_mapping _obj'-    result' <- unpackGList result-    result'' <- mapM (wrapBoxed AnnotMapping) result'-    g_list_free result-    touchManagedPtr _obj-    return result''--data PageGetAnnotMappingMethodInfo-instance (signature ~ (m [AnnotMapping]), MonadIO m, PageK a) => MethodInfo PageGetAnnotMappingMethodInfo a signature where-    overloadedMethod _ = pageGetAnnotMapping---- method Page::get_crop_box--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_page_get_crop_box" poppler_page_get_crop_box :: -    Ptr Page ->                             -- _obj : TInterface "Poppler" "Page"-    Ptr Rectangle ->                        -- rect : TInterface "Poppler" "Rectangle"-    IO ()---pageGetCropBox ::-    (MonadIO m, PageK a) =>-    a                                       -- _obj-    -> m (Rectangle)                        -- result-pageGetCropBox _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    rect <- callocBoxedBytes 32 :: IO (Ptr Rectangle)-    poppler_page_get_crop_box _obj' rect-    rect' <- (wrapBoxed Rectangle) rect-    touchManagedPtr _obj-    return rect'--data PageGetCropBoxMethodInfo-instance (signature ~ (m (Rectangle)), MonadIO m, PageK a) => MethodInfo PageGetCropBoxMethodInfo a signature where-    overloadedMethod _ = pageGetCropBox---- method Page::get_duration--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TDouble)--- throws : False--- Skip return : False--foreign import ccall "poppler_page_get_duration" poppler_page_get_duration :: -    Ptr Page ->                             -- _obj : TInterface "Poppler" "Page"-    IO CDouble---pageGetDuration ::-    (MonadIO m, PageK a) =>-    a                                       -- _obj-    -> m Double                             -- result-pageGetDuration _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_page_get_duration _obj'-    let result' = realToFrac result-    touchManagedPtr _obj-    return result'--data PageGetDurationMethodInfo-instance (signature ~ (m Double), MonadIO m, PageK a) => MethodInfo PageGetDurationMethodInfo a signature where-    overloadedMethod _ = pageGetDuration---- method Page::get_form_field_mapping--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "Poppler" "FormFieldMapping"))--- throws : False--- Skip return : False--foreign import ccall "poppler_page_get_form_field_mapping" poppler_page_get_form_field_mapping :: -    Ptr Page ->                             -- _obj : TInterface "Poppler" "Page"-    IO (Ptr (GList (Ptr FormFieldMapping)))---pageGetFormFieldMapping ::-    (MonadIO m, PageK a) =>-    a                                       -- _obj-    -> m [FormFieldMapping]                 -- result-pageGetFormFieldMapping _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_page_get_form_field_mapping _obj'-    result' <- unpackGList result-    result'' <- mapM (wrapBoxed FormFieldMapping) result'-    g_list_free result-    touchManagedPtr _obj-    return result''--data PageGetFormFieldMappingMethodInfo-instance (signature ~ (m [FormFieldMapping]), MonadIO m, PageK a) => MethodInfo PageGetFormFieldMappingMethodInfo a signature where-    overloadedMethod _ = pageGetFormFieldMapping---- method Page::get_image--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "image_id", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "cairo" "Surface")--- throws : False--- Skip return : False--foreign import ccall "poppler_page_get_image" poppler_page_get_image :: -    Ptr Page ->                             -- _obj : TInterface "Poppler" "Page"-    Int32 ->                                -- image_id : TBasicType TInt-    IO (Ptr Cairo.Surface)---pageGetImage ::-    (MonadIO m, PageK a) =>-    a                                       -- _obj-    -> Int32                                -- imageId-    -> m Cairo.Surface                      -- result-pageGetImage _obj imageId = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_page_get_image _obj' imageId-    checkUnexpectedReturnNULL "poppler_page_get_image" result-    result' <- (wrapBoxed Cairo.Surface) result-    touchManagedPtr _obj-    return result'--data PageGetImageMethodInfo-instance (signature ~ (Int32 -> m Cairo.Surface), MonadIO m, PageK a) => MethodInfo PageGetImageMethodInfo a signature where-    overloadedMethod _ = pageGetImage---- method Page::get_image_mapping--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "Poppler" "ImageMapping"))--- throws : False--- Skip return : False--foreign import ccall "poppler_page_get_image_mapping" poppler_page_get_image_mapping :: -    Ptr Page ->                             -- _obj : TInterface "Poppler" "Page"-    IO (Ptr (GList (Ptr ImageMapping)))---pageGetImageMapping ::-    (MonadIO m, PageK a) =>-    a                                       -- _obj-    -> m [ImageMapping]                     -- result-pageGetImageMapping _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_page_get_image_mapping _obj'-    result' <- unpackGList result-    result'' <- mapM (wrapBoxed ImageMapping) result'-    g_list_free result-    touchManagedPtr _obj-    return result''--data PageGetImageMappingMethodInfo-instance (signature ~ (m [ImageMapping]), MonadIO m, PageK a) => MethodInfo PageGetImageMappingMethodInfo a signature where-    overloadedMethod _ = pageGetImageMapping---- method Page::get_index--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "poppler_page_get_index" poppler_page_get_index :: -    Ptr Page ->                             -- _obj : TInterface "Poppler" "Page"-    IO Int32---pageGetIndex ::-    (MonadIO m, PageK a) =>-    a                                       -- _obj-    -> m Int32                              -- result-pageGetIndex _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_page_get_index _obj'-    touchManagedPtr _obj-    return result--data PageGetIndexMethodInfo-instance (signature ~ (m Int32), MonadIO m, PageK a) => MethodInfo PageGetIndexMethodInfo a signature where-    overloadedMethod _ = pageGetIndex---- method Page::get_label--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "poppler_page_get_label" poppler_page_get_label :: -    Ptr Page ->                             -- _obj : TInterface "Poppler" "Page"-    IO CString---pageGetLabel ::-    (MonadIO m, PageK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-pageGetLabel _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_page_get_label _obj'-    checkUnexpectedReturnNULL "poppler_page_get_label" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data PageGetLabelMethodInfo-instance (signature ~ (m T.Text), MonadIO m, PageK a) => MethodInfo PageGetLabelMethodInfo a signature where-    overloadedMethod _ = pageGetLabel---- method Page::get_link_mapping--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "Poppler" "LinkMapping"))--- throws : False--- Skip return : False--foreign import ccall "poppler_page_get_link_mapping" poppler_page_get_link_mapping :: -    Ptr Page ->                             -- _obj : TInterface "Poppler" "Page"-    IO (Ptr (GList (Ptr LinkMapping)))---pageGetLinkMapping ::-    (MonadIO m, PageK a) =>-    a                                       -- _obj-    -> m [LinkMapping]                      -- result-pageGetLinkMapping _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_page_get_link_mapping _obj'-    result' <- unpackGList result-    result'' <- mapM (wrapBoxed LinkMapping) result'-    g_list_free result-    touchManagedPtr _obj-    return result''--data PageGetLinkMappingMethodInfo-instance (signature ~ (m [LinkMapping]), MonadIO m, PageK a) => MethodInfo PageGetLinkMappingMethodInfo a signature where-    overloadedMethod _ = pageGetLinkMapping---- method Page::get_selected_region--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Poppler" "SelectionStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "cairo" "Region")--- throws : False--- Skip return : False--foreign import ccall "poppler_page_get_selected_region" poppler_page_get_selected_region :: -    Ptr Page ->                             -- _obj : TInterface "Poppler" "Page"-    CDouble ->                              -- scale : TBasicType TDouble-    CUInt ->                                -- style : TInterface "Poppler" "SelectionStyle"-    Ptr Rectangle ->                        -- selection : TInterface "Poppler" "Rectangle"-    IO (Ptr Cairo.Region)---pageGetSelectedRegion ::-    (MonadIO m, PageK a) =>-    a                                       -- _obj-    -> Double                               -- scale-    -> SelectionStyle                       -- style-    -> Rectangle                            -- selection-    -> m Cairo.Region                       -- result-pageGetSelectedRegion _obj scale style selection = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let scale' = realToFrac scale-    let style' = (fromIntegral . fromEnum) style-    let selection' = unsafeManagedPtrGetPtr selection-    result <- poppler_page_get_selected_region _obj' scale' style' selection'-    checkUnexpectedReturnNULL "poppler_page_get_selected_region" result-    result' <- (wrapBoxed Cairo.Region) result-    touchManagedPtr _obj-    touchManagedPtr selection-    return result'--data PageGetSelectedRegionMethodInfo-instance (signature ~ (Double -> SelectionStyle -> Rectangle -> m Cairo.Region), MonadIO m, PageK a) => MethodInfo PageGetSelectedRegionMethodInfo a signature where-    overloadedMethod _ = pageGetSelectedRegion---- method Page::get_selected_text--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Poppler" "SelectionStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "poppler_page_get_selected_text" poppler_page_get_selected_text :: -    Ptr Page ->                             -- _obj : TInterface "Poppler" "Page"-    CUInt ->                                -- style : TInterface "Poppler" "SelectionStyle"-    Ptr Rectangle ->                        -- selection : TInterface "Poppler" "Rectangle"-    IO CString---pageGetSelectedText ::-    (MonadIO m, PageK a) =>-    a                                       -- _obj-    -> SelectionStyle                       -- style-    -> Rectangle                            -- selection-    -> m T.Text                             -- result-pageGetSelectedText _obj style selection = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let style' = (fromIntegral . fromEnum) style-    let selection' = unsafeManagedPtrGetPtr selection-    result <- poppler_page_get_selected_text _obj' style' selection'-    checkUnexpectedReturnNULL "poppler_page_get_selected_text" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    touchManagedPtr selection-    return result'--data PageGetSelectedTextMethodInfo-instance (signature ~ (SelectionStyle -> Rectangle -> m T.Text), MonadIO m, PageK a) => MethodInfo PageGetSelectedTextMethodInfo a signature where-    overloadedMethod _ = pageGetSelectedText---- method Page::get_selection_region--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Poppler" "SelectionStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "Poppler" "Rectangle"))--- throws : False--- Skip return : False--foreign import ccall "poppler_page_get_selection_region" poppler_page_get_selection_region :: -    Ptr Page ->                             -- _obj : TInterface "Poppler" "Page"-    CDouble ->                              -- scale : TBasicType TDouble-    CUInt ->                                -- style : TInterface "Poppler" "SelectionStyle"-    Ptr Rectangle ->                        -- selection : TInterface "Poppler" "Rectangle"-    IO (Ptr (GList (Ptr Rectangle)))--{-# DEPRECATED pageGetSelectionRegion ["(Since version 0.16)","Use poppler_page_get_selected_region() instead."]#-}-pageGetSelectionRegion ::-    (MonadIO m, PageK a) =>-    a                                       -- _obj-    -> Double                               -- scale-    -> SelectionStyle                       -- style-    -> Rectangle                            -- selection-    -> m [Rectangle]                        -- result-pageGetSelectionRegion _obj scale style selection = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let scale' = realToFrac scale-    let style' = (fromIntegral . fromEnum) style-    let selection' = unsafeManagedPtrGetPtr selection-    result <- poppler_page_get_selection_region _obj' scale' style' selection'-    result' <- unpackGList result-    result'' <- mapM (wrapBoxed Rectangle) result'-    g_list_free result-    touchManagedPtr _obj-    touchManagedPtr selection-    return result''--data PageGetSelectionRegionMethodInfo-instance (signature ~ (Double -> SelectionStyle -> Rectangle -> m [Rectangle]), MonadIO m, PageK a) => MethodInfo PageGetSelectionRegionMethodInfo a signature where-    overloadedMethod _ = pageGetSelectionRegion---- method Page::get_size--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_page_get_size" poppler_page_get_size :: -    Ptr Page ->                             -- _obj : TInterface "Poppler" "Page"-    Ptr CDouble ->                          -- width : TBasicType TDouble-    Ptr CDouble ->                          -- height : TBasicType TDouble-    IO ()---pageGetSize ::-    (MonadIO m, PageK a) =>-    a                                       -- _obj-    -> m (Double,Double)                    -- result-pageGetSize _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    width <- allocMem :: IO (Ptr CDouble)-    height <- allocMem :: IO (Ptr CDouble)-    poppler_page_get_size _obj' width height-    width' <- peek width-    let width'' = realToFrac width'-    height' <- peek height-    let height'' = realToFrac height'-    touchManagedPtr _obj-    freeMem width-    freeMem height-    return (width'', height'')--data PageGetSizeMethodInfo-instance (signature ~ (m (Double,Double)), MonadIO m, PageK a) => MethodInfo PageGetSizeMethodInfo a signature where-    overloadedMethod _ = pageGetSize---- method Page::get_text--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "poppler_page_get_text" poppler_page_get_text :: -    Ptr Page ->                             -- _obj : TInterface "Poppler" "Page"-    IO CString---pageGetText ::-    (MonadIO m, PageK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-pageGetText _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_page_get_text _obj'-    checkUnexpectedReturnNULL "poppler_page_get_text" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data PageGetTextMethodInfo-instance (signature ~ (m T.Text), MonadIO m, PageK a) => MethodInfo PageGetTextMethodInfo a signature where-    overloadedMethod _ = pageGetText---- method Page::get_text_attributes--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "Poppler" "TextAttributes"))--- throws : False--- Skip return : False--foreign import ccall "poppler_page_get_text_attributes" poppler_page_get_text_attributes :: -    Ptr Page ->                             -- _obj : TInterface "Poppler" "Page"-    IO (Ptr (GList (Ptr TextAttributes)))---pageGetTextAttributes ::-    (MonadIO m, PageK a) =>-    a                                       -- _obj-    -> m [TextAttributes]                   -- result-pageGetTextAttributes _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_page_get_text_attributes _obj'-    result' <- unpackGList result-    result'' <- mapM (wrapBoxed TextAttributes) result'-    g_list_free result-    touchManagedPtr _obj-    return result''--data PageGetTextAttributesMethodInfo-instance (signature ~ (m [TextAttributes]), MonadIO m, PageK a) => MethodInfo PageGetTextAttributesMethodInfo a signature where-    overloadedMethod _ = pageGetTextAttributes---- method Page::get_text_attributes_for_area--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "area", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "Poppler" "TextAttributes"))--- throws : False--- Skip return : False--foreign import ccall "poppler_page_get_text_attributes_for_area" poppler_page_get_text_attributes_for_area :: -    Ptr Page ->                             -- _obj : TInterface "Poppler" "Page"-    Ptr Rectangle ->                        -- area : TInterface "Poppler" "Rectangle"-    IO (Ptr (GList (Ptr TextAttributes)))---pageGetTextAttributesForArea ::-    (MonadIO m, PageK a) =>-    a                                       -- _obj-    -> Rectangle                            -- area-    -> m [TextAttributes]                   -- result-pageGetTextAttributesForArea _obj area = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let area' = unsafeManagedPtrGetPtr area-    result <- poppler_page_get_text_attributes_for_area _obj' area'-    result' <- unpackGList result-    result'' <- mapM (wrapBoxed TextAttributes) result'-    g_list_free result-    touchManagedPtr _obj-    touchManagedPtr area-    return result''--data PageGetTextAttributesForAreaMethodInfo-instance (signature ~ (Rectangle -> m [TextAttributes]), MonadIO m, PageK a) => MethodInfo PageGetTextAttributesForAreaMethodInfo a signature where-    overloadedMethod _ = pageGetTextAttributesForArea---- method Page::get_text_for_area--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "area", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "poppler_page_get_text_for_area" poppler_page_get_text_for_area :: -    Ptr Page ->                             -- _obj : TInterface "Poppler" "Page"-    Ptr Rectangle ->                        -- area : TInterface "Poppler" "Rectangle"-    IO CString---pageGetTextForArea ::-    (MonadIO m, PageK a) =>-    a                                       -- _obj-    -> Rectangle                            -- area-    -> m T.Text                             -- result-pageGetTextForArea _obj area = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let area' = unsafeManagedPtrGetPtr area-    result <- poppler_page_get_text_for_area _obj' area'-    checkUnexpectedReturnNULL "poppler_page_get_text_for_area" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    touchManagedPtr area-    return result'--data PageGetTextForAreaMethodInfo-instance (signature ~ (Rectangle -> m T.Text), MonadIO m, PageK a) => MethodInfo PageGetTextForAreaMethodInfo a signature where-    overloadedMethod _ = pageGetTextForArea---- method Page::get_text_layout--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rectangles", argType = TCArray False (-1) 2 (TInterface "Poppler" "Rectangle"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferContainer},Arg {argCName = "n_rectangles", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "n_rectangles", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "poppler_page_get_text_layout" poppler_page_get_text_layout :: -    Ptr Page ->                             -- _obj : TInterface "Poppler" "Page"-    Ptr (Ptr Rectangle) ->                  -- rectangles : TCArray False (-1) 2 (TInterface "Poppler" "Rectangle")-    Ptr Word32 ->                           -- n_rectangles : TBasicType TUInt-    IO CInt---pageGetTextLayout ::-    (MonadIO m, PageK a) =>-    a                                       -- _obj-    -> m (Bool,[Rectangle])                 -- result-pageGetTextLayout _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    rectangles <- allocMem :: IO (Ptr (Ptr Rectangle))-    nRectangles <- allocMem :: IO (Ptr Word32)-    result <- poppler_page_get_text_layout _obj' rectangles nRectangles-    nRectangles' <- peek nRectangles-    let result' = (/= 0) result-    rectangles' <- peek rectangles-    rectangles'' <- (unpackBoxedArrayWithLength 32 nRectangles') rectangles'-    rectangles''' <- mapM (newBoxed Rectangle) rectangles''-    freeMem rectangles'-    touchManagedPtr _obj-    freeMem rectangles-    freeMem nRectangles-    return (result', rectangles''')--data PageGetTextLayoutMethodInfo-instance (signature ~ (m (Bool,[Rectangle])), MonadIO m, PageK a) => MethodInfo PageGetTextLayoutMethodInfo a signature where-    overloadedMethod _ = pageGetTextLayout---- method Page::get_text_layout_for_area--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "area", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rectangles", argType = TCArray False (-1) 3 (TInterface "Poppler" "Rectangle"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferContainer},Arg {argCName = "n_rectangles", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "n_rectangles", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "poppler_page_get_text_layout_for_area" poppler_page_get_text_layout_for_area :: -    Ptr Page ->                             -- _obj : TInterface "Poppler" "Page"-    Ptr Rectangle ->                        -- area : TInterface "Poppler" "Rectangle"-    Ptr (Ptr Rectangle) ->                  -- rectangles : TCArray False (-1) 3 (TInterface "Poppler" "Rectangle")-    Ptr Word32 ->                           -- n_rectangles : TBasicType TUInt-    IO CInt---pageGetTextLayoutForArea ::-    (MonadIO m, PageK a) =>-    a                                       -- _obj-    -> Rectangle                            -- area-    -> m (Bool,[Rectangle])                 -- result-pageGetTextLayoutForArea _obj area = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let area' = unsafeManagedPtrGetPtr area-    rectangles <- allocMem :: IO (Ptr (Ptr Rectangle))-    nRectangles <- allocMem :: IO (Ptr Word32)-    result <- poppler_page_get_text_layout_for_area _obj' area' rectangles nRectangles-    nRectangles' <- peek nRectangles-    let result' = (/= 0) result-    rectangles' <- peek rectangles-    rectangles'' <- (unpackBoxedArrayWithLength 32 nRectangles') rectangles'-    rectangles''' <- mapM (newBoxed Rectangle) rectangles''-    freeMem rectangles'-    touchManagedPtr _obj-    touchManagedPtr area-    freeMem rectangles-    freeMem nRectangles-    return (result', rectangles''')--data PageGetTextLayoutForAreaMethodInfo-instance (signature ~ (Rectangle -> m (Bool,[Rectangle])), MonadIO m, PageK a) => MethodInfo PageGetTextLayoutForAreaMethodInfo a signature where-    overloadedMethod _ = pageGetTextLayoutForArea---- method Page::get_thumbnail--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "cairo" "Surface")--- throws : False--- Skip return : False--foreign import ccall "poppler_page_get_thumbnail" poppler_page_get_thumbnail :: -    Ptr Page ->                             -- _obj : TInterface "Poppler" "Page"-    IO (Ptr Cairo.Surface)---pageGetThumbnail ::-    (MonadIO m, PageK a) =>-    a                                       -- _obj-    -> m Cairo.Surface                      -- result-pageGetThumbnail _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_page_get_thumbnail _obj'-    checkUnexpectedReturnNULL "poppler_page_get_thumbnail" result-    result' <- (wrapBoxed Cairo.Surface) result-    touchManagedPtr _obj-    return result'--data PageGetThumbnailMethodInfo-instance (signature ~ (m Cairo.Surface), MonadIO m, PageK a) => MethodInfo PageGetThumbnailMethodInfo a signature where-    overloadedMethod _ = pageGetThumbnail---- method Page::get_thumbnail_size--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "poppler_page_get_thumbnail_size" poppler_page_get_thumbnail_size :: -    Ptr Page ->                             -- _obj : TInterface "Poppler" "Page"-    Ptr Int32 ->                            -- width : TBasicType TInt-    Ptr Int32 ->                            -- height : TBasicType TInt-    IO CInt---pageGetThumbnailSize ::-    (MonadIO m, PageK a) =>-    a                                       -- _obj-    -> m (Bool,Int32,Int32)                 -- result-pageGetThumbnailSize _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    width <- allocMem :: IO (Ptr Int32)-    height <- allocMem :: IO (Ptr Int32)-    result <- poppler_page_get_thumbnail_size _obj' width height-    let result' = (/= 0) result-    width' <- peek width-    height' <- peek height-    touchManagedPtr _obj-    freeMem width-    freeMem height-    return (result', width', height')--data PageGetThumbnailSizeMethodInfo-instance (signature ~ (m (Bool,Int32,Int32)), MonadIO m, PageK a) => MethodInfo PageGetThumbnailSizeMethodInfo a signature where-    overloadedMethod _ = pageGetThumbnailSize---- method Page::get_transition--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "PageTransition")--- throws : False--- Skip return : False--foreign import ccall "poppler_page_get_transition" poppler_page_get_transition :: -    Ptr Page ->                             -- _obj : TInterface "Poppler" "Page"-    IO (Ptr PageTransition)---pageGetTransition ::-    (MonadIO m, PageK a) =>-    a                                       -- _obj-    -> m PageTransition                     -- result-pageGetTransition _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_page_get_transition _obj'-    checkUnexpectedReturnNULL "poppler_page_get_transition" result-    result' <- (wrapBoxed PageTransition) result-    touchManagedPtr _obj-    return result'--data PageGetTransitionMethodInfo-instance (signature ~ (m PageTransition), MonadIO m, PageK a) => MethodInfo PageGetTransitionMethodInfo a signature where-    overloadedMethod _ = pageGetTransition---- method Page::remove_annot--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "annot", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_page_remove_annot" poppler_page_remove_annot :: -    Ptr Page ->                             -- _obj : TInterface "Poppler" "Page"-    Ptr Annot ->                            -- annot : TInterface "Poppler" "Annot"-    IO ()---pageRemoveAnnot ::-    (MonadIO m, PageK a, AnnotK b) =>-    a                                       -- _obj-    -> b                                    -- annot-    -> m ()                                 -- result-pageRemoveAnnot _obj annot = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let annot' = unsafeManagedPtrCastPtr annot-    poppler_page_remove_annot _obj' annot'-    touchManagedPtr _obj-    touchManagedPtr annot-    return ()--data PageRemoveAnnotMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, PageK a, AnnotK b) => MethodInfo PageRemoveAnnotMethodInfo a signature where-    overloadedMethod _ = pageRemoveAnnot---- method Page::render--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cairo", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_page_render" poppler_page_render :: -    Ptr Page ->                             -- _obj : TInterface "Poppler" "Page"-    Ptr Cairo.Context ->                    -- cairo : TInterface "cairo" "Context"-    IO ()---pageRender ::-    (MonadIO m, PageK a) =>-    a                                       -- _obj-    -> Cairo.Context                        -- cairo-    -> m ()                                 -- result-pageRender _obj cairo = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let cairo' = unsafeManagedPtrGetPtr cairo-    poppler_page_render _obj' cairo'-    touchManagedPtr _obj-    touchManagedPtr cairo-    return ()--data PageRenderMethodInfo-instance (signature ~ (Cairo.Context -> m ()), MonadIO m, PageK a) => MethodInfo PageRenderMethodInfo a signature where-    overloadedMethod _ = pageRender---- method Page::render_for_printing--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cairo", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_page_render_for_printing" poppler_page_render_for_printing :: -    Ptr Page ->                             -- _obj : TInterface "Poppler" "Page"-    Ptr Cairo.Context ->                    -- cairo : TInterface "cairo" "Context"-    IO ()---pageRenderForPrinting ::-    (MonadIO m, PageK a) =>-    a                                       -- _obj-    -> Cairo.Context                        -- cairo-    -> m ()                                 -- result-pageRenderForPrinting _obj cairo = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let cairo' = unsafeManagedPtrGetPtr cairo-    poppler_page_render_for_printing _obj' cairo'-    touchManagedPtr _obj-    touchManagedPtr cairo-    return ()--data PageRenderForPrintingMethodInfo-instance (signature ~ (Cairo.Context -> m ()), MonadIO m, PageK a) => MethodInfo PageRenderForPrintingMethodInfo a signature where-    overloadedMethod _ = pageRenderForPrinting---- method Page::render_for_printing_with_options--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cairo", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "options", argType = TInterface "Poppler" "PrintFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_page_render_for_printing_with_options" poppler_page_render_for_printing_with_options :: -    Ptr Page ->                             -- _obj : TInterface "Poppler" "Page"-    Ptr Cairo.Context ->                    -- cairo : TInterface "cairo" "Context"-    CUInt ->                                -- options : TInterface "Poppler" "PrintFlags"-    IO ()---pageRenderForPrintingWithOptions ::-    (MonadIO m, PageK a) =>-    a                                       -- _obj-    -> Cairo.Context                        -- cairo-    -> [PrintFlags]                         -- options-    -> m ()                                 -- result-pageRenderForPrintingWithOptions _obj cairo options = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let cairo' = unsafeManagedPtrGetPtr cairo-    let options' = gflagsToWord options-    poppler_page_render_for_printing_with_options _obj' cairo' options'-    touchManagedPtr _obj-    touchManagedPtr cairo-    return ()--data PageRenderForPrintingWithOptionsMethodInfo-instance (signature ~ (Cairo.Context -> [PrintFlags] -> m ()), MonadIO m, PageK a) => MethodInfo PageRenderForPrintingWithOptionsMethodInfo a signature where-    overloadedMethod _ = pageRenderForPrintingWithOptions---- method Page::render_selection--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cairo", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "old_selection", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Poppler" "SelectionStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "glyph_color", argType = TInterface "Poppler" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "background_color", argType = TInterface "Poppler" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_page_render_selection" poppler_page_render_selection :: -    Ptr Page ->                             -- _obj : TInterface "Poppler" "Page"-    Ptr Cairo.Context ->                    -- cairo : TInterface "cairo" "Context"-    Ptr Rectangle ->                        -- selection : TInterface "Poppler" "Rectangle"-    Ptr Rectangle ->                        -- old_selection : TInterface "Poppler" "Rectangle"-    CUInt ->                                -- style : TInterface "Poppler" "SelectionStyle"-    Ptr Color ->                            -- glyph_color : TInterface "Poppler" "Color"-    Ptr Color ->                            -- background_color : TInterface "Poppler" "Color"-    IO ()---pageRenderSelection ::-    (MonadIO m, PageK a) =>-    a                                       -- _obj-    -> Cairo.Context                        -- cairo-    -> Rectangle                            -- selection-    -> Rectangle                            -- oldSelection-    -> SelectionStyle                       -- style-    -> Color                                -- glyphColor-    -> Color                                -- backgroundColor-    -> m ()                                 -- result-pageRenderSelection _obj cairo selection oldSelection style glyphColor backgroundColor = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let cairo' = unsafeManagedPtrGetPtr cairo-    let selection' = unsafeManagedPtrGetPtr selection-    let oldSelection' = unsafeManagedPtrGetPtr oldSelection-    let style' = (fromIntegral . fromEnum) style-    let glyphColor' = unsafeManagedPtrGetPtr glyphColor-    let backgroundColor' = unsafeManagedPtrGetPtr backgroundColor-    poppler_page_render_selection _obj' cairo' selection' oldSelection' style' glyphColor' backgroundColor'-    touchManagedPtr _obj-    touchManagedPtr cairo-    touchManagedPtr selection-    touchManagedPtr oldSelection-    touchManagedPtr glyphColor-    touchManagedPtr backgroundColor-    return ()--data PageRenderSelectionMethodInfo-instance (signature ~ (Cairo.Context -> Rectangle -> Rectangle -> SelectionStyle -> Color -> Color -> m ()), MonadIO m, PageK a) => MethodInfo PageRenderSelectionMethodInfo a signature where-    overloadedMethod _ = pageRenderSelection---- method Page::render_to_ps--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ps_file", argType = TInterface "Poppler" "PSFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_page_render_to_ps" poppler_page_render_to_ps :: -    Ptr Page ->                             -- _obj : TInterface "Poppler" "Page"-    Ptr PSFile ->                           -- ps_file : TInterface "Poppler" "PSFile"-    IO ()---pageRenderToPs ::-    (MonadIO m, PageK a, PSFileK b) =>-    a                                       -- _obj-    -> b                                    -- psFile-    -> m ()                                 -- result-pageRenderToPs _obj psFile = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let psFile' = unsafeManagedPtrCastPtr psFile-    poppler_page_render_to_ps _obj' psFile'-    touchManagedPtr _obj-    touchManagedPtr psFile-    return ()--data PageRenderToPsMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, PageK a, PSFileK b) => MethodInfo PageRenderToPsMethodInfo a signature where-    overloadedMethod _ = pageRenderToPs---- method Page::free_annot_mapping--- method type : MemberFunction--- Args : [Arg {argCName = "list", argType = TGList (TInterface "Poppler" "AnnotMapping"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_page_free_annot_mapping" poppler_page_free_annot_mapping :: -    Ptr (GList (Ptr AnnotMapping)) ->       -- list : TGList (TInterface "Poppler" "AnnotMapping")-    IO ()---pageFreeAnnotMapping ::-    (MonadIO m) =>-    [AnnotMapping]                          -- list-    -> m ()                                 -- result-pageFreeAnnotMapping list = liftIO $ do-    let list' = map unsafeManagedPtrGetPtr list-    list'' <- packGList list'-    poppler_page_free_annot_mapping list''-    mapM_ touchManagedPtr list-    g_list_free list''-    return ()---- method Page::free_form_field_mapping--- method type : MemberFunction--- Args : [Arg {argCName = "list", argType = TGList (TInterface "Poppler" "FormFieldMapping"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_page_free_form_field_mapping" poppler_page_free_form_field_mapping :: -    Ptr (GList (Ptr FormFieldMapping)) ->   -- list : TGList (TInterface "Poppler" "FormFieldMapping")-    IO ()---pageFreeFormFieldMapping ::-    (MonadIO m) =>-    [FormFieldMapping]                      -- list-    -> m ()                                 -- result-pageFreeFormFieldMapping list = liftIO $ do-    let list' = map unsafeManagedPtrGetPtr list-    list'' <- packGList list'-    poppler_page_free_form_field_mapping list''-    mapM_ touchManagedPtr list-    g_list_free list''-    return ()---- method Page::free_image_mapping--- method type : MemberFunction--- Args : [Arg {argCName = "list", argType = TGList (TInterface "Poppler" "ImageMapping"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_page_free_image_mapping" poppler_page_free_image_mapping :: -    Ptr (GList (Ptr ImageMapping)) ->       -- list : TGList (TInterface "Poppler" "ImageMapping")-    IO ()---pageFreeImageMapping ::-    (MonadIO m) =>-    [ImageMapping]                          -- list-    -> m ()                                 -- result-pageFreeImageMapping list = liftIO $ do-    let list' = map unsafeManagedPtrGetPtr list-    list'' <- packGList list'-    poppler_page_free_image_mapping list''-    mapM_ touchManagedPtr list-    g_list_free list''-    return ()---- method Page::free_link_mapping--- method type : MemberFunction--- Args : [Arg {argCName = "list", argType = TGList (TInterface "Poppler" "LinkMapping"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_page_free_link_mapping" poppler_page_free_link_mapping :: -    Ptr (GList (Ptr LinkMapping)) ->        -- list : TGList (TInterface "Poppler" "LinkMapping")-    IO ()---pageFreeLinkMapping ::-    (MonadIO m) =>-    [LinkMapping]                           -- list-    -> m ()                                 -- result-pageFreeLinkMapping list = liftIO $ do-    let list' = map unsafeManagedPtrGetPtr list-    list'' <- packGList list'-    poppler_page_free_link_mapping list''-    mapM_ touchManagedPtr list-    g_list_free list''-    return ()---- method Page::free_text_attributes--- method type : MemberFunction--- Args : [Arg {argCName = "list", argType = TGList (TInterface "Poppler" "TextAttributes"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_page_free_text_attributes" poppler_page_free_text_attributes :: -    Ptr (GList (Ptr TextAttributes)) ->     -- list : TGList (TInterface "Poppler" "TextAttributes")-    IO ()---pageFreeTextAttributes ::-    (MonadIO m) =>-    [TextAttributes]                        -- list-    -> m ()                                 -- result-pageFreeTextAttributes list = liftIO $ do-    let list' = map unsafeManagedPtrGetPtr list-    list'' <- packGList list'-    poppler_page_free_text_attributes list''-    mapM_ touchManagedPtr list-    g_list_free list''-    return ()---- method Page::selection_region_free--- method type : MemberFunction--- Args : [Arg {argCName = "region", argType = TGList (TInterface "Poppler" "Rectangle"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_page_selection_region_free" poppler_page_selection_region_free :: -    Ptr (GList (Ptr Rectangle)) ->          -- region : TGList (TInterface "Poppler" "Rectangle")-    IO ()--{-# DEPRECATED pageSelectionRegionFree ["(Since version 0.16)"]#-}-pageSelectionRegionFree ::-    (MonadIO m) =>-    [Rectangle]                             -- region-    -> m ()                                 -- result-pageSelectionRegionFree region = liftIO $ do-    let region' = map unsafeManagedPtrGetPtr region-    region'' <- packGList region'-    poppler_page_selection_region_free region''-    mapM_ touchManagedPtr region-    g_list_free region''-    return ()--
− GI/Poppler/Objects/Page.hs-boot 
@@ -1,45 +0,0 @@-module GI.Poppler.Objects.Page where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Page = Page (ForeignPtr Page)-instance GObject Page where-class GObject o => PageK o-instance (GObject o, IsDescendantOf Page o) => PageK o-data PageLabelPropertyInfo-data PageAddAnnotMethodInfo-data PageFindTextMethodInfo-data PageFindTextWithOptionsMethodInfo-data PageGetAnnotMappingMethodInfo-data PageGetCropBoxMethodInfo-data PageGetDurationMethodInfo-data PageGetFormFieldMappingMethodInfo-data PageGetImageMethodInfo-data PageGetImageMappingMethodInfo-data PageGetIndexMethodInfo-data PageGetLabelMethodInfo-data PageGetLinkMappingMethodInfo-data PageGetSelectedRegionMethodInfo-data PageGetSelectedTextMethodInfo-data PageGetSelectionRegionMethodInfo-data PageGetSizeMethodInfo-data PageGetTextMethodInfo-data PageGetTextAttributesMethodInfo-data PageGetTextAttributesForAreaMethodInfo-data PageGetTextForAreaMethodInfo-data PageGetTextLayoutMethodInfo-data PageGetTextLayoutForAreaMethodInfo-data PageGetThumbnailMethodInfo-data PageGetThumbnailSizeMethodInfo-data PageGetTransitionMethodInfo-data PageRemoveAnnotMethodInfo-data PageRenderMethodInfo-data PageRenderForPrintingMethodInfo-data PageRenderForPrintingWithOptionsMethodInfo-data PageRenderSelectionMethodInfo-data PageRenderToPsMethodInfo
− GI/Poppler/Objects/StructureElement.hs 
@@ -1,2052 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Poppler.Objects.StructureElement-    ( ---- * Exported types-    StructureElement(..)                    ,-    StructureElementK                       ,-    toStructureElement                      ,-    noStructureElement                      ,--- -- * Methods--- ** structureElementGetAbbreviation-    StructureElementGetAbbreviationMethodInfo,-    structureElementGetAbbreviation         ,----- ** structureElementGetActualText-    StructureElementGetActualTextMethodInfo ,-    structureElementGetActualText           ,----- ** structureElementGetAltText-    StructureElementGetAltTextMethodInfo    ,-    structureElementGetAltText              ,----- ** structureElementGetBackgroundColor-    StructureElementGetBackgroundColorMethodInfo,-    structureElementGetBackgroundColor      ,----- ** structureElementGetBaselineShift-    StructureElementGetBaselineShiftMethodInfo,-    structureElementGetBaselineShift        ,----- ** structureElementGetBlockAlign-    StructureElementGetBlockAlignMethodInfo ,-    structureElementGetBlockAlign           ,----- ** structureElementGetBorderColor-    StructureElementGetBorderColorMethodInfo,-    structureElementGetBorderColor          ,----- ** structureElementGetBorderStyle-    StructureElementGetBorderStyleMethodInfo,-    structureElementGetBorderStyle          ,----- ** structureElementGetBorderThickness-    StructureElementGetBorderThicknessMethodInfo,-    structureElementGetBorderThickness      ,----- ** structureElementGetBoundingBox-    StructureElementGetBoundingBoxMethodInfo,-    structureElementGetBoundingBox          ,----- ** structureElementGetColor-    StructureElementGetColorMethodInfo      ,-    structureElementGetColor                ,----- ** structureElementGetColumnCount-    StructureElementGetColumnCountMethodInfo,-    structureElementGetColumnCount          ,----- ** structureElementGetColumnGaps-    StructureElementGetColumnGapsMethodInfo ,-    structureElementGetColumnGaps           ,----- ** structureElementGetColumnWidths-    StructureElementGetColumnWidthsMethodInfo,-    structureElementGetColumnWidths         ,----- ** structureElementGetEndIndent-    StructureElementGetEndIndentMethodInfo  ,-    structureElementGetEndIndent            ,----- ** structureElementGetFormDescription-    StructureElementGetFormDescriptionMethodInfo,-    structureElementGetFormDescription      ,----- ** structureElementGetFormRole-    StructureElementGetFormRoleMethodInfo   ,-    structureElementGetFormRole             ,----- ** structureElementGetFormState-    StructureElementGetFormStateMethodInfo  ,-    structureElementGetFormState            ,----- ** structureElementGetGlyphOrientation-    StructureElementGetGlyphOrientationMethodInfo,-    structureElementGetGlyphOrientation     ,----- ** structureElementGetHeight-    StructureElementGetHeightMethodInfo     ,-    structureElementGetHeight               ,----- ** structureElementGetId-    StructureElementGetIdMethodInfo         ,-    structureElementGetId                   ,----- ** structureElementGetInlineAlign-    StructureElementGetInlineAlignMethodInfo,-    structureElementGetInlineAlign          ,----- ** structureElementGetKind-    StructureElementGetKindMethodInfo       ,-    structureElementGetKind                 ,----- ** structureElementGetLanguage-    StructureElementGetLanguageMethodInfo   ,-    structureElementGetLanguage             ,----- ** structureElementGetLineHeight-    StructureElementGetLineHeightMethodInfo ,-    structureElementGetLineHeight           ,----- ** structureElementGetListNumbering-    StructureElementGetListNumberingMethodInfo,-    structureElementGetListNumbering        ,----- ** structureElementGetPadding-    StructureElementGetPaddingMethodInfo    ,-    structureElementGetPadding              ,----- ** structureElementGetPage-    StructureElementGetPageMethodInfo       ,-    structureElementGetPage                 ,----- ** structureElementGetPlacement-    StructureElementGetPlacementMethodInfo  ,-    structureElementGetPlacement            ,----- ** structureElementGetRubyAlign-    StructureElementGetRubyAlignMethodInfo  ,-    structureElementGetRubyAlign            ,----- ** structureElementGetRubyPosition-    StructureElementGetRubyPositionMethodInfo,-    structureElementGetRubyPosition         ,----- ** structureElementGetSpaceAfter-    StructureElementGetSpaceAfterMethodInfo ,-    structureElementGetSpaceAfter           ,----- ** structureElementGetSpaceBefore-    StructureElementGetSpaceBeforeMethodInfo,-    structureElementGetSpaceBefore          ,----- ** structureElementGetStartIndent-    StructureElementGetStartIndentMethodInfo,-    structureElementGetStartIndent          ,----- ** structureElementGetTableBorderStyle-    StructureElementGetTableBorderStyleMethodInfo,-    structureElementGetTableBorderStyle     ,----- ** structureElementGetTableColumnSpan-    StructureElementGetTableColumnSpanMethodInfo,-    structureElementGetTableColumnSpan      ,----- ** structureElementGetTableHeaders-    StructureElementGetTableHeadersMethodInfo,-    structureElementGetTableHeaders         ,----- ** structureElementGetTablePadding-    StructureElementGetTablePaddingMethodInfo,-    structureElementGetTablePadding         ,----- ** structureElementGetTableRowSpan-    StructureElementGetTableRowSpanMethodInfo,-    structureElementGetTableRowSpan         ,----- ** structureElementGetTableScope-    StructureElementGetTableScopeMethodInfo ,-    structureElementGetTableScope           ,----- ** structureElementGetTableSummary-    StructureElementGetTableSummaryMethodInfo,-    structureElementGetTableSummary         ,----- ** structureElementGetText-    StructureElementGetTextMethodInfo       ,-    structureElementGetText                 ,----- ** structureElementGetTextAlign-    StructureElementGetTextAlignMethodInfo  ,-    structureElementGetTextAlign            ,----- ** structureElementGetTextDecorationColor-    StructureElementGetTextDecorationColorMethodInfo,-    structureElementGetTextDecorationColor  ,----- ** structureElementGetTextDecorationThickness-    StructureElementGetTextDecorationThicknessMethodInfo,-    structureElementGetTextDecorationThickness,----- ** structureElementGetTextDecorationType-    StructureElementGetTextDecorationTypeMethodInfo,-    structureElementGetTextDecorationType   ,----- ** structureElementGetTextIndent-    StructureElementGetTextIndentMethodInfo ,-    structureElementGetTextIndent           ,----- ** structureElementGetTextSpans-    StructureElementGetTextSpansMethodInfo  ,-    structureElementGetTextSpans            ,----- ** structureElementGetTitle-    StructureElementGetTitleMethodInfo      ,-    structureElementGetTitle                ,----- ** structureElementGetWidth-    StructureElementGetWidthMethodInfo      ,-    structureElementGetWidth                ,----- ** structureElementGetWritingMode-    StructureElementGetWritingModeMethodInfo,-    structureElementGetWritingMode          ,----- ** structureElementIsBlock-    StructureElementIsBlockMethodInfo       ,-    structureElementIsBlock                 ,----- ** structureElementIsContent-    StructureElementIsContentMethodInfo     ,-    structureElementIsContent               ,----- ** structureElementIsGrouping-    StructureElementIsGroupingMethodInfo    ,-    structureElementIsGrouping              ,----- ** structureElementIsInline-    StructureElementIsInlineMethodInfo      ,-    structureElementIsInline                ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks-import qualified GI.GObject as GObject--newtype StructureElement = StructureElement (ForeignPtr StructureElement)-foreign import ccall "poppler_structure_element_get_type"-    c_poppler_structure_element_get_type :: IO GType--type instance ParentTypes StructureElement = StructureElementParentTypes-type StructureElementParentTypes = '[GObject.Object]--instance GObject StructureElement where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_poppler_structure_element_get_type-    --class GObject o => StructureElementK o-instance (GObject o, IsDescendantOf StructureElement o) => StructureElementK o--toStructureElement :: StructureElementK o => o -> IO StructureElement-toStructureElement = unsafeCastTo StructureElement--noStructureElement :: Maybe StructureElement-noStructureElement = Nothing--type family ResolveStructureElementMethod (t :: Symbol) (o :: *) :: * where-    ResolveStructureElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveStructureElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveStructureElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveStructureElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveStructureElementMethod "isBlock" o = StructureElementIsBlockMethodInfo-    ResolveStructureElementMethod "isContent" o = StructureElementIsContentMethodInfo-    ResolveStructureElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveStructureElementMethod "isGrouping" o = StructureElementIsGroupingMethodInfo-    ResolveStructureElementMethod "isInline" o = StructureElementIsInlineMethodInfo-    ResolveStructureElementMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveStructureElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveStructureElementMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveStructureElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveStructureElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveStructureElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveStructureElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveStructureElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveStructureElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveStructureElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveStructureElementMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveStructureElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveStructureElementMethod "getAbbreviation" o = StructureElementGetAbbreviationMethodInfo-    ResolveStructureElementMethod "getActualText" o = StructureElementGetActualTextMethodInfo-    ResolveStructureElementMethod "getAltText" o = StructureElementGetAltTextMethodInfo-    ResolveStructureElementMethod "getBackgroundColor" o = StructureElementGetBackgroundColorMethodInfo-    ResolveStructureElementMethod "getBaselineShift" o = StructureElementGetBaselineShiftMethodInfo-    ResolveStructureElementMethod "getBlockAlign" o = StructureElementGetBlockAlignMethodInfo-    ResolveStructureElementMethod "getBorderColor" o = StructureElementGetBorderColorMethodInfo-    ResolveStructureElementMethod "getBorderStyle" o = StructureElementGetBorderStyleMethodInfo-    ResolveStructureElementMethod "getBorderThickness" o = StructureElementGetBorderThicknessMethodInfo-    ResolveStructureElementMethod "getBoundingBox" o = StructureElementGetBoundingBoxMethodInfo-    ResolveStructureElementMethod "getColor" o = StructureElementGetColorMethodInfo-    ResolveStructureElementMethod "getColumnCount" o = StructureElementGetColumnCountMethodInfo-    ResolveStructureElementMethod "getColumnGaps" o = StructureElementGetColumnGapsMethodInfo-    ResolveStructureElementMethod "getColumnWidths" o = StructureElementGetColumnWidthsMethodInfo-    ResolveStructureElementMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveStructureElementMethod "getEndIndent" o = StructureElementGetEndIndentMethodInfo-    ResolveStructureElementMethod "getFormDescription" o = StructureElementGetFormDescriptionMethodInfo-    ResolveStructureElementMethod "getFormRole" o = StructureElementGetFormRoleMethodInfo-    ResolveStructureElementMethod "getFormState" o = StructureElementGetFormStateMethodInfo-    ResolveStructureElementMethod "getGlyphOrientation" o = StructureElementGetGlyphOrientationMethodInfo-    ResolveStructureElementMethod "getHeight" o = StructureElementGetHeightMethodInfo-    ResolveStructureElementMethod "getId" o = StructureElementGetIdMethodInfo-    ResolveStructureElementMethod "getInlineAlign" o = StructureElementGetInlineAlignMethodInfo-    ResolveStructureElementMethod "getKind" o = StructureElementGetKindMethodInfo-    ResolveStructureElementMethod "getLanguage" o = StructureElementGetLanguageMethodInfo-    ResolveStructureElementMethod "getLineHeight" o = StructureElementGetLineHeightMethodInfo-    ResolveStructureElementMethod "getListNumbering" o = StructureElementGetListNumberingMethodInfo-    ResolveStructureElementMethod "getPadding" o = StructureElementGetPaddingMethodInfo-    ResolveStructureElementMethod "getPage" o = StructureElementGetPageMethodInfo-    ResolveStructureElementMethod "getPlacement" o = StructureElementGetPlacementMethodInfo-    ResolveStructureElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveStructureElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveStructureElementMethod "getRubyAlign" o = StructureElementGetRubyAlignMethodInfo-    ResolveStructureElementMethod "getRubyPosition" o = StructureElementGetRubyPositionMethodInfo-    ResolveStructureElementMethod "getSpaceAfter" o = StructureElementGetSpaceAfterMethodInfo-    ResolveStructureElementMethod "getSpaceBefore" o = StructureElementGetSpaceBeforeMethodInfo-    ResolveStructureElementMethod "getStartIndent" o = StructureElementGetStartIndentMethodInfo-    ResolveStructureElementMethod "getTableBorderStyle" o = StructureElementGetTableBorderStyleMethodInfo-    ResolveStructureElementMethod "getTableColumnSpan" o = StructureElementGetTableColumnSpanMethodInfo-    ResolveStructureElementMethod "getTableHeaders" o = StructureElementGetTableHeadersMethodInfo-    ResolveStructureElementMethod "getTablePadding" o = StructureElementGetTablePaddingMethodInfo-    ResolveStructureElementMethod "getTableRowSpan" o = StructureElementGetTableRowSpanMethodInfo-    ResolveStructureElementMethod "getTableScope" o = StructureElementGetTableScopeMethodInfo-    ResolveStructureElementMethod "getTableSummary" o = StructureElementGetTableSummaryMethodInfo-    ResolveStructureElementMethod "getText" o = StructureElementGetTextMethodInfo-    ResolveStructureElementMethod "getTextAlign" o = StructureElementGetTextAlignMethodInfo-    ResolveStructureElementMethod "getTextDecorationColor" o = StructureElementGetTextDecorationColorMethodInfo-    ResolveStructureElementMethod "getTextDecorationThickness" o = StructureElementGetTextDecorationThicknessMethodInfo-    ResolveStructureElementMethod "getTextDecorationType" o = StructureElementGetTextDecorationTypeMethodInfo-    ResolveStructureElementMethod "getTextIndent" o = StructureElementGetTextIndentMethodInfo-    ResolveStructureElementMethod "getTextSpans" o = StructureElementGetTextSpansMethodInfo-    ResolveStructureElementMethod "getTitle" o = StructureElementGetTitleMethodInfo-    ResolveStructureElementMethod "getWidth" o = StructureElementGetWidthMethodInfo-    ResolveStructureElementMethod "getWritingMode" o = StructureElementGetWritingModeMethodInfo-    ResolveStructureElementMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveStructureElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveStructureElementMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveStructureElementMethod t StructureElement, MethodInfo info StructureElement p) => IsLabelProxy t (StructureElement -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveStructureElementMethod t StructureElement, MethodInfo info StructureElement p) => IsLabel t (StructureElement -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList StructureElement = StructureElementAttributeList-type StructureElementAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList StructureElement = StructureElementSignalList-type StructureElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method StructureElement::get_abbreviation--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_abbreviation" poppler_structure_element_get_abbreviation :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    IO CString---structureElementGetAbbreviation ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-structureElementGetAbbreviation _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_structure_element_get_abbreviation _obj'-    checkUnexpectedReturnNULL "poppler_structure_element_get_abbreviation" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data StructureElementGetAbbreviationMethodInfo-instance (signature ~ (m T.Text), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetAbbreviationMethodInfo a signature where-    overloadedMethod _ = structureElementGetAbbreviation---- method StructureElement::get_actual_text--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_actual_text" poppler_structure_element_get_actual_text :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    IO CString---structureElementGetActualText ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-structureElementGetActualText _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_structure_element_get_actual_text _obj'-    checkUnexpectedReturnNULL "poppler_structure_element_get_actual_text" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data StructureElementGetActualTextMethodInfo-instance (signature ~ (m T.Text), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetActualTextMethodInfo a signature where-    overloadedMethod _ = structureElementGetActualText---- method StructureElement::get_alt_text--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_alt_text" poppler_structure_element_get_alt_text :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    IO CString---structureElementGetAltText ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-structureElementGetAltText _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_structure_element_get_alt_text _obj'-    checkUnexpectedReturnNULL "poppler_structure_element_get_alt_text" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data StructureElementGetAltTextMethodInfo-instance (signature ~ (m T.Text), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetAltTextMethodInfo a signature where-    overloadedMethod _ = structureElementGetAltText---- method StructureElement::get_background_color--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Poppler" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_background_color" poppler_structure_element_get_background_color :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    Ptr Color ->                            -- color : TInterface "Poppler" "Color"-    IO CInt---structureElementGetBackgroundColor ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m (Bool,Color)                       -- result-structureElementGetBackgroundColor _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    color <- callocBoxedBytes 6 :: IO (Ptr Color)-    result <- poppler_structure_element_get_background_color _obj' color-    let result' = (/= 0) result-    color' <- (wrapBoxed Color) color-    touchManagedPtr _obj-    return (result', color')--data StructureElementGetBackgroundColorMethodInfo-instance (signature ~ (m (Bool,Color)), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetBackgroundColorMethodInfo a signature where-    overloadedMethod _ = structureElementGetBackgroundColor---- method StructureElement::get_baseline_shift--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TDouble)--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_baseline_shift" poppler_structure_element_get_baseline_shift :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    IO CDouble---structureElementGetBaselineShift ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m Double                             -- result-structureElementGetBaselineShift _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_structure_element_get_baseline_shift _obj'-    let result' = realToFrac result-    touchManagedPtr _obj-    return result'--data StructureElementGetBaselineShiftMethodInfo-instance (signature ~ (m Double), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetBaselineShiftMethodInfo a signature where-    overloadedMethod _ = structureElementGetBaselineShift---- method StructureElement::get_block_align--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "StructureBlockAlign")--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_block_align" poppler_structure_element_get_block_align :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    IO CUInt---structureElementGetBlockAlign ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m StructureBlockAlign                -- result-structureElementGetBlockAlign _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_structure_element_get_block_align _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data StructureElementGetBlockAlignMethodInfo-instance (signature ~ (m StructureBlockAlign), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetBlockAlignMethodInfo a signature where-    overloadedMethod _ = structureElementGetBlockAlign---- method StructureElement::get_border_color--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "colors", argType = TCArray False 4 (-1) (TInterface "Poppler" "Color"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_border_color" poppler_structure_element_get_border_color :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    Ptr Color ->                            -- colors : TCArray False 4 (-1) (TInterface "Poppler" "Color")-    IO CInt---structureElementGetBorderColor ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> [Color]                              -- colors-    -> m (Bool,[Color])                     -- result-structureElementGetBorderColor _obj colors = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let colors' = map unsafeManagedPtrGetPtr colors-    colors'' <- packBlockArray 6 colors'-    result <- poppler_structure_element_get_border_color _obj' colors''-    let result' = (/= 0) result-    colors''' <- (unpackBoxedArrayWithLength 6 4) colors''-    colors'''' <- mapM (newBoxed Color) colors'''-    touchManagedPtr _obj-    mapM_ touchManagedPtr colors-    freeMem colors''-    return (result', colors'''')--data StructureElementGetBorderColorMethodInfo-instance (signature ~ ([Color] -> m (Bool,[Color])), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetBorderColorMethodInfo a signature where-    overloadedMethod _ = structureElementGetBorderColor---- method StructureElement::get_border_style--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "border_styles", argType = TCArray False 4 (-1) (TInterface "Poppler" "StructureBorderStyle"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_border_style" poppler_structure_element_get_border_style :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    Ptr (Ptr CUInt) ->                      -- border_styles : TCArray False 4 (-1) (TInterface "Poppler" "StructureBorderStyle")-    IO ()---structureElementGetBorderStyle ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m ([StructureBorderStyle])           -- result-structureElementGetBorderStyle _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    borderStyles <- allocMem :: IO (Ptr (Ptr CUInt))-    poppler_structure_element_get_border_style _obj' borderStyles-    borderStyles' <- peek borderStyles-    borderStyles'' <- (unpackStorableArrayWithLength 4) borderStyles'-    let borderStyles''' = map (toEnum . fromIntegral) borderStyles''-    freeMem borderStyles'-    touchManagedPtr _obj-    freeMem borderStyles-    return borderStyles'''--data StructureElementGetBorderStyleMethodInfo-instance (signature ~ (m ([StructureBorderStyle])), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetBorderStyleMethodInfo a signature where-    overloadedMethod _ = structureElementGetBorderStyle---- method StructureElement::get_border_thickness--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "border_thicknesses", argType = TCArray False 4 (-1) (TBasicType TDouble), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_border_thickness" poppler_structure_element_get_border_thickness :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    Ptr (Ptr CDouble) ->                    -- border_thicknesses : TCArray False 4 (-1) (TBasicType TDouble)-    IO CInt---structureElementGetBorderThickness ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m (Bool,[Double])                    -- result-structureElementGetBorderThickness _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    borderThicknesses <- allocMem :: IO (Ptr (Ptr CDouble))-    result <- poppler_structure_element_get_border_thickness _obj' borderThicknesses-    let result' = (/= 0) result-    borderThicknesses' <- peek borderThicknesses-    borderThicknesses'' <- (unpackMapStorableArrayWithLength realToFrac 4) borderThicknesses'-    freeMem borderThicknesses'-    touchManagedPtr _obj-    freeMem borderThicknesses-    return (result', borderThicknesses'')--data StructureElementGetBorderThicknessMethodInfo-instance (signature ~ (m (Bool,[Double])), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetBorderThicknessMethodInfo a signature where-    overloadedMethod _ = structureElementGetBorderThickness---- method StructureElement::get_bounding_box--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bounding_box", argType = TInterface "Poppler" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_bounding_box" poppler_structure_element_get_bounding_box :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    Ptr Rectangle ->                        -- bounding_box : TInterface "Poppler" "Rectangle"-    IO CInt---structureElementGetBoundingBox ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m (Bool,Rectangle)                   -- result-structureElementGetBoundingBox _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    boundingBox <- callocBoxedBytes 32 :: IO (Ptr Rectangle)-    result <- poppler_structure_element_get_bounding_box _obj' boundingBox-    let result' = (/= 0) result-    boundingBox' <- (wrapBoxed Rectangle) boundingBox-    touchManagedPtr _obj-    return (result', boundingBox')--data StructureElementGetBoundingBoxMethodInfo-instance (signature ~ (m (Bool,Rectangle)), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetBoundingBoxMethodInfo a signature where-    overloadedMethod _ = structureElementGetBoundingBox---- method StructureElement::get_color--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Poppler" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_color" poppler_structure_element_get_color :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    Ptr Color ->                            -- color : TInterface "Poppler" "Color"-    IO CInt---structureElementGetColor ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m (Bool,Color)                       -- result-structureElementGetColor _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    color <- callocBoxedBytes 6 :: IO (Ptr Color)-    result <- poppler_structure_element_get_color _obj' color-    let result' = (/= 0) result-    color' <- (wrapBoxed Color) color-    touchManagedPtr _obj-    return (result', color')--data StructureElementGetColorMethodInfo-instance (signature ~ (m (Bool,Color)), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetColorMethodInfo a signature where-    overloadedMethod _ = structureElementGetColor---- method StructureElement::get_column_count--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_column_count" poppler_structure_element_get_column_count :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    IO Word32---structureElementGetColumnCount ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m Word32                             -- result-structureElementGetColumnCount _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_structure_element_get_column_count _obj'-    touchManagedPtr _obj-    return result--data StructureElementGetColumnCountMethodInfo-instance (signature ~ (m Word32), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetColumnCountMethodInfo a signature where-    overloadedMethod _ = structureElementGetColumnCount---- method StructureElement::get_column_gaps--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "n_values", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- returnType : Just (TCArray False (-1) 1 (TBasicType TDouble))--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_column_gaps" poppler_structure_element_get_column_gaps :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    Ptr Word32 ->                           -- n_values : TBasicType TUInt-    IO (Ptr CDouble)---structureElementGetColumnGaps ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m [Double]                           -- result-structureElementGetColumnGaps _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    nValues <- allocMem :: IO (Ptr Word32)-    result <- poppler_structure_element_get_column_gaps _obj' nValues-    nValues' <- peek nValues-    checkUnexpectedReturnNULL "poppler_structure_element_get_column_gaps" result-    result' <- (unpackMapStorableArrayWithLength realToFrac nValues') result-    freeMem result-    touchManagedPtr _obj-    freeMem nValues-    return result'--data StructureElementGetColumnGapsMethodInfo-instance (signature ~ (m [Double]), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetColumnGapsMethodInfo a signature where-    overloadedMethod _ = structureElementGetColumnGaps---- method StructureElement::get_column_widths--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "n_values", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- returnType : Just (TCArray False (-1) 1 (TBasicType TDouble))--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_column_widths" poppler_structure_element_get_column_widths :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    Ptr Word32 ->                           -- n_values : TBasicType TUInt-    IO (Ptr CDouble)---structureElementGetColumnWidths ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m [Double]                           -- result-structureElementGetColumnWidths _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    nValues <- allocMem :: IO (Ptr Word32)-    result <- poppler_structure_element_get_column_widths _obj' nValues-    nValues' <- peek nValues-    checkUnexpectedReturnNULL "poppler_structure_element_get_column_widths" result-    result' <- (unpackMapStorableArrayWithLength realToFrac nValues') result-    freeMem result-    touchManagedPtr _obj-    freeMem nValues-    return result'--data StructureElementGetColumnWidthsMethodInfo-instance (signature ~ (m [Double]), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetColumnWidthsMethodInfo a signature where-    overloadedMethod _ = structureElementGetColumnWidths---- method StructureElement::get_end_indent--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TDouble)--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_end_indent" poppler_structure_element_get_end_indent :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    IO CDouble---structureElementGetEndIndent ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m Double                             -- result-structureElementGetEndIndent _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_structure_element_get_end_indent _obj'-    let result' = realToFrac result-    touchManagedPtr _obj-    return result'--data StructureElementGetEndIndentMethodInfo-instance (signature ~ (m Double), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetEndIndentMethodInfo a signature where-    overloadedMethod _ = structureElementGetEndIndent---- method StructureElement::get_form_description--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_form_description" poppler_structure_element_get_form_description :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    IO CString---structureElementGetFormDescription ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-structureElementGetFormDescription _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_structure_element_get_form_description _obj'-    checkUnexpectedReturnNULL "poppler_structure_element_get_form_description" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data StructureElementGetFormDescriptionMethodInfo-instance (signature ~ (m T.Text), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetFormDescriptionMethodInfo a signature where-    overloadedMethod _ = structureElementGetFormDescription---- method StructureElement::get_form_role--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "StructureFormRole")--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_form_role" poppler_structure_element_get_form_role :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    IO CUInt---structureElementGetFormRole ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m StructureFormRole                  -- result-structureElementGetFormRole _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_structure_element_get_form_role _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data StructureElementGetFormRoleMethodInfo-instance (signature ~ (m StructureFormRole), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetFormRoleMethodInfo a signature where-    overloadedMethod _ = structureElementGetFormRole---- method StructureElement::get_form_state--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "StructureFormState")--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_form_state" poppler_structure_element_get_form_state :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    IO CUInt---structureElementGetFormState ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m StructureFormState                 -- result-structureElementGetFormState _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_structure_element_get_form_state _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data StructureElementGetFormStateMethodInfo-instance (signature ~ (m StructureFormState), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetFormStateMethodInfo a signature where-    overloadedMethod _ = structureElementGetFormState---- method StructureElement::get_glyph_orientation--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "StructureGlyphOrientation")--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_glyph_orientation" poppler_structure_element_get_glyph_orientation :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    IO CUInt---structureElementGetGlyphOrientation ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m StructureGlyphOrientation          -- result-structureElementGetGlyphOrientation _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_structure_element_get_glyph_orientation _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data StructureElementGetGlyphOrientationMethodInfo-instance (signature ~ (m StructureGlyphOrientation), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetGlyphOrientationMethodInfo a signature where-    overloadedMethod _ = structureElementGetGlyphOrientation---- method StructureElement::get_height--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TDouble)--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_height" poppler_structure_element_get_height :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    IO CDouble---structureElementGetHeight ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m Double                             -- result-structureElementGetHeight _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_structure_element_get_height _obj'-    let result' = realToFrac result-    touchManagedPtr _obj-    return result'--data StructureElementGetHeightMethodInfo-instance (signature ~ (m Double), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetHeightMethodInfo a signature where-    overloadedMethod _ = structureElementGetHeight---- method StructureElement::get_id--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_id" poppler_structure_element_get_id :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    IO CString---structureElementGetId ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-structureElementGetId _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_structure_element_get_id _obj'-    checkUnexpectedReturnNULL "poppler_structure_element_get_id" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data StructureElementGetIdMethodInfo-instance (signature ~ (m T.Text), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetIdMethodInfo a signature where-    overloadedMethod _ = structureElementGetId---- method StructureElement::get_inline_align--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "StructureInlineAlign")--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_inline_align" poppler_structure_element_get_inline_align :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    IO CUInt---structureElementGetInlineAlign ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m StructureInlineAlign               -- result-structureElementGetInlineAlign _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_structure_element_get_inline_align _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data StructureElementGetInlineAlignMethodInfo-instance (signature ~ (m StructureInlineAlign), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetInlineAlignMethodInfo a signature where-    overloadedMethod _ = structureElementGetInlineAlign---- method StructureElement::get_kind--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "StructureElementKind")--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_kind" poppler_structure_element_get_kind :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    IO CUInt---structureElementGetKind ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m StructureElementKind               -- result-structureElementGetKind _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_structure_element_get_kind _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data StructureElementGetKindMethodInfo-instance (signature ~ (m StructureElementKind), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetKindMethodInfo a signature where-    overloadedMethod _ = structureElementGetKind---- method StructureElement::get_language--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_language" poppler_structure_element_get_language :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    IO CString---structureElementGetLanguage ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-structureElementGetLanguage _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_structure_element_get_language _obj'-    checkUnexpectedReturnNULL "poppler_structure_element_get_language" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data StructureElementGetLanguageMethodInfo-instance (signature ~ (m T.Text), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetLanguageMethodInfo a signature where-    overloadedMethod _ = structureElementGetLanguage---- method StructureElement::get_line_height--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TDouble)--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_line_height" poppler_structure_element_get_line_height :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    IO CDouble---structureElementGetLineHeight ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m Double                             -- result-structureElementGetLineHeight _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_structure_element_get_line_height _obj'-    let result' = realToFrac result-    touchManagedPtr _obj-    return result'--data StructureElementGetLineHeightMethodInfo-instance (signature ~ (m Double), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetLineHeightMethodInfo a signature where-    overloadedMethod _ = structureElementGetLineHeight---- method StructureElement::get_list_numbering--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "StructureListNumbering")--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_list_numbering" poppler_structure_element_get_list_numbering :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    IO CUInt---structureElementGetListNumbering ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m StructureListNumbering             -- result-structureElementGetListNumbering _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_structure_element_get_list_numbering _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data StructureElementGetListNumberingMethodInfo-instance (signature ~ (m StructureListNumbering), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetListNumberingMethodInfo a signature where-    overloadedMethod _ = structureElementGetListNumbering---- method StructureElement::get_padding--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "paddings", argType = TCArray False 4 (-1) (TBasicType TDouble), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_padding" poppler_structure_element_get_padding :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    Ptr (Ptr CDouble) ->                    -- paddings : TCArray False 4 (-1) (TBasicType TDouble)-    IO ()---structureElementGetPadding ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m ([Double])                         -- result-structureElementGetPadding _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    paddings <- allocMem :: IO (Ptr (Ptr CDouble))-    poppler_structure_element_get_padding _obj' paddings-    paddings' <- peek paddings-    paddings'' <- (unpackMapStorableArrayWithLength realToFrac 4) paddings'-    freeMem paddings'-    touchManagedPtr _obj-    freeMem paddings-    return paddings''--data StructureElementGetPaddingMethodInfo-instance (signature ~ (m ([Double])), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetPaddingMethodInfo a signature where-    overloadedMethod _ = structureElementGetPadding---- method StructureElement::get_page--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_page" poppler_structure_element_get_page :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    IO Int32---structureElementGetPage ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m Int32                              -- result-structureElementGetPage _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_structure_element_get_page _obj'-    touchManagedPtr _obj-    return result--data StructureElementGetPageMethodInfo-instance (signature ~ (m Int32), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetPageMethodInfo a signature where-    overloadedMethod _ = structureElementGetPage---- method StructureElement::get_placement--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "StructurePlacement")--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_placement" poppler_structure_element_get_placement :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    IO CUInt---structureElementGetPlacement ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m StructurePlacement                 -- result-structureElementGetPlacement _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_structure_element_get_placement _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data StructureElementGetPlacementMethodInfo-instance (signature ~ (m StructurePlacement), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetPlacementMethodInfo a signature where-    overloadedMethod _ = structureElementGetPlacement---- method StructureElement::get_ruby_align--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "StructureRubyAlign")--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_ruby_align" poppler_structure_element_get_ruby_align :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    IO CUInt---structureElementGetRubyAlign ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m StructureRubyAlign                 -- result-structureElementGetRubyAlign _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_structure_element_get_ruby_align _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data StructureElementGetRubyAlignMethodInfo-instance (signature ~ (m StructureRubyAlign), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetRubyAlignMethodInfo a signature where-    overloadedMethod _ = structureElementGetRubyAlign---- method StructureElement::get_ruby_position--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "StructureRubyPosition")--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_ruby_position" poppler_structure_element_get_ruby_position :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    IO CUInt---structureElementGetRubyPosition ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m StructureRubyPosition              -- result-structureElementGetRubyPosition _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_structure_element_get_ruby_position _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data StructureElementGetRubyPositionMethodInfo-instance (signature ~ (m StructureRubyPosition), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetRubyPositionMethodInfo a signature where-    overloadedMethod _ = structureElementGetRubyPosition---- method StructureElement::get_space_after--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TDouble)--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_space_after" poppler_structure_element_get_space_after :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    IO CDouble---structureElementGetSpaceAfter ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m Double                             -- result-structureElementGetSpaceAfter _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_structure_element_get_space_after _obj'-    let result' = realToFrac result-    touchManagedPtr _obj-    return result'--data StructureElementGetSpaceAfterMethodInfo-instance (signature ~ (m Double), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetSpaceAfterMethodInfo a signature where-    overloadedMethod _ = structureElementGetSpaceAfter---- method StructureElement::get_space_before--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TDouble)--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_space_before" poppler_structure_element_get_space_before :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    IO CDouble---structureElementGetSpaceBefore ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m Double                             -- result-structureElementGetSpaceBefore _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_structure_element_get_space_before _obj'-    let result' = realToFrac result-    touchManagedPtr _obj-    return result'--data StructureElementGetSpaceBeforeMethodInfo-instance (signature ~ (m Double), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetSpaceBeforeMethodInfo a signature where-    overloadedMethod _ = structureElementGetSpaceBefore---- method StructureElement::get_start_indent--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TDouble)--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_start_indent" poppler_structure_element_get_start_indent :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    IO CDouble---structureElementGetStartIndent ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m Double                             -- result-structureElementGetStartIndent _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_structure_element_get_start_indent _obj'-    let result' = realToFrac result-    touchManagedPtr _obj-    return result'--data StructureElementGetStartIndentMethodInfo-instance (signature ~ (m Double), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetStartIndentMethodInfo a signature where-    overloadedMethod _ = structureElementGetStartIndent---- method StructureElement::get_table_border_style--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "border_styles", argType = TCArray False 4 (-1) (TInterface "Poppler" "StructureBorderStyle"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_table_border_style" poppler_structure_element_get_table_border_style :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    Ptr (Ptr CUInt) ->                      -- border_styles : TCArray False 4 (-1) (TInterface "Poppler" "StructureBorderStyle")-    IO ()---structureElementGetTableBorderStyle ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m ([StructureBorderStyle])           -- result-structureElementGetTableBorderStyle _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    borderStyles <- allocMem :: IO (Ptr (Ptr CUInt))-    poppler_structure_element_get_table_border_style _obj' borderStyles-    borderStyles' <- peek borderStyles-    borderStyles'' <- (unpackStorableArrayWithLength 4) borderStyles'-    let borderStyles''' = map (toEnum . fromIntegral) borderStyles''-    freeMem borderStyles'-    touchManagedPtr _obj-    freeMem borderStyles-    return borderStyles'''--data StructureElementGetTableBorderStyleMethodInfo-instance (signature ~ (m ([StructureBorderStyle])), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetTableBorderStyleMethodInfo a signature where-    overloadedMethod _ = structureElementGetTableBorderStyle---- method StructureElement::get_table_column_span--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_table_column_span" poppler_structure_element_get_table_column_span :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    IO Word32---structureElementGetTableColumnSpan ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m Word32                             -- result-structureElementGetTableColumnSpan _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_structure_element_get_table_column_span _obj'-    touchManagedPtr _obj-    return result--data StructureElementGetTableColumnSpanMethodInfo-instance (signature ~ (m Word32), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetTableColumnSpanMethodInfo a signature where-    overloadedMethod _ = structureElementGetTableColumnSpan---- method StructureElement::get_table_headers--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8))--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_table_headers" poppler_structure_element_get_table_headers :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    IO (Ptr CString)---structureElementGetTableHeaders ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m [T.Text]                           -- result-structureElementGetTableHeaders _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_structure_element_get_table_headers _obj'-    checkUnexpectedReturnNULL "poppler_structure_element_get_table_headers" result-    result' <- unpackZeroTerminatedUTF8CArray result-    mapZeroTerminatedCArray freeMem result-    freeMem result-    touchManagedPtr _obj-    return result'--data StructureElementGetTableHeadersMethodInfo-instance (signature ~ (m [T.Text]), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetTableHeadersMethodInfo a signature where-    overloadedMethod _ = structureElementGetTableHeaders---- method StructureElement::get_table_padding--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "paddings", argType = TCArray False 4 (-1) (TBasicType TDouble), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_table_padding" poppler_structure_element_get_table_padding :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    Ptr (Ptr CDouble) ->                    -- paddings : TCArray False 4 (-1) (TBasicType TDouble)-    IO ()---structureElementGetTablePadding ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m ([Double])                         -- result-structureElementGetTablePadding _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    paddings <- allocMem :: IO (Ptr (Ptr CDouble))-    poppler_structure_element_get_table_padding _obj' paddings-    paddings' <- peek paddings-    paddings'' <- (unpackMapStorableArrayWithLength realToFrac 4) paddings'-    freeMem paddings'-    touchManagedPtr _obj-    freeMem paddings-    return paddings''--data StructureElementGetTablePaddingMethodInfo-instance (signature ~ (m ([Double])), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetTablePaddingMethodInfo a signature where-    overloadedMethod _ = structureElementGetTablePadding---- method StructureElement::get_table_row_span--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_table_row_span" poppler_structure_element_get_table_row_span :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    IO Word32---structureElementGetTableRowSpan ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m Word32                             -- result-structureElementGetTableRowSpan _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_structure_element_get_table_row_span _obj'-    touchManagedPtr _obj-    return result--data StructureElementGetTableRowSpanMethodInfo-instance (signature ~ (m Word32), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetTableRowSpanMethodInfo a signature where-    overloadedMethod _ = structureElementGetTableRowSpan---- method StructureElement::get_table_scope--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "StructureTableScope")--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_table_scope" poppler_structure_element_get_table_scope :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    IO CUInt---structureElementGetTableScope ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m StructureTableScope                -- result-structureElementGetTableScope _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_structure_element_get_table_scope _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data StructureElementGetTableScopeMethodInfo-instance (signature ~ (m StructureTableScope), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetTableScopeMethodInfo a signature where-    overloadedMethod _ = structureElementGetTableScope---- method StructureElement::get_table_summary--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_table_summary" poppler_structure_element_get_table_summary :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    IO CString---structureElementGetTableSummary ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-structureElementGetTableSummary _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_structure_element_get_table_summary _obj'-    checkUnexpectedReturnNULL "poppler_structure_element_get_table_summary" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data StructureElementGetTableSummaryMethodInfo-instance (signature ~ (m T.Text), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetTableSummaryMethodInfo a signature where-    overloadedMethod _ = structureElementGetTableSummary---- method StructureElement::get_text--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Poppler" "StructureGetTextFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_text" poppler_structure_element_get_text :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    CUInt ->                                -- flags : TInterface "Poppler" "StructureGetTextFlags"-    IO CString---structureElementGetText ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> [StructureGetTextFlags]              -- flags-    -> m T.Text                             -- result-structureElementGetText _obj flags = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let flags' = gflagsToWord flags-    result <- poppler_structure_element_get_text _obj' flags'-    checkUnexpectedReturnNULL "poppler_structure_element_get_text" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data StructureElementGetTextMethodInfo-instance (signature ~ ([StructureGetTextFlags] -> m T.Text), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetTextMethodInfo a signature where-    overloadedMethod _ = structureElementGetText---- method StructureElement::get_text_align--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "StructureTextAlign")--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_text_align" poppler_structure_element_get_text_align :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    IO CUInt---structureElementGetTextAlign ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m StructureTextAlign                 -- result-structureElementGetTextAlign _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_structure_element_get_text_align _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data StructureElementGetTextAlignMethodInfo-instance (signature ~ (m StructureTextAlign), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetTextAlignMethodInfo a signature where-    overloadedMethod _ = structureElementGetTextAlign---- method StructureElement::get_text_decoration_color--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Poppler" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_text_decoration_color" poppler_structure_element_get_text_decoration_color :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    Ptr Color ->                            -- color : TInterface "Poppler" "Color"-    IO CInt---structureElementGetTextDecorationColor ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m (Bool,Color)                       -- result-structureElementGetTextDecorationColor _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    color <- callocBoxedBytes 6 :: IO (Ptr Color)-    result <- poppler_structure_element_get_text_decoration_color _obj' color-    let result' = (/= 0) result-    color' <- (wrapBoxed Color) color-    touchManagedPtr _obj-    return (result', color')--data StructureElementGetTextDecorationColorMethodInfo-instance (signature ~ (m (Bool,Color)), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetTextDecorationColorMethodInfo a signature where-    overloadedMethod _ = structureElementGetTextDecorationColor---- method StructureElement::get_text_decoration_thickness--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TDouble)--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_text_decoration_thickness" poppler_structure_element_get_text_decoration_thickness :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    IO CDouble---structureElementGetTextDecorationThickness ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m Double                             -- result-structureElementGetTextDecorationThickness _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_structure_element_get_text_decoration_thickness _obj'-    let result' = realToFrac result-    touchManagedPtr _obj-    return result'--data StructureElementGetTextDecorationThicknessMethodInfo-instance (signature ~ (m Double), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetTextDecorationThicknessMethodInfo a signature where-    overloadedMethod _ = structureElementGetTextDecorationThickness---- method StructureElement::get_text_decoration_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "StructureTextDecoration")--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_text_decoration_type" poppler_structure_element_get_text_decoration_type :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    IO CUInt---structureElementGetTextDecorationType ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m StructureTextDecoration            -- result-structureElementGetTextDecorationType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_structure_element_get_text_decoration_type _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data StructureElementGetTextDecorationTypeMethodInfo-instance (signature ~ (m StructureTextDecoration), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetTextDecorationTypeMethodInfo a signature where-    overloadedMethod _ = structureElementGetTextDecorationType---- method StructureElement::get_text_indent--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TDouble)--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_text_indent" poppler_structure_element_get_text_indent :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    IO CDouble---structureElementGetTextIndent ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m Double                             -- result-structureElementGetTextIndent _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_structure_element_get_text_indent _obj'-    let result' = realToFrac result-    touchManagedPtr _obj-    return result'--data StructureElementGetTextIndentMethodInfo-instance (signature ~ (m Double), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetTextIndentMethodInfo a signature where-    overloadedMethod _ = structureElementGetTextIndent---- method StructureElement::get_text_spans--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_text_spans", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "n_text_spans", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- returnType : Just (TCArray False (-1) 1 (TInterface "Poppler" "TextSpan"))--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_text_spans" poppler_structure_element_get_text_spans :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    Ptr Word32 ->                           -- n_text_spans : TBasicType TUInt-    IO (Ptr (Ptr TextSpan))---structureElementGetTextSpans ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m [TextSpan]                         -- result-structureElementGetTextSpans _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    nTextSpans <- allocMem :: IO (Ptr Word32)-    result <- poppler_structure_element_get_text_spans _obj' nTextSpans-    nTextSpans' <- peek nTextSpans-    checkUnexpectedReturnNULL "poppler_structure_element_get_text_spans" result-    result' <- (unpackPtrArrayWithLength nTextSpans') result-    result'' <- mapM (wrapBoxed TextSpan) result'-    freeMem result-    touchManagedPtr _obj-    freeMem nTextSpans-    return result''--data StructureElementGetTextSpansMethodInfo-instance (signature ~ (m [TextSpan]), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetTextSpansMethodInfo a signature where-    overloadedMethod _ = structureElementGetTextSpans---- method StructureElement::get_title--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_title" poppler_structure_element_get_title :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    IO CString---structureElementGetTitle ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-structureElementGetTitle _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_structure_element_get_title _obj'-    checkUnexpectedReturnNULL "poppler_structure_element_get_title" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data StructureElementGetTitleMethodInfo-instance (signature ~ (m T.Text), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetTitleMethodInfo a signature where-    overloadedMethod _ = structureElementGetTitle---- method StructureElement::get_width--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TDouble)--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_width" poppler_structure_element_get_width :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    IO CDouble---structureElementGetWidth ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m Double                             -- result-structureElementGetWidth _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_structure_element_get_width _obj'-    let result' = realToFrac result-    touchManagedPtr _obj-    return result'--data StructureElementGetWidthMethodInfo-instance (signature ~ (m Double), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetWidthMethodInfo a signature where-    overloadedMethod _ = structureElementGetWidth---- method StructureElement::get_writing_mode--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "StructureWritingMode")--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_get_writing_mode" poppler_structure_element_get_writing_mode :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    IO CUInt---structureElementGetWritingMode ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m StructureWritingMode               -- result-structureElementGetWritingMode _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_structure_element_get_writing_mode _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data StructureElementGetWritingModeMethodInfo-instance (signature ~ (m StructureWritingMode), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetWritingModeMethodInfo a signature where-    overloadedMethod _ = structureElementGetWritingMode---- method StructureElement::is_block--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_is_block" poppler_structure_element_is_block :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    IO CInt---structureElementIsBlock ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-structureElementIsBlock _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_structure_element_is_block _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data StructureElementIsBlockMethodInfo-instance (signature ~ (m Bool), MonadIO m, StructureElementK a) => MethodInfo StructureElementIsBlockMethodInfo a signature where-    overloadedMethod _ = structureElementIsBlock---- method StructureElement::is_content--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_is_content" poppler_structure_element_is_content :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    IO CInt---structureElementIsContent ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-structureElementIsContent _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_structure_element_is_content _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data StructureElementIsContentMethodInfo-instance (signature ~ (m Bool), MonadIO m, StructureElementK a) => MethodInfo StructureElementIsContentMethodInfo a signature where-    overloadedMethod _ = structureElementIsContent---- method StructureElement::is_grouping--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_is_grouping" poppler_structure_element_is_grouping :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    IO CInt---structureElementIsGrouping ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-structureElementIsGrouping _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_structure_element_is_grouping _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data StructureElementIsGroupingMethodInfo-instance (signature ~ (m Bool), MonadIO m, StructureElementK a) => MethodInfo StructureElementIsGroupingMethodInfo a signature where-    overloadedMethod _ = structureElementIsGrouping---- method StructureElement::is_inline--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_is_inline" poppler_structure_element_is_inline :: -    Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    IO CInt---structureElementIsInline ::-    (MonadIO m, StructureElementK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-structureElementIsInline _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- poppler_structure_element_is_inline _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data StructureElementIsInlineMethodInfo-instance (signature ~ (m Bool), MonadIO m, StructureElementK a) => MethodInfo StructureElementIsInlineMethodInfo a signature where-    overloadedMethod _ = structureElementIsInline--
− GI/Poppler/Objects/StructureElement.hs-boot 
@@ -1,68 +0,0 @@-module GI.Poppler.Objects.StructureElement where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype StructureElement = StructureElement (ForeignPtr StructureElement)-instance GObject StructureElement where-class GObject o => StructureElementK o-instance (GObject o, IsDescendantOf StructureElement o) => StructureElementK o-data StructureElementGetAbbreviationMethodInfo-data StructureElementGetActualTextMethodInfo-data StructureElementGetAltTextMethodInfo-data StructureElementGetBackgroundColorMethodInfo-data StructureElementGetBaselineShiftMethodInfo-data StructureElementGetBlockAlignMethodInfo-data StructureElementGetBorderColorMethodInfo-data StructureElementGetBorderStyleMethodInfo-data StructureElementGetBorderThicknessMethodInfo-data StructureElementGetBoundingBoxMethodInfo-data StructureElementGetColorMethodInfo-data StructureElementGetColumnCountMethodInfo-data StructureElementGetColumnGapsMethodInfo-data StructureElementGetColumnWidthsMethodInfo-data StructureElementGetEndIndentMethodInfo-data StructureElementGetFormDescriptionMethodInfo-data StructureElementGetFormRoleMethodInfo-data StructureElementGetFormStateMethodInfo-data StructureElementGetGlyphOrientationMethodInfo-data StructureElementGetHeightMethodInfo-data StructureElementGetIdMethodInfo-data StructureElementGetInlineAlignMethodInfo-data StructureElementGetKindMethodInfo-data StructureElementGetLanguageMethodInfo-data StructureElementGetLineHeightMethodInfo-data StructureElementGetListNumberingMethodInfo-data StructureElementGetPaddingMethodInfo-data StructureElementGetPageMethodInfo-data StructureElementGetPlacementMethodInfo-data StructureElementGetRubyAlignMethodInfo-data StructureElementGetRubyPositionMethodInfo-data StructureElementGetSpaceAfterMethodInfo-data StructureElementGetSpaceBeforeMethodInfo-data StructureElementGetStartIndentMethodInfo-data StructureElementGetTableBorderStyleMethodInfo-data StructureElementGetTableColumnSpanMethodInfo-data StructureElementGetTableHeadersMethodInfo-data StructureElementGetTablePaddingMethodInfo-data StructureElementGetTableRowSpanMethodInfo-data StructureElementGetTableScopeMethodInfo-data StructureElementGetTableSummaryMethodInfo-data StructureElementGetTextMethodInfo-data StructureElementGetTextAlignMethodInfo-data StructureElementGetTextDecorationColorMethodInfo-data StructureElementGetTextDecorationThicknessMethodInfo-data StructureElementGetTextDecorationTypeMethodInfo-data StructureElementGetTextIndentMethodInfo-data StructureElementGetTextSpansMethodInfo-data StructureElementGetTitleMethodInfo-data StructureElementGetWidthMethodInfo-data StructureElementGetWritingModeMethodInfo-data StructureElementIsBlockMethodInfo-data StructureElementIsContentMethodInfo-data StructureElementIsGroupingMethodInfo-data StructureElementIsInlineMethodInfo
− GI/Poppler/Structs.hs 
@@ -1,81 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Poppler.Structs-    (     module GI.Poppler.Structs.ActionAny     ,-    module GI.Poppler.Structs.ActionGotoDest,-    module GI.Poppler.Structs.ActionGotoRemote,-    module GI.Poppler.Structs.ActionJavascript,-    module GI.Poppler.Structs.ActionLaunch  ,-    module GI.Poppler.Structs.ActionLayer   ,-    module GI.Poppler.Structs.ActionMovie   ,-    module GI.Poppler.Structs.ActionNamed   ,-    module GI.Poppler.Structs.ActionOCGState,-    module GI.Poppler.Structs.ActionRendition,-    module GI.Poppler.Structs.ActionUri     ,-    module GI.Poppler.Structs.AnnotCalloutLine,-    module GI.Poppler.Structs.AnnotMapping  ,-    module GI.Poppler.Structs.Color         ,-    module GI.Poppler.Structs.Dest          ,-    module GI.Poppler.Structs.FontsIter     ,-    module GI.Poppler.Structs.FormFieldMapping,-    module GI.Poppler.Structs.ImageMapping  ,-    module GI.Poppler.Structs.IndexIter     ,-    module GI.Poppler.Structs.LayersIter    ,-    module GI.Poppler.Structs.LinkMapping   ,-    module GI.Poppler.Structs.PageTransition,-    module GI.Poppler.Structs.Point         ,-    module GI.Poppler.Structs.Quadrilateral ,-    module GI.Poppler.Structs.Rectangle     ,-    module GI.Poppler.Structs.StructureElementIter,-    module GI.Poppler.Structs.TextAttributes,-    module GI.Poppler.Structs.TextSpan      ,---    ) where--import GI.Poppler.Structs.ActionAny-import GI.Poppler.Structs.ActionGotoDest-import GI.Poppler.Structs.ActionGotoRemote-import GI.Poppler.Structs.ActionJavascript-import GI.Poppler.Structs.ActionLaunch-import GI.Poppler.Structs.ActionLayer-import GI.Poppler.Structs.ActionMovie-import GI.Poppler.Structs.ActionNamed-import GI.Poppler.Structs.ActionOCGState-import GI.Poppler.Structs.ActionRendition-import GI.Poppler.Structs.ActionUri-import GI.Poppler.Structs.AnnotCalloutLine-import GI.Poppler.Structs.AnnotMapping-import GI.Poppler.Structs.Color-import GI.Poppler.Structs.Dest-import GI.Poppler.Structs.FontsIter-import GI.Poppler.Structs.FormFieldMapping-import GI.Poppler.Structs.ImageMapping-import GI.Poppler.Structs.IndexIter-import GI.Poppler.Structs.LayersIter-import GI.Poppler.Structs.LinkMapping-import GI.Poppler.Structs.PageTransition-import GI.Poppler.Structs.Point-import GI.Poppler.Structs.Quadrilateral-import GI.Poppler.Structs.Rectangle-import GI.Poppler.Structs.StructureElementIter-import GI.Poppler.Structs.TextAttributes-import GI.Poppler.Structs.TextSpan--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks--
− GI/Poppler/Structs/ActionAny.hs 
@@ -1,140 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Poppler.Structs.ActionAny-    ( ---- * Exported types-    ActionAny(..)                           ,-    newZeroActionAny                        ,-    noActionAny                             ,--- -- * Properties--- ** Title-    actionAnyClearTitle                     ,-    actionAnyReadTitle                      ,-    actionAnyTitle                          ,-    actionAnyWriteTitle                     ,----- ** Type-    actionAnyReadType                       ,-    actionAnyType                           ,-    actionAnyWriteType                      ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks--newtype ActionAny = ActionAny (ForeignPtr ActionAny)-instance WrappedPtr ActionAny where-    wrappedPtrCalloc = callocBytes 16-    wrappedPtrCopy = copyPtr 16-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `ActionAny` struct initialized to zero.-newZeroActionAny :: MonadIO m => m ActionAny-newZeroActionAny = liftIO $ wrappedPtrCalloc >>= wrapPtr ActionAny--instance tag ~ 'AttrSet => Constructible ActionAny tag where-    new _ attrs = do-        o <- newZeroActionAny-        GI.Attributes.set o attrs-        return o---noActionAny :: Maybe ActionAny-noActionAny = Nothing--actionAnyReadType :: MonadIO m => ActionAny -> m ActionType-actionAnyReadType s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--actionAnyWriteType :: MonadIO m => ActionAny -> ActionType -> m ()-actionAnyWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 0) (val' :: CUInt)--data ActionAnyTypeFieldInfo-instance AttrInfo ActionAnyTypeFieldInfo where-    type AttrAllowedOps ActionAnyTypeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint ActionAnyTypeFieldInfo = (~) ActionType-    type AttrBaseTypeConstraint ActionAnyTypeFieldInfo = (~) ActionAny-    type AttrGetType ActionAnyTypeFieldInfo = ActionType-    type AttrLabel ActionAnyTypeFieldInfo = "type"-    attrGet _ = actionAnyReadType-    attrSet _ = actionAnyWriteType-    attrConstruct = undefined-    attrClear _ = undefined--actionAnyType :: AttrLabelProxy "type"-actionAnyType = AttrLabelProxy---actionAnyReadTitle :: MonadIO m => ActionAny -> m (Maybe T.Text)-actionAnyReadTitle s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--actionAnyWriteTitle :: MonadIO m => ActionAny -> CString -> m ()-actionAnyWriteTitle s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: CString)--actionAnyClearTitle :: MonadIO m => ActionAny -> m ()-actionAnyClearTitle s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (nullPtr :: CString)--data ActionAnyTitleFieldInfo-instance AttrInfo ActionAnyTitleFieldInfo where-    type AttrAllowedOps ActionAnyTitleFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ActionAnyTitleFieldInfo = (~) CString-    type AttrBaseTypeConstraint ActionAnyTitleFieldInfo = (~) ActionAny-    type AttrGetType ActionAnyTitleFieldInfo = Maybe T.Text-    type AttrLabel ActionAnyTitleFieldInfo = "title"-    attrGet _ = actionAnyReadTitle-    attrSet _ = actionAnyWriteTitle-    attrConstruct = undefined-    attrClear _ = actionAnyClearTitle--actionAnyTitle :: AttrLabelProxy "title"-actionAnyTitle = AttrLabelProxy----type instance AttributeList ActionAny = ActionAnyAttributeList-type ActionAnyAttributeList = ('[ '("type", ActionAnyTypeFieldInfo), '("title", ActionAnyTitleFieldInfo)] :: [(Symbol, *)])--type family ResolveActionAnyMethod (t :: Symbol) (o :: *) :: * where-    ResolveActionAnyMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveActionAnyMethod t ActionAny, MethodInfo info ActionAny p) => IsLabelProxy t (ActionAny -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveActionAnyMethod t ActionAny, MethodInfo info ActionAny p) => IsLabel t (ActionAny -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Poppler/Structs/ActionAny.hs-boot 
@@ -1,11 +0,0 @@-module GI.Poppler.Structs.ActionAny where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype ActionAny = ActionAny (ForeignPtr ActionAny)-instance WrappedPtr ActionAny where
− GI/Poppler/Structs/ActionGotoDest.hs 
@@ -1,179 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Poppler.Structs.ActionGotoDest-    ( ---- * Exported types-    ActionGotoDest(..)                      ,-    newZeroActionGotoDest                   ,-    noActionGotoDest                        ,--- -- * Properties--- ** Dest-    actionGotoDestClearDest                 ,-    actionGotoDestDest                      ,-    actionGotoDestReadDest                  ,-    actionGotoDestWriteDest                 ,----- ** Title-    actionGotoDestClearTitle                ,-    actionGotoDestReadTitle                 ,-    actionGotoDestTitle                     ,-    actionGotoDestWriteTitle                ,----- ** Type-    actionGotoDestReadType                  ,-    actionGotoDestType                      ,-    actionGotoDestWriteType                 ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks--newtype ActionGotoDest = ActionGotoDest (ForeignPtr ActionGotoDest)-instance WrappedPtr ActionGotoDest where-    wrappedPtrCalloc = callocBytes 24-    wrappedPtrCopy = copyPtr 24-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `ActionGotoDest` struct initialized to zero.-newZeroActionGotoDest :: MonadIO m => m ActionGotoDest-newZeroActionGotoDest = liftIO $ wrappedPtrCalloc >>= wrapPtr ActionGotoDest--instance tag ~ 'AttrSet => Constructible ActionGotoDest tag where-    new _ attrs = do-        o <- newZeroActionGotoDest-        GI.Attributes.set o attrs-        return o---noActionGotoDest :: Maybe ActionGotoDest-noActionGotoDest = Nothing--actionGotoDestReadType :: MonadIO m => ActionGotoDest -> m ActionType-actionGotoDestReadType s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--actionGotoDestWriteType :: MonadIO m => ActionGotoDest -> ActionType -> m ()-actionGotoDestWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 0) (val' :: CUInt)--data ActionGotoDestTypeFieldInfo-instance AttrInfo ActionGotoDestTypeFieldInfo where-    type AttrAllowedOps ActionGotoDestTypeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint ActionGotoDestTypeFieldInfo = (~) ActionType-    type AttrBaseTypeConstraint ActionGotoDestTypeFieldInfo = (~) ActionGotoDest-    type AttrGetType ActionGotoDestTypeFieldInfo = ActionType-    type AttrLabel ActionGotoDestTypeFieldInfo = "type"-    attrGet _ = actionGotoDestReadType-    attrSet _ = actionGotoDestWriteType-    attrConstruct = undefined-    attrClear _ = undefined--actionGotoDestType :: AttrLabelProxy "type"-actionGotoDestType = AttrLabelProxy---actionGotoDestReadTitle :: MonadIO m => ActionGotoDest -> m (Maybe T.Text)-actionGotoDestReadTitle s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--actionGotoDestWriteTitle :: MonadIO m => ActionGotoDest -> CString -> m ()-actionGotoDestWriteTitle s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: CString)--actionGotoDestClearTitle :: MonadIO m => ActionGotoDest -> m ()-actionGotoDestClearTitle s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (nullPtr :: CString)--data ActionGotoDestTitleFieldInfo-instance AttrInfo ActionGotoDestTitleFieldInfo where-    type AttrAllowedOps ActionGotoDestTitleFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ActionGotoDestTitleFieldInfo = (~) CString-    type AttrBaseTypeConstraint ActionGotoDestTitleFieldInfo = (~) ActionGotoDest-    type AttrGetType ActionGotoDestTitleFieldInfo = Maybe T.Text-    type AttrLabel ActionGotoDestTitleFieldInfo = "title"-    attrGet _ = actionGotoDestReadTitle-    attrSet _ = actionGotoDestWriteTitle-    attrConstruct = undefined-    attrClear _ = actionGotoDestClearTitle--actionGotoDestTitle :: AttrLabelProxy "title"-actionGotoDestTitle = AttrLabelProxy---actionGotoDestReadDest :: MonadIO m => ActionGotoDest -> m (Maybe Dest)-actionGotoDestReadDest s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO (Ptr Dest)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newBoxed Dest) val'-        return val''-    return result--actionGotoDestWriteDest :: MonadIO m => ActionGotoDest -> Ptr Dest -> m ()-actionGotoDestWriteDest s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: Ptr Dest)--actionGotoDestClearDest :: MonadIO m => ActionGotoDest -> m ()-actionGotoDestClearDest s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (nullPtr :: Ptr Dest)--data ActionGotoDestDestFieldInfo-instance AttrInfo ActionGotoDestDestFieldInfo where-    type AttrAllowedOps ActionGotoDestDestFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ActionGotoDestDestFieldInfo = (~) (Ptr Dest)-    type AttrBaseTypeConstraint ActionGotoDestDestFieldInfo = (~) ActionGotoDest-    type AttrGetType ActionGotoDestDestFieldInfo = Maybe Dest-    type AttrLabel ActionGotoDestDestFieldInfo = "dest"-    attrGet _ = actionGotoDestReadDest-    attrSet _ = actionGotoDestWriteDest-    attrConstruct = undefined-    attrClear _ = actionGotoDestClearDest--actionGotoDestDest :: AttrLabelProxy "dest"-actionGotoDestDest = AttrLabelProxy----type instance AttributeList ActionGotoDest = ActionGotoDestAttributeList-type ActionGotoDestAttributeList = ('[ '("type", ActionGotoDestTypeFieldInfo), '("title", ActionGotoDestTitleFieldInfo), '("dest", ActionGotoDestDestFieldInfo)] :: [(Symbol, *)])--type family ResolveActionGotoDestMethod (t :: Symbol) (o :: *) :: * where-    ResolveActionGotoDestMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveActionGotoDestMethod t ActionGotoDest, MethodInfo info ActionGotoDest p) => IsLabelProxy t (ActionGotoDest -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveActionGotoDestMethod t ActionGotoDest, MethodInfo info ActionGotoDest p) => IsLabel t (ActionGotoDest -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Poppler/Structs/ActionGotoDest.hs-boot 
@@ -1,11 +0,0 @@-module GI.Poppler.Structs.ActionGotoDest where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype ActionGotoDest = ActionGotoDest (ForeignPtr ActionGotoDest)-instance WrappedPtr ActionGotoDest where
− GI/Poppler/Structs/ActionGotoRemote.hs 
@@ -1,218 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Poppler.Structs.ActionGotoRemote-    ( ---- * Exported types-    ActionGotoRemote(..)                    ,-    newZeroActionGotoRemote                 ,-    noActionGotoRemote                      ,--- -- * Properties--- ** Dest-    actionGotoRemoteClearDest               ,-    actionGotoRemoteDest                    ,-    actionGotoRemoteReadDest                ,-    actionGotoRemoteWriteDest               ,----- ** FileName-    actionGotoRemoteClearFileName           ,-    actionGotoRemoteFileName                ,-    actionGotoRemoteReadFileName            ,-    actionGotoRemoteWriteFileName           ,----- ** Title-    actionGotoRemoteClearTitle              ,-    actionGotoRemoteReadTitle               ,-    actionGotoRemoteTitle                   ,-    actionGotoRemoteWriteTitle              ,----- ** Type-    actionGotoRemoteReadType                ,-    actionGotoRemoteType                    ,-    actionGotoRemoteWriteType               ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks--newtype ActionGotoRemote = ActionGotoRemote (ForeignPtr ActionGotoRemote)-instance WrappedPtr ActionGotoRemote where-    wrappedPtrCalloc = callocBytes 32-    wrappedPtrCopy = copyPtr 32-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `ActionGotoRemote` struct initialized to zero.-newZeroActionGotoRemote :: MonadIO m => m ActionGotoRemote-newZeroActionGotoRemote = liftIO $ wrappedPtrCalloc >>= wrapPtr ActionGotoRemote--instance tag ~ 'AttrSet => Constructible ActionGotoRemote tag where-    new _ attrs = do-        o <- newZeroActionGotoRemote-        GI.Attributes.set o attrs-        return o---noActionGotoRemote :: Maybe ActionGotoRemote-noActionGotoRemote = Nothing--actionGotoRemoteReadType :: MonadIO m => ActionGotoRemote -> m ActionType-actionGotoRemoteReadType s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--actionGotoRemoteWriteType :: MonadIO m => ActionGotoRemote -> ActionType -> m ()-actionGotoRemoteWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 0) (val' :: CUInt)--data ActionGotoRemoteTypeFieldInfo-instance AttrInfo ActionGotoRemoteTypeFieldInfo where-    type AttrAllowedOps ActionGotoRemoteTypeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint ActionGotoRemoteTypeFieldInfo = (~) ActionType-    type AttrBaseTypeConstraint ActionGotoRemoteTypeFieldInfo = (~) ActionGotoRemote-    type AttrGetType ActionGotoRemoteTypeFieldInfo = ActionType-    type AttrLabel ActionGotoRemoteTypeFieldInfo = "type"-    attrGet _ = actionGotoRemoteReadType-    attrSet _ = actionGotoRemoteWriteType-    attrConstruct = undefined-    attrClear _ = undefined--actionGotoRemoteType :: AttrLabelProxy "type"-actionGotoRemoteType = AttrLabelProxy---actionGotoRemoteReadTitle :: MonadIO m => ActionGotoRemote -> m (Maybe T.Text)-actionGotoRemoteReadTitle s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--actionGotoRemoteWriteTitle :: MonadIO m => ActionGotoRemote -> CString -> m ()-actionGotoRemoteWriteTitle s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: CString)--actionGotoRemoteClearTitle :: MonadIO m => ActionGotoRemote -> m ()-actionGotoRemoteClearTitle s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (nullPtr :: CString)--data ActionGotoRemoteTitleFieldInfo-instance AttrInfo ActionGotoRemoteTitleFieldInfo where-    type AttrAllowedOps ActionGotoRemoteTitleFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ActionGotoRemoteTitleFieldInfo = (~) CString-    type AttrBaseTypeConstraint ActionGotoRemoteTitleFieldInfo = (~) ActionGotoRemote-    type AttrGetType ActionGotoRemoteTitleFieldInfo = Maybe T.Text-    type AttrLabel ActionGotoRemoteTitleFieldInfo = "title"-    attrGet _ = actionGotoRemoteReadTitle-    attrSet _ = actionGotoRemoteWriteTitle-    attrConstruct = undefined-    attrClear _ = actionGotoRemoteClearTitle--actionGotoRemoteTitle :: AttrLabelProxy "title"-actionGotoRemoteTitle = AttrLabelProxy---actionGotoRemoteReadFileName :: MonadIO m => ActionGotoRemote -> m (Maybe T.Text)-actionGotoRemoteReadFileName s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--actionGotoRemoteWriteFileName :: MonadIO m => ActionGotoRemote -> CString -> m ()-actionGotoRemoteWriteFileName s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: CString)--actionGotoRemoteClearFileName :: MonadIO m => ActionGotoRemote -> m ()-actionGotoRemoteClearFileName s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (nullPtr :: CString)--data ActionGotoRemoteFileNameFieldInfo-instance AttrInfo ActionGotoRemoteFileNameFieldInfo where-    type AttrAllowedOps ActionGotoRemoteFileNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ActionGotoRemoteFileNameFieldInfo = (~) CString-    type AttrBaseTypeConstraint ActionGotoRemoteFileNameFieldInfo = (~) ActionGotoRemote-    type AttrGetType ActionGotoRemoteFileNameFieldInfo = Maybe T.Text-    type AttrLabel ActionGotoRemoteFileNameFieldInfo = "file_name"-    attrGet _ = actionGotoRemoteReadFileName-    attrSet _ = actionGotoRemoteWriteFileName-    attrConstruct = undefined-    attrClear _ = actionGotoRemoteClearFileName--actionGotoRemoteFileName :: AttrLabelProxy "fileName"-actionGotoRemoteFileName = AttrLabelProxy---actionGotoRemoteReadDest :: MonadIO m => ActionGotoRemote -> m (Maybe Dest)-actionGotoRemoteReadDest s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO (Ptr Dest)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newBoxed Dest) val'-        return val''-    return result--actionGotoRemoteWriteDest :: MonadIO m => ActionGotoRemote -> Ptr Dest -> m ()-actionGotoRemoteWriteDest s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (val :: Ptr Dest)--actionGotoRemoteClearDest :: MonadIO m => ActionGotoRemote -> m ()-actionGotoRemoteClearDest s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (nullPtr :: Ptr Dest)--data ActionGotoRemoteDestFieldInfo-instance AttrInfo ActionGotoRemoteDestFieldInfo where-    type AttrAllowedOps ActionGotoRemoteDestFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ActionGotoRemoteDestFieldInfo = (~) (Ptr Dest)-    type AttrBaseTypeConstraint ActionGotoRemoteDestFieldInfo = (~) ActionGotoRemote-    type AttrGetType ActionGotoRemoteDestFieldInfo = Maybe Dest-    type AttrLabel ActionGotoRemoteDestFieldInfo = "dest"-    attrGet _ = actionGotoRemoteReadDest-    attrSet _ = actionGotoRemoteWriteDest-    attrConstruct = undefined-    attrClear _ = actionGotoRemoteClearDest--actionGotoRemoteDest :: AttrLabelProxy "dest"-actionGotoRemoteDest = AttrLabelProxy----type instance AttributeList ActionGotoRemote = ActionGotoRemoteAttributeList-type ActionGotoRemoteAttributeList = ('[ '("type", ActionGotoRemoteTypeFieldInfo), '("title", ActionGotoRemoteTitleFieldInfo), '("fileName", ActionGotoRemoteFileNameFieldInfo), '("dest", ActionGotoRemoteDestFieldInfo)] :: [(Symbol, *)])--type family ResolveActionGotoRemoteMethod (t :: Symbol) (o :: *) :: * where-    ResolveActionGotoRemoteMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveActionGotoRemoteMethod t ActionGotoRemote, MethodInfo info ActionGotoRemote p) => IsLabelProxy t (ActionGotoRemote -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveActionGotoRemoteMethod t ActionGotoRemote, MethodInfo info ActionGotoRemote p) => IsLabel t (ActionGotoRemote -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Poppler/Structs/ActionGotoRemote.hs-boot 
@@ -1,11 +0,0 @@-module GI.Poppler.Structs.ActionGotoRemote where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype ActionGotoRemote = ActionGotoRemote (ForeignPtr ActionGotoRemote)-instance WrappedPtr ActionGotoRemote where
− GI/Poppler/Structs/ActionJavascript.hs 
@@ -1,179 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Poppler.Structs.ActionJavascript-    ( ---- * Exported types-    ActionJavascript(..)                    ,-    newZeroActionJavascript                 ,-    noActionJavascript                      ,--- -- * Properties--- ** Script-    actionJavascriptClearScript             ,-    actionJavascriptReadScript              ,-    actionJavascriptScript                  ,-    actionJavascriptWriteScript             ,----- ** Title-    actionJavascriptClearTitle              ,-    actionJavascriptReadTitle               ,-    actionJavascriptTitle                   ,-    actionJavascriptWriteTitle              ,----- ** Type-    actionJavascriptReadType                ,-    actionJavascriptType                    ,-    actionJavascriptWriteType               ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks--newtype ActionJavascript = ActionJavascript (ForeignPtr ActionJavascript)-instance WrappedPtr ActionJavascript where-    wrappedPtrCalloc = callocBytes 24-    wrappedPtrCopy = copyPtr 24-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `ActionJavascript` struct initialized to zero.-newZeroActionJavascript :: MonadIO m => m ActionJavascript-newZeroActionJavascript = liftIO $ wrappedPtrCalloc >>= wrapPtr ActionJavascript--instance tag ~ 'AttrSet => Constructible ActionJavascript tag where-    new _ attrs = do-        o <- newZeroActionJavascript-        GI.Attributes.set o attrs-        return o---noActionJavascript :: Maybe ActionJavascript-noActionJavascript = Nothing--actionJavascriptReadType :: MonadIO m => ActionJavascript -> m ActionType-actionJavascriptReadType s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--actionJavascriptWriteType :: MonadIO m => ActionJavascript -> ActionType -> m ()-actionJavascriptWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 0) (val' :: CUInt)--data ActionJavascriptTypeFieldInfo-instance AttrInfo ActionJavascriptTypeFieldInfo where-    type AttrAllowedOps ActionJavascriptTypeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint ActionJavascriptTypeFieldInfo = (~) ActionType-    type AttrBaseTypeConstraint ActionJavascriptTypeFieldInfo = (~) ActionJavascript-    type AttrGetType ActionJavascriptTypeFieldInfo = ActionType-    type AttrLabel ActionJavascriptTypeFieldInfo = "type"-    attrGet _ = actionJavascriptReadType-    attrSet _ = actionJavascriptWriteType-    attrConstruct = undefined-    attrClear _ = undefined--actionJavascriptType :: AttrLabelProxy "type"-actionJavascriptType = AttrLabelProxy---actionJavascriptReadTitle :: MonadIO m => ActionJavascript -> m (Maybe T.Text)-actionJavascriptReadTitle s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--actionJavascriptWriteTitle :: MonadIO m => ActionJavascript -> CString -> m ()-actionJavascriptWriteTitle s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: CString)--actionJavascriptClearTitle :: MonadIO m => ActionJavascript -> m ()-actionJavascriptClearTitle s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (nullPtr :: CString)--data ActionJavascriptTitleFieldInfo-instance AttrInfo ActionJavascriptTitleFieldInfo where-    type AttrAllowedOps ActionJavascriptTitleFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ActionJavascriptTitleFieldInfo = (~) CString-    type AttrBaseTypeConstraint ActionJavascriptTitleFieldInfo = (~) ActionJavascript-    type AttrGetType ActionJavascriptTitleFieldInfo = Maybe T.Text-    type AttrLabel ActionJavascriptTitleFieldInfo = "title"-    attrGet _ = actionJavascriptReadTitle-    attrSet _ = actionJavascriptWriteTitle-    attrConstruct = undefined-    attrClear _ = actionJavascriptClearTitle--actionJavascriptTitle :: AttrLabelProxy "title"-actionJavascriptTitle = AttrLabelProxy---actionJavascriptReadScript :: MonadIO m => ActionJavascript -> m (Maybe T.Text)-actionJavascriptReadScript s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--actionJavascriptWriteScript :: MonadIO m => ActionJavascript -> CString -> m ()-actionJavascriptWriteScript s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: CString)--actionJavascriptClearScript :: MonadIO m => ActionJavascript -> m ()-actionJavascriptClearScript s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (nullPtr :: CString)--data ActionJavascriptScriptFieldInfo-instance AttrInfo ActionJavascriptScriptFieldInfo where-    type AttrAllowedOps ActionJavascriptScriptFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ActionJavascriptScriptFieldInfo = (~) CString-    type AttrBaseTypeConstraint ActionJavascriptScriptFieldInfo = (~) ActionJavascript-    type AttrGetType ActionJavascriptScriptFieldInfo = Maybe T.Text-    type AttrLabel ActionJavascriptScriptFieldInfo = "script"-    attrGet _ = actionJavascriptReadScript-    attrSet _ = actionJavascriptWriteScript-    attrConstruct = undefined-    attrClear _ = actionJavascriptClearScript--actionJavascriptScript :: AttrLabelProxy "script"-actionJavascriptScript = AttrLabelProxy----type instance AttributeList ActionJavascript = ActionJavascriptAttributeList-type ActionJavascriptAttributeList = ('[ '("type", ActionJavascriptTypeFieldInfo), '("title", ActionJavascriptTitleFieldInfo), '("script", ActionJavascriptScriptFieldInfo)] :: [(Symbol, *)])--type family ResolveActionJavascriptMethod (t :: Symbol) (o :: *) :: * where-    ResolveActionJavascriptMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveActionJavascriptMethod t ActionJavascript, MethodInfo info ActionJavascript p) => IsLabelProxy t (ActionJavascript -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveActionJavascriptMethod t ActionJavascript, MethodInfo info ActionJavascript p) => IsLabel t (ActionJavascript -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Poppler/Structs/ActionJavascript.hs-boot 
@@ -1,11 +0,0 @@-module GI.Poppler.Structs.ActionJavascript where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype ActionJavascript = ActionJavascript (ForeignPtr ActionJavascript)-instance WrappedPtr ActionJavascript where
− GI/Poppler/Structs/ActionLaunch.hs 
@@ -1,218 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Poppler.Structs.ActionLaunch-    ( ---- * Exported types-    ActionLaunch(..)                        ,-    newZeroActionLaunch                     ,-    noActionLaunch                          ,--- -- * Properties--- ** FileName-    actionLaunchClearFileName               ,-    actionLaunchFileName                    ,-    actionLaunchReadFileName                ,-    actionLaunchWriteFileName               ,----- ** Params-    actionLaunchClearParams                 ,-    actionLaunchParams                      ,-    actionLaunchReadParams                  ,-    actionLaunchWriteParams                 ,----- ** Title-    actionLaunchClearTitle                  ,-    actionLaunchReadTitle                   ,-    actionLaunchTitle                       ,-    actionLaunchWriteTitle                  ,----- ** Type-    actionLaunchReadType                    ,-    actionLaunchType                        ,-    actionLaunchWriteType                   ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks--newtype ActionLaunch = ActionLaunch (ForeignPtr ActionLaunch)-instance WrappedPtr ActionLaunch where-    wrappedPtrCalloc = callocBytes 32-    wrappedPtrCopy = copyPtr 32-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `ActionLaunch` struct initialized to zero.-newZeroActionLaunch :: MonadIO m => m ActionLaunch-newZeroActionLaunch = liftIO $ wrappedPtrCalloc >>= wrapPtr ActionLaunch--instance tag ~ 'AttrSet => Constructible ActionLaunch tag where-    new _ attrs = do-        o <- newZeroActionLaunch-        GI.Attributes.set o attrs-        return o---noActionLaunch :: Maybe ActionLaunch-noActionLaunch = Nothing--actionLaunchReadType :: MonadIO m => ActionLaunch -> m ActionType-actionLaunchReadType s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--actionLaunchWriteType :: MonadIO m => ActionLaunch -> ActionType -> m ()-actionLaunchWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 0) (val' :: CUInt)--data ActionLaunchTypeFieldInfo-instance AttrInfo ActionLaunchTypeFieldInfo where-    type AttrAllowedOps ActionLaunchTypeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint ActionLaunchTypeFieldInfo = (~) ActionType-    type AttrBaseTypeConstraint ActionLaunchTypeFieldInfo = (~) ActionLaunch-    type AttrGetType ActionLaunchTypeFieldInfo = ActionType-    type AttrLabel ActionLaunchTypeFieldInfo = "type"-    attrGet _ = actionLaunchReadType-    attrSet _ = actionLaunchWriteType-    attrConstruct = undefined-    attrClear _ = undefined--actionLaunchType :: AttrLabelProxy "type"-actionLaunchType = AttrLabelProxy---actionLaunchReadTitle :: MonadIO m => ActionLaunch -> m (Maybe T.Text)-actionLaunchReadTitle s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--actionLaunchWriteTitle :: MonadIO m => ActionLaunch -> CString -> m ()-actionLaunchWriteTitle s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: CString)--actionLaunchClearTitle :: MonadIO m => ActionLaunch -> m ()-actionLaunchClearTitle s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (nullPtr :: CString)--data ActionLaunchTitleFieldInfo-instance AttrInfo ActionLaunchTitleFieldInfo where-    type AttrAllowedOps ActionLaunchTitleFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ActionLaunchTitleFieldInfo = (~) CString-    type AttrBaseTypeConstraint ActionLaunchTitleFieldInfo = (~) ActionLaunch-    type AttrGetType ActionLaunchTitleFieldInfo = Maybe T.Text-    type AttrLabel ActionLaunchTitleFieldInfo = "title"-    attrGet _ = actionLaunchReadTitle-    attrSet _ = actionLaunchWriteTitle-    attrConstruct = undefined-    attrClear _ = actionLaunchClearTitle--actionLaunchTitle :: AttrLabelProxy "title"-actionLaunchTitle = AttrLabelProxy---actionLaunchReadFileName :: MonadIO m => ActionLaunch -> m (Maybe T.Text)-actionLaunchReadFileName s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--actionLaunchWriteFileName :: MonadIO m => ActionLaunch -> CString -> m ()-actionLaunchWriteFileName s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: CString)--actionLaunchClearFileName :: MonadIO m => ActionLaunch -> m ()-actionLaunchClearFileName s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (nullPtr :: CString)--data ActionLaunchFileNameFieldInfo-instance AttrInfo ActionLaunchFileNameFieldInfo where-    type AttrAllowedOps ActionLaunchFileNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ActionLaunchFileNameFieldInfo = (~) CString-    type AttrBaseTypeConstraint ActionLaunchFileNameFieldInfo = (~) ActionLaunch-    type AttrGetType ActionLaunchFileNameFieldInfo = Maybe T.Text-    type AttrLabel ActionLaunchFileNameFieldInfo = "file_name"-    attrGet _ = actionLaunchReadFileName-    attrSet _ = actionLaunchWriteFileName-    attrConstruct = undefined-    attrClear _ = actionLaunchClearFileName--actionLaunchFileName :: AttrLabelProxy "fileName"-actionLaunchFileName = AttrLabelProxy---actionLaunchReadParams :: MonadIO m => ActionLaunch -> m (Maybe T.Text)-actionLaunchReadParams s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--actionLaunchWriteParams :: MonadIO m => ActionLaunch -> CString -> m ()-actionLaunchWriteParams s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (val :: CString)--actionLaunchClearParams :: MonadIO m => ActionLaunch -> m ()-actionLaunchClearParams s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (nullPtr :: CString)--data ActionLaunchParamsFieldInfo-instance AttrInfo ActionLaunchParamsFieldInfo where-    type AttrAllowedOps ActionLaunchParamsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ActionLaunchParamsFieldInfo = (~) CString-    type AttrBaseTypeConstraint ActionLaunchParamsFieldInfo = (~) ActionLaunch-    type AttrGetType ActionLaunchParamsFieldInfo = Maybe T.Text-    type AttrLabel ActionLaunchParamsFieldInfo = "params"-    attrGet _ = actionLaunchReadParams-    attrSet _ = actionLaunchWriteParams-    attrConstruct = undefined-    attrClear _ = actionLaunchClearParams--actionLaunchParams :: AttrLabelProxy "params"-actionLaunchParams = AttrLabelProxy----type instance AttributeList ActionLaunch = ActionLaunchAttributeList-type ActionLaunchAttributeList = ('[ '("type", ActionLaunchTypeFieldInfo), '("title", ActionLaunchTitleFieldInfo), '("fileName", ActionLaunchFileNameFieldInfo), '("params", ActionLaunchParamsFieldInfo)] :: [(Symbol, *)])--type family ResolveActionLaunchMethod (t :: Symbol) (o :: *) :: * where-    ResolveActionLaunchMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveActionLaunchMethod t ActionLaunch, MethodInfo info ActionLaunch p) => IsLabelProxy t (ActionLaunch -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveActionLaunchMethod t ActionLaunch, MethodInfo info ActionLaunch p) => IsLabel t (ActionLaunch -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Poppler/Structs/ActionLaunch.hs-boot 
@@ -1,11 +0,0 @@-module GI.Poppler.Structs.ActionLaunch where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype ActionLaunch = ActionLaunch (ForeignPtr ActionLaunch)-instance WrappedPtr ActionLaunch where
− GI/Poppler/Structs/ActionLayer.hs 
@@ -1,140 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--Action to perform over a list of layers--}--module GI.Poppler.Structs.ActionLayer-    ( ---- * Exported types-    ActionLayer(..)                         ,-    newZeroActionLayer                      ,-    noActionLayer                           ,--- -- * Properties--- ** Action-    actionLayerAction                       ,-    actionLayerReadAction                   ,-    actionLayerWriteAction                  ,----- ** Layers-    actionLayerClearLayers                  ,-    actionLayerLayers                       ,-    actionLayerReadLayers                   ,-    actionLayerWriteLayers                  ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks--newtype ActionLayer = ActionLayer (ForeignPtr ActionLayer)-instance WrappedPtr ActionLayer where-    wrappedPtrCalloc = callocBytes 16-    wrappedPtrCopy = copyPtr 16-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `ActionLayer` struct initialized to zero.-newZeroActionLayer :: MonadIO m => m ActionLayer-newZeroActionLayer = liftIO $ wrappedPtrCalloc >>= wrapPtr ActionLayer--instance tag ~ 'AttrSet => Constructible ActionLayer tag where-    new _ attrs = do-        o <- newZeroActionLayer-        GI.Attributes.set o attrs-        return o---noActionLayer :: Maybe ActionLayer-noActionLayer = Nothing--actionLayerReadAction :: MonadIO m => ActionLayer -> m ActionLayerAction-actionLayerReadAction s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--actionLayerWriteAction :: MonadIO m => ActionLayer -> ActionLayerAction -> m ()-actionLayerWriteAction s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 0) (val' :: CUInt)--data ActionLayerActionFieldInfo-instance AttrInfo ActionLayerActionFieldInfo where-    type AttrAllowedOps ActionLayerActionFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint ActionLayerActionFieldInfo = (~) ActionLayerAction-    type AttrBaseTypeConstraint ActionLayerActionFieldInfo = (~) ActionLayer-    type AttrGetType ActionLayerActionFieldInfo = ActionLayerAction-    type AttrLabel ActionLayerActionFieldInfo = "action"-    attrGet _ = actionLayerReadAction-    attrSet _ = actionLayerWriteAction-    attrConstruct = undefined-    attrClear _ = undefined--actionLayerAction :: AttrLabelProxy "action"-actionLayerAction = AttrLabelProxy---actionLayerReadLayers :: MonadIO m => ActionLayer -> m ([Ptr ()])-actionLayerReadLayers s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr (GList (Ptr ())))-    val' <- unpackGList val-    return val'--actionLayerWriteLayers :: MonadIO m => ActionLayer -> Ptr (GList (Ptr ())) -> m ()-actionLayerWriteLayers s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: Ptr (GList (Ptr ())))--actionLayerClearLayers :: MonadIO m => ActionLayer -> m ()-actionLayerClearLayers s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (nullPtr :: Ptr (GList (Ptr ())))--data ActionLayerLayersFieldInfo-instance AttrInfo ActionLayerLayersFieldInfo where-    type AttrAllowedOps ActionLayerLayersFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ActionLayerLayersFieldInfo = (~) (Ptr (GList (Ptr ())))-    type AttrBaseTypeConstraint ActionLayerLayersFieldInfo = (~) ActionLayer-    type AttrGetType ActionLayerLayersFieldInfo = [Ptr ()]-    type AttrLabel ActionLayerLayersFieldInfo = "layers"-    attrGet _ = actionLayerReadLayers-    attrSet _ = actionLayerWriteLayers-    attrConstruct = undefined-    attrClear _ = actionLayerClearLayers--actionLayerLayers :: AttrLabelProxy "layers"-actionLayerLayers = AttrLabelProxy----type instance AttributeList ActionLayer = ActionLayerAttributeList-type ActionLayerAttributeList = ('[ '("action", ActionLayerActionFieldInfo), '("layers", ActionLayerLayersFieldInfo)] :: [(Symbol, *)])--type family ResolveActionLayerMethod (t :: Symbol) (o :: *) :: * where-    ResolveActionLayerMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveActionLayerMethod t ActionLayer, MethodInfo info ActionLayer p) => IsLabelProxy t (ActionLayer -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveActionLayerMethod t ActionLayer, MethodInfo info ActionLayer p) => IsLabel t (ActionLayer -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Poppler/Structs/ActionLayer.hs-boot 
@@ -1,11 +0,0 @@-module GI.Poppler.Structs.ActionLayer where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype ActionLayer = ActionLayer (ForeignPtr ActionLayer)-instance WrappedPtr ActionLayer where
− GI/Poppler/Structs/ActionMovie.hs 
@@ -1,212 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Poppler.Structs.ActionMovie-    ( ---- * Exported types-    ActionMovie(..)                         ,-    newZeroActionMovie                      ,-    noActionMovie                           ,--- -- * Properties--- ** Movie-    actionMovieClearMovie                   ,-    actionMovieMovie                        ,-    actionMovieReadMovie                    ,-    actionMovieWriteMovie                   ,----- ** Operation-    actionMovieOperation                    ,-    actionMovieReadOperation                ,-    actionMovieWriteOperation               ,----- ** Title-    actionMovieClearTitle                   ,-    actionMovieReadTitle                    ,-    actionMovieTitle                        ,-    actionMovieWriteTitle                   ,----- ** Type-    actionMovieReadType                     ,-    actionMovieType                         ,-    actionMovieWriteType                    ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks--newtype ActionMovie = ActionMovie (ForeignPtr ActionMovie)-instance WrappedPtr ActionMovie where-    wrappedPtrCalloc = callocBytes 32-    wrappedPtrCopy = copyPtr 32-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `ActionMovie` struct initialized to zero.-newZeroActionMovie :: MonadIO m => m ActionMovie-newZeroActionMovie = liftIO $ wrappedPtrCalloc >>= wrapPtr ActionMovie--instance tag ~ 'AttrSet => Constructible ActionMovie tag where-    new _ attrs = do-        o <- newZeroActionMovie-        GI.Attributes.set o attrs-        return o---noActionMovie :: Maybe ActionMovie-noActionMovie = Nothing--actionMovieReadType :: MonadIO m => ActionMovie -> m ActionType-actionMovieReadType s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--actionMovieWriteType :: MonadIO m => ActionMovie -> ActionType -> m ()-actionMovieWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 0) (val' :: CUInt)--data ActionMovieTypeFieldInfo-instance AttrInfo ActionMovieTypeFieldInfo where-    type AttrAllowedOps ActionMovieTypeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint ActionMovieTypeFieldInfo = (~) ActionType-    type AttrBaseTypeConstraint ActionMovieTypeFieldInfo = (~) ActionMovie-    type AttrGetType ActionMovieTypeFieldInfo = ActionType-    type AttrLabel ActionMovieTypeFieldInfo = "type"-    attrGet _ = actionMovieReadType-    attrSet _ = actionMovieWriteType-    attrConstruct = undefined-    attrClear _ = undefined--actionMovieType :: AttrLabelProxy "type"-actionMovieType = AttrLabelProxy---actionMovieReadTitle :: MonadIO m => ActionMovie -> m (Maybe T.Text)-actionMovieReadTitle s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--actionMovieWriteTitle :: MonadIO m => ActionMovie -> CString -> m ()-actionMovieWriteTitle s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: CString)--actionMovieClearTitle :: MonadIO m => ActionMovie -> m ()-actionMovieClearTitle s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (nullPtr :: CString)--data ActionMovieTitleFieldInfo-instance AttrInfo ActionMovieTitleFieldInfo where-    type AttrAllowedOps ActionMovieTitleFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ActionMovieTitleFieldInfo = (~) CString-    type AttrBaseTypeConstraint ActionMovieTitleFieldInfo = (~) ActionMovie-    type AttrGetType ActionMovieTitleFieldInfo = Maybe T.Text-    type AttrLabel ActionMovieTitleFieldInfo = "title"-    attrGet _ = actionMovieReadTitle-    attrSet _ = actionMovieWriteTitle-    attrConstruct = undefined-    attrClear _ = actionMovieClearTitle--actionMovieTitle :: AttrLabelProxy "title"-actionMovieTitle = AttrLabelProxy---actionMovieReadOperation :: MonadIO m => ActionMovie -> m ActionMovieOperation-actionMovieReadOperation s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--actionMovieWriteOperation :: MonadIO m => ActionMovie -> ActionMovieOperation -> m ()-actionMovieWriteOperation s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 16) (val' :: CUInt)--data ActionMovieOperationFieldInfo-instance AttrInfo ActionMovieOperationFieldInfo where-    type AttrAllowedOps ActionMovieOperationFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint ActionMovieOperationFieldInfo = (~) ActionMovieOperation-    type AttrBaseTypeConstraint ActionMovieOperationFieldInfo = (~) ActionMovie-    type AttrGetType ActionMovieOperationFieldInfo = ActionMovieOperation-    type AttrLabel ActionMovieOperationFieldInfo = "operation"-    attrGet _ = actionMovieReadOperation-    attrSet _ = actionMovieWriteOperation-    attrConstruct = undefined-    attrClear _ = undefined--actionMovieOperation :: AttrLabelProxy "operation"-actionMovieOperation = AttrLabelProxy---actionMovieReadMovie :: MonadIO m => ActionMovie -> m (Maybe Movie)-actionMovieReadMovie s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO (Ptr Movie)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newObject Movie) val'-        return val''-    return result--actionMovieWriteMovie :: MonadIO m => ActionMovie -> Ptr Movie -> m ()-actionMovieWriteMovie s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (val :: Ptr Movie)--actionMovieClearMovie :: MonadIO m => ActionMovie -> m ()-actionMovieClearMovie s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (nullPtr :: Ptr Movie)--data ActionMovieMovieFieldInfo-instance AttrInfo ActionMovieMovieFieldInfo where-    type AttrAllowedOps ActionMovieMovieFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ActionMovieMovieFieldInfo = (~) (Ptr Movie)-    type AttrBaseTypeConstraint ActionMovieMovieFieldInfo = (~) ActionMovie-    type AttrGetType ActionMovieMovieFieldInfo = Maybe Movie-    type AttrLabel ActionMovieMovieFieldInfo = "movie"-    attrGet _ = actionMovieReadMovie-    attrSet _ = actionMovieWriteMovie-    attrConstruct = undefined-    attrClear _ = actionMovieClearMovie--actionMovieMovie :: AttrLabelProxy "movie"-actionMovieMovie = AttrLabelProxy----type instance AttributeList ActionMovie = ActionMovieAttributeList-type ActionMovieAttributeList = ('[ '("type", ActionMovieTypeFieldInfo), '("title", ActionMovieTitleFieldInfo), '("operation", ActionMovieOperationFieldInfo), '("movie", ActionMovieMovieFieldInfo)] :: [(Symbol, *)])--type family ResolveActionMovieMethod (t :: Symbol) (o :: *) :: * where-    ResolveActionMovieMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveActionMovieMethod t ActionMovie, MethodInfo info ActionMovie p) => IsLabelProxy t (ActionMovie -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveActionMovieMethod t ActionMovie, MethodInfo info ActionMovie p) => IsLabel t (ActionMovie -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Poppler/Structs/ActionMovie.hs-boot 
@@ -1,11 +0,0 @@-module GI.Poppler.Structs.ActionMovie where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype ActionMovie = ActionMovie (ForeignPtr ActionMovie)-instance WrappedPtr ActionMovie where
− GI/Poppler/Structs/ActionNamed.hs 
@@ -1,179 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Poppler.Structs.ActionNamed-    ( ---- * Exported types-    ActionNamed(..)                         ,-    newZeroActionNamed                      ,-    noActionNamed                           ,--- -- * Properties--- ** NamedDest-    actionNamedClearNamedDest               ,-    actionNamedNamedDest                    ,-    actionNamedReadNamedDest                ,-    actionNamedWriteNamedDest               ,----- ** Title-    actionNamedClearTitle                   ,-    actionNamedReadTitle                    ,-    actionNamedTitle                        ,-    actionNamedWriteTitle                   ,----- ** Type-    actionNamedReadType                     ,-    actionNamedType                         ,-    actionNamedWriteType                    ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks--newtype ActionNamed = ActionNamed (ForeignPtr ActionNamed)-instance WrappedPtr ActionNamed where-    wrappedPtrCalloc = callocBytes 24-    wrappedPtrCopy = copyPtr 24-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `ActionNamed` struct initialized to zero.-newZeroActionNamed :: MonadIO m => m ActionNamed-newZeroActionNamed = liftIO $ wrappedPtrCalloc >>= wrapPtr ActionNamed--instance tag ~ 'AttrSet => Constructible ActionNamed tag where-    new _ attrs = do-        o <- newZeroActionNamed-        GI.Attributes.set o attrs-        return o---noActionNamed :: Maybe ActionNamed-noActionNamed = Nothing--actionNamedReadType :: MonadIO m => ActionNamed -> m ActionType-actionNamedReadType s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--actionNamedWriteType :: MonadIO m => ActionNamed -> ActionType -> m ()-actionNamedWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 0) (val' :: CUInt)--data ActionNamedTypeFieldInfo-instance AttrInfo ActionNamedTypeFieldInfo where-    type AttrAllowedOps ActionNamedTypeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint ActionNamedTypeFieldInfo = (~) ActionType-    type AttrBaseTypeConstraint ActionNamedTypeFieldInfo = (~) ActionNamed-    type AttrGetType ActionNamedTypeFieldInfo = ActionType-    type AttrLabel ActionNamedTypeFieldInfo = "type"-    attrGet _ = actionNamedReadType-    attrSet _ = actionNamedWriteType-    attrConstruct = undefined-    attrClear _ = undefined--actionNamedType :: AttrLabelProxy "type"-actionNamedType = AttrLabelProxy---actionNamedReadTitle :: MonadIO m => ActionNamed -> m (Maybe T.Text)-actionNamedReadTitle s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--actionNamedWriteTitle :: MonadIO m => ActionNamed -> CString -> m ()-actionNamedWriteTitle s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: CString)--actionNamedClearTitle :: MonadIO m => ActionNamed -> m ()-actionNamedClearTitle s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (nullPtr :: CString)--data ActionNamedTitleFieldInfo-instance AttrInfo ActionNamedTitleFieldInfo where-    type AttrAllowedOps ActionNamedTitleFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ActionNamedTitleFieldInfo = (~) CString-    type AttrBaseTypeConstraint ActionNamedTitleFieldInfo = (~) ActionNamed-    type AttrGetType ActionNamedTitleFieldInfo = Maybe T.Text-    type AttrLabel ActionNamedTitleFieldInfo = "title"-    attrGet _ = actionNamedReadTitle-    attrSet _ = actionNamedWriteTitle-    attrConstruct = undefined-    attrClear _ = actionNamedClearTitle--actionNamedTitle :: AttrLabelProxy "title"-actionNamedTitle = AttrLabelProxy---actionNamedReadNamedDest :: MonadIO m => ActionNamed -> m (Maybe T.Text)-actionNamedReadNamedDest s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--actionNamedWriteNamedDest :: MonadIO m => ActionNamed -> CString -> m ()-actionNamedWriteNamedDest s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: CString)--actionNamedClearNamedDest :: MonadIO m => ActionNamed -> m ()-actionNamedClearNamedDest s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (nullPtr :: CString)--data ActionNamedNamedDestFieldInfo-instance AttrInfo ActionNamedNamedDestFieldInfo where-    type AttrAllowedOps ActionNamedNamedDestFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ActionNamedNamedDestFieldInfo = (~) CString-    type AttrBaseTypeConstraint ActionNamedNamedDestFieldInfo = (~) ActionNamed-    type AttrGetType ActionNamedNamedDestFieldInfo = Maybe T.Text-    type AttrLabel ActionNamedNamedDestFieldInfo = "named_dest"-    attrGet _ = actionNamedReadNamedDest-    attrSet _ = actionNamedWriteNamedDest-    attrConstruct = undefined-    attrClear _ = actionNamedClearNamedDest--actionNamedNamedDest :: AttrLabelProxy "namedDest"-actionNamedNamedDest = AttrLabelProxy----type instance AttributeList ActionNamed = ActionNamedAttributeList-type ActionNamedAttributeList = ('[ '("type", ActionNamedTypeFieldInfo), '("title", ActionNamedTitleFieldInfo), '("namedDest", ActionNamedNamedDestFieldInfo)] :: [(Symbol, *)])--type family ResolveActionNamedMethod (t :: Symbol) (o :: *) :: * where-    ResolveActionNamedMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveActionNamedMethod t ActionNamed, MethodInfo info ActionNamed p) => IsLabelProxy t (ActionNamed -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveActionNamedMethod t ActionNamed, MethodInfo info ActionNamed p) => IsLabel t (ActionNamed -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Poppler/Structs/ActionNamed.hs-boot 
@@ -1,11 +0,0 @@-module GI.Poppler.Structs.ActionNamed where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype ActionNamed = ActionNamed (ForeignPtr ActionNamed)-instance WrappedPtr ActionNamed where
− GI/Poppler/Structs/ActionOCGState.hs 
@@ -1,177 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Poppler.Structs.ActionOCGState-    ( ---- * Exported types-    ActionOCGState(..)                      ,-    newZeroActionOCGState                   ,-    noActionOCGState                        ,--- -- * Properties--- ** StateList-    actionOCGStateClearStateList            ,-    actionOCGStateReadStateList             ,-    actionOCGStateStateList                 ,-    actionOCGStateWriteStateList            ,----- ** Title-    actionOCGStateClearTitle                ,-    actionOCGStateReadTitle                 ,-    actionOCGStateTitle                     ,-    actionOCGStateWriteTitle                ,----- ** Type-    actionOCGStateReadType                  ,-    actionOCGStateType                      ,-    actionOCGStateWriteType                 ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks--newtype ActionOCGState = ActionOCGState (ForeignPtr ActionOCGState)-instance WrappedPtr ActionOCGState where-    wrappedPtrCalloc = callocBytes 24-    wrappedPtrCopy = copyPtr 24-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `ActionOCGState` struct initialized to zero.-newZeroActionOCGState :: MonadIO m => m ActionOCGState-newZeroActionOCGState = liftIO $ wrappedPtrCalloc >>= wrapPtr ActionOCGState--instance tag ~ 'AttrSet => Constructible ActionOCGState tag where-    new _ attrs = do-        o <- newZeroActionOCGState-        GI.Attributes.set o attrs-        return o---noActionOCGState :: Maybe ActionOCGState-noActionOCGState = Nothing--actionOCGStateReadType :: MonadIO m => ActionOCGState -> m ActionType-actionOCGStateReadType s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--actionOCGStateWriteType :: MonadIO m => ActionOCGState -> ActionType -> m ()-actionOCGStateWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 0) (val' :: CUInt)--data ActionOCGStateTypeFieldInfo-instance AttrInfo ActionOCGStateTypeFieldInfo where-    type AttrAllowedOps ActionOCGStateTypeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint ActionOCGStateTypeFieldInfo = (~) ActionType-    type AttrBaseTypeConstraint ActionOCGStateTypeFieldInfo = (~) ActionOCGState-    type AttrGetType ActionOCGStateTypeFieldInfo = ActionType-    type AttrLabel ActionOCGStateTypeFieldInfo = "type"-    attrGet _ = actionOCGStateReadType-    attrSet _ = actionOCGStateWriteType-    attrConstruct = undefined-    attrClear _ = undefined--actionOCGStateType :: AttrLabelProxy "type"-actionOCGStateType = AttrLabelProxy---actionOCGStateReadTitle :: MonadIO m => ActionOCGState -> m (Maybe T.Text)-actionOCGStateReadTitle s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--actionOCGStateWriteTitle :: MonadIO m => ActionOCGState -> CString -> m ()-actionOCGStateWriteTitle s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: CString)--actionOCGStateClearTitle :: MonadIO m => ActionOCGState -> m ()-actionOCGStateClearTitle s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (nullPtr :: CString)--data ActionOCGStateTitleFieldInfo-instance AttrInfo ActionOCGStateTitleFieldInfo where-    type AttrAllowedOps ActionOCGStateTitleFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ActionOCGStateTitleFieldInfo = (~) CString-    type AttrBaseTypeConstraint ActionOCGStateTitleFieldInfo = (~) ActionOCGState-    type AttrGetType ActionOCGStateTitleFieldInfo = Maybe T.Text-    type AttrLabel ActionOCGStateTitleFieldInfo = "title"-    attrGet _ = actionOCGStateReadTitle-    attrSet _ = actionOCGStateWriteTitle-    attrConstruct = undefined-    attrClear _ = actionOCGStateClearTitle--actionOCGStateTitle :: AttrLabelProxy "title"-actionOCGStateTitle = AttrLabelProxy---actionOCGStateReadStateList :: MonadIO m => ActionOCGState -> m ([Ptr ()])-actionOCGStateReadStateList s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO (Ptr (GList (Ptr ())))-    val' <- unpackGList val-    return val'--actionOCGStateWriteStateList :: MonadIO m => ActionOCGState -> Ptr (GList (Ptr ())) -> m ()-actionOCGStateWriteStateList s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: Ptr (GList (Ptr ())))--actionOCGStateClearStateList :: MonadIO m => ActionOCGState -> m ()-actionOCGStateClearStateList s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (nullPtr :: Ptr (GList (Ptr ())))--data ActionOCGStateStateListFieldInfo-instance AttrInfo ActionOCGStateStateListFieldInfo where-    type AttrAllowedOps ActionOCGStateStateListFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ActionOCGStateStateListFieldInfo = (~) (Ptr (GList (Ptr ())))-    type AttrBaseTypeConstraint ActionOCGStateStateListFieldInfo = (~) ActionOCGState-    type AttrGetType ActionOCGStateStateListFieldInfo = [Ptr ()]-    type AttrLabel ActionOCGStateStateListFieldInfo = "state_list"-    attrGet _ = actionOCGStateReadStateList-    attrSet _ = actionOCGStateWriteStateList-    attrConstruct = undefined-    attrClear _ = actionOCGStateClearStateList--actionOCGStateStateList :: AttrLabelProxy "stateList"-actionOCGStateStateList = AttrLabelProxy----type instance AttributeList ActionOCGState = ActionOCGStateAttributeList-type ActionOCGStateAttributeList = ('[ '("type", ActionOCGStateTypeFieldInfo), '("title", ActionOCGStateTitleFieldInfo), '("stateList", ActionOCGStateStateListFieldInfo)] :: [(Symbol, *)])--type family ResolveActionOCGStateMethod (t :: Symbol) (o :: *) :: * where-    ResolveActionOCGStateMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveActionOCGStateMethod t ActionOCGState, MethodInfo info ActionOCGState p) => IsLabelProxy t (ActionOCGState -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveActionOCGStateMethod t ActionOCGState, MethodInfo info ActionOCGState p) => IsLabel t (ActionOCGState -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Poppler/Structs/ActionOCGState.hs-boot 
@@ -1,11 +0,0 @@-module GI.Poppler.Structs.ActionOCGState where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype ActionOCGState = ActionOCGState (ForeignPtr ActionOCGState)-instance WrappedPtr ActionOCGState where
− GI/Poppler/Structs/ActionRendition.hs 
@@ -1,210 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Poppler.Structs.ActionRendition-    ( ---- * Exported types-    ActionRendition(..)                     ,-    newZeroActionRendition                  ,-    noActionRendition                       ,--- -- * Properties--- ** Media-    actionRenditionClearMedia               ,-    actionRenditionMedia                    ,-    actionRenditionReadMedia                ,-    actionRenditionWriteMedia               ,----- ** Op-    actionRenditionOp                       ,-    actionRenditionReadOp                   ,-    actionRenditionWriteOp                  ,----- ** Title-    actionRenditionClearTitle               ,-    actionRenditionReadTitle                ,-    actionRenditionTitle                    ,-    actionRenditionWriteTitle               ,----- ** Type-    actionRenditionReadType                 ,-    actionRenditionType                     ,-    actionRenditionWriteType                ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks--newtype ActionRendition = ActionRendition (ForeignPtr ActionRendition)-instance WrappedPtr ActionRendition where-    wrappedPtrCalloc = callocBytes 32-    wrappedPtrCopy = copyPtr 32-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `ActionRendition` struct initialized to zero.-newZeroActionRendition :: MonadIO m => m ActionRendition-newZeroActionRendition = liftIO $ wrappedPtrCalloc >>= wrapPtr ActionRendition--instance tag ~ 'AttrSet => Constructible ActionRendition tag where-    new _ attrs = do-        o <- newZeroActionRendition-        GI.Attributes.set o attrs-        return o---noActionRendition :: Maybe ActionRendition-noActionRendition = Nothing--actionRenditionReadType :: MonadIO m => ActionRendition -> m ActionType-actionRenditionReadType s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--actionRenditionWriteType :: MonadIO m => ActionRendition -> ActionType -> m ()-actionRenditionWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 0) (val' :: CUInt)--data ActionRenditionTypeFieldInfo-instance AttrInfo ActionRenditionTypeFieldInfo where-    type AttrAllowedOps ActionRenditionTypeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint ActionRenditionTypeFieldInfo = (~) ActionType-    type AttrBaseTypeConstraint ActionRenditionTypeFieldInfo = (~) ActionRendition-    type AttrGetType ActionRenditionTypeFieldInfo = ActionType-    type AttrLabel ActionRenditionTypeFieldInfo = "type"-    attrGet _ = actionRenditionReadType-    attrSet _ = actionRenditionWriteType-    attrConstruct = undefined-    attrClear _ = undefined--actionRenditionType :: AttrLabelProxy "type"-actionRenditionType = AttrLabelProxy---actionRenditionReadTitle :: MonadIO m => ActionRendition -> m (Maybe T.Text)-actionRenditionReadTitle s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--actionRenditionWriteTitle :: MonadIO m => ActionRendition -> CString -> m ()-actionRenditionWriteTitle s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: CString)--actionRenditionClearTitle :: MonadIO m => ActionRendition -> m ()-actionRenditionClearTitle s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (nullPtr :: CString)--data ActionRenditionTitleFieldInfo-instance AttrInfo ActionRenditionTitleFieldInfo where-    type AttrAllowedOps ActionRenditionTitleFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ActionRenditionTitleFieldInfo = (~) CString-    type AttrBaseTypeConstraint ActionRenditionTitleFieldInfo = (~) ActionRendition-    type AttrGetType ActionRenditionTitleFieldInfo = Maybe T.Text-    type AttrLabel ActionRenditionTitleFieldInfo = "title"-    attrGet _ = actionRenditionReadTitle-    attrSet _ = actionRenditionWriteTitle-    attrConstruct = undefined-    attrClear _ = actionRenditionClearTitle--actionRenditionTitle :: AttrLabelProxy "title"-actionRenditionTitle = AttrLabelProxy---actionRenditionReadOp :: MonadIO m => ActionRendition -> m Int32-actionRenditionReadOp s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int32-    return val--actionRenditionWriteOp :: MonadIO m => ActionRendition -> Int32 -> m ()-actionRenditionWriteOp s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: Int32)--data ActionRenditionOpFieldInfo-instance AttrInfo ActionRenditionOpFieldInfo where-    type AttrAllowedOps ActionRenditionOpFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint ActionRenditionOpFieldInfo = (~) Int32-    type AttrBaseTypeConstraint ActionRenditionOpFieldInfo = (~) ActionRendition-    type AttrGetType ActionRenditionOpFieldInfo = Int32-    type AttrLabel ActionRenditionOpFieldInfo = "op"-    attrGet _ = actionRenditionReadOp-    attrSet _ = actionRenditionWriteOp-    attrConstruct = undefined-    attrClear _ = undefined--actionRenditionOp :: AttrLabelProxy "op"-actionRenditionOp = AttrLabelProxy---actionRenditionReadMedia :: MonadIO m => ActionRendition -> m (Maybe Media)-actionRenditionReadMedia s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO (Ptr Media)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newObject Media) val'-        return val''-    return result--actionRenditionWriteMedia :: MonadIO m => ActionRendition -> Ptr Media -> m ()-actionRenditionWriteMedia s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (val :: Ptr Media)--actionRenditionClearMedia :: MonadIO m => ActionRendition -> m ()-actionRenditionClearMedia s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (nullPtr :: Ptr Media)--data ActionRenditionMediaFieldInfo-instance AttrInfo ActionRenditionMediaFieldInfo where-    type AttrAllowedOps ActionRenditionMediaFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ActionRenditionMediaFieldInfo = (~) (Ptr Media)-    type AttrBaseTypeConstraint ActionRenditionMediaFieldInfo = (~) ActionRendition-    type AttrGetType ActionRenditionMediaFieldInfo = Maybe Media-    type AttrLabel ActionRenditionMediaFieldInfo = "media"-    attrGet _ = actionRenditionReadMedia-    attrSet _ = actionRenditionWriteMedia-    attrConstruct = undefined-    attrClear _ = actionRenditionClearMedia--actionRenditionMedia :: AttrLabelProxy "media"-actionRenditionMedia = AttrLabelProxy----type instance AttributeList ActionRendition = ActionRenditionAttributeList-type ActionRenditionAttributeList = ('[ '("type", ActionRenditionTypeFieldInfo), '("title", ActionRenditionTitleFieldInfo), '("op", ActionRenditionOpFieldInfo), '("media", ActionRenditionMediaFieldInfo)] :: [(Symbol, *)])--type family ResolveActionRenditionMethod (t :: Symbol) (o :: *) :: * where-    ResolveActionRenditionMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveActionRenditionMethod t ActionRendition, MethodInfo info ActionRendition p) => IsLabelProxy t (ActionRendition -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveActionRenditionMethod t ActionRendition, MethodInfo info ActionRendition p) => IsLabel t (ActionRendition -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Poppler/Structs/ActionRendition.hs-boot 
@@ -1,11 +0,0 @@-module GI.Poppler.Structs.ActionRendition where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype ActionRendition = ActionRendition (ForeignPtr ActionRendition)-instance WrappedPtr ActionRendition where
− GI/Poppler/Structs/ActionUri.hs 
@@ -1,179 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Poppler.Structs.ActionUri-    ( ---- * Exported types-    ActionUri(..)                           ,-    newZeroActionUri                        ,-    noActionUri                             ,--- -- * Properties--- ** Title-    actionUriClearTitle                     ,-    actionUriReadTitle                      ,-    actionUriTitle                          ,-    actionUriWriteTitle                     ,----- ** Type-    actionUriReadType                       ,-    actionUriType                           ,-    actionUriWriteType                      ,----- ** Uri-    actionUriClearUri                       ,-    actionUriReadUri                        ,-    actionUriUri                            ,-    actionUriWriteUri                       ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks--newtype ActionUri = ActionUri (ForeignPtr ActionUri)-instance WrappedPtr ActionUri where-    wrappedPtrCalloc = callocBytes 24-    wrappedPtrCopy = copyPtr 24-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `ActionUri` struct initialized to zero.-newZeroActionUri :: MonadIO m => m ActionUri-newZeroActionUri = liftIO $ wrappedPtrCalloc >>= wrapPtr ActionUri--instance tag ~ 'AttrSet => Constructible ActionUri tag where-    new _ attrs = do-        o <- newZeroActionUri-        GI.Attributes.set o attrs-        return o---noActionUri :: Maybe ActionUri-noActionUri = Nothing--actionUriReadType :: MonadIO m => ActionUri -> m ActionType-actionUriReadType s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--actionUriWriteType :: MonadIO m => ActionUri -> ActionType -> m ()-actionUriWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 0) (val' :: CUInt)--data ActionUriTypeFieldInfo-instance AttrInfo ActionUriTypeFieldInfo where-    type AttrAllowedOps ActionUriTypeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint ActionUriTypeFieldInfo = (~) ActionType-    type AttrBaseTypeConstraint ActionUriTypeFieldInfo = (~) ActionUri-    type AttrGetType ActionUriTypeFieldInfo = ActionType-    type AttrLabel ActionUriTypeFieldInfo = "type"-    attrGet _ = actionUriReadType-    attrSet _ = actionUriWriteType-    attrConstruct = undefined-    attrClear _ = undefined--actionUriType :: AttrLabelProxy "type"-actionUriType = AttrLabelProxy---actionUriReadTitle :: MonadIO m => ActionUri -> m (Maybe T.Text)-actionUriReadTitle s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--actionUriWriteTitle :: MonadIO m => ActionUri -> CString -> m ()-actionUriWriteTitle s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: CString)--actionUriClearTitle :: MonadIO m => ActionUri -> m ()-actionUriClearTitle s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (nullPtr :: CString)--data ActionUriTitleFieldInfo-instance AttrInfo ActionUriTitleFieldInfo where-    type AttrAllowedOps ActionUriTitleFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ActionUriTitleFieldInfo = (~) CString-    type AttrBaseTypeConstraint ActionUriTitleFieldInfo = (~) ActionUri-    type AttrGetType ActionUriTitleFieldInfo = Maybe T.Text-    type AttrLabel ActionUriTitleFieldInfo = "title"-    attrGet _ = actionUriReadTitle-    attrSet _ = actionUriWriteTitle-    attrConstruct = undefined-    attrClear _ = actionUriClearTitle--actionUriTitle :: AttrLabelProxy "title"-actionUriTitle = AttrLabelProxy---actionUriReadUri :: MonadIO m => ActionUri -> m (Maybe T.Text)-actionUriReadUri s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--actionUriWriteUri :: MonadIO m => ActionUri -> CString -> m ()-actionUriWriteUri s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: CString)--actionUriClearUri :: MonadIO m => ActionUri -> m ()-actionUriClearUri s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (nullPtr :: CString)--data ActionUriUriFieldInfo-instance AttrInfo ActionUriUriFieldInfo where-    type AttrAllowedOps ActionUriUriFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ActionUriUriFieldInfo = (~) CString-    type AttrBaseTypeConstraint ActionUriUriFieldInfo = (~) ActionUri-    type AttrGetType ActionUriUriFieldInfo = Maybe T.Text-    type AttrLabel ActionUriUriFieldInfo = "uri"-    attrGet _ = actionUriReadUri-    attrSet _ = actionUriWriteUri-    attrConstruct = undefined-    attrClear _ = actionUriClearUri--actionUriUri :: AttrLabelProxy "uri"-actionUriUri = AttrLabelProxy----type instance AttributeList ActionUri = ActionUriAttributeList-type ActionUriAttributeList = ('[ '("type", ActionUriTypeFieldInfo), '("title", ActionUriTitleFieldInfo), '("uri", ActionUriUriFieldInfo)] :: [(Symbol, *)])--type family ResolveActionUriMethod (t :: Symbol) (o :: *) :: * where-    ResolveActionUriMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveActionUriMethod t ActionUri, MethodInfo info ActionUri p) => IsLabelProxy t (ActionUri -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveActionUriMethod t ActionUri, MethodInfo info ActionUri p) => IsLabel t (ActionUri -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Poppler/Structs/ActionUri.hs-boot 
@@ -1,11 +0,0 @@-module GI.Poppler.Structs.ActionUri where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype ActionUri = ActionUri (ForeignPtr ActionUri)-instance WrappedPtr ActionUri where
− GI/Poppler/Structs/AnnotCalloutLine.hs 
@@ -1,396 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Poppler.Structs.AnnotCalloutLine-    ( ---- * Exported types-    AnnotCalloutLine(..)                    ,-    newZeroAnnotCalloutLine                 ,-    noAnnotCalloutLine                      ,--- -- * Methods--- ** annotCalloutLineCopy-    AnnotCalloutLineCopyMethodInfo          ,-    annotCalloutLineCopy                    ,----- ** annotCalloutLineFree-    AnnotCalloutLineFreeMethodInfo          ,-    annotCalloutLineFree                    ,----- ** annotCalloutLineNew-    annotCalloutLineNew                     ,----- -- * Properties--- ** Multiline-    annotCalloutLineMultiline               ,-    annotCalloutLineReadMultiline           ,-    annotCalloutLineWriteMultiline          ,----- ** X1-    annotCalloutLineReadX1                  ,-    annotCalloutLineWriteX1                 ,-    annotCalloutLineX1                      ,----- ** X2-    annotCalloutLineReadX2                  ,-    annotCalloutLineWriteX2                 ,-    annotCalloutLineX2                      ,----- ** X3-    annotCalloutLineReadX3                  ,-    annotCalloutLineWriteX3                 ,-    annotCalloutLineX3                      ,----- ** Y1-    annotCalloutLineReadY1                  ,-    annotCalloutLineWriteY1                 ,-    annotCalloutLineY1                      ,----- ** Y2-    annotCalloutLineReadY2                  ,-    annotCalloutLineWriteY2                 ,-    annotCalloutLineY2                      ,----- ** Y3-    annotCalloutLineReadY3                  ,-    annotCalloutLineWriteY3                 ,-    annotCalloutLineY3                      ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks--newtype AnnotCalloutLine = AnnotCalloutLine (ForeignPtr AnnotCalloutLine)-foreign import ccall "poppler_annot_callout_line_get_type" c_poppler_annot_callout_line_get_type :: -    IO GType--instance BoxedObject AnnotCalloutLine where-    boxedType _ = c_poppler_annot_callout_line_get_type---- | Construct a `AnnotCalloutLine` struct initialized to zero.-newZeroAnnotCalloutLine :: MonadIO m => m AnnotCalloutLine-newZeroAnnotCalloutLine = liftIO $ callocBoxedBytes 56 >>= wrapBoxed AnnotCalloutLine--instance tag ~ 'AttrSet => Constructible AnnotCalloutLine tag where-    new _ attrs = do-        o <- newZeroAnnotCalloutLine-        GI.Attributes.set o attrs-        return o---noAnnotCalloutLine :: Maybe AnnotCalloutLine-noAnnotCalloutLine = Nothing--annotCalloutLineReadMultiline :: MonadIO m => AnnotCalloutLine -> m Bool-annotCalloutLineReadMultiline s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CInt-    let val' = (/= 0) val-    return val'--annotCalloutLineWriteMultiline :: MonadIO m => AnnotCalloutLine -> Bool -> m ()-annotCalloutLineWriteMultiline s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 0) (val' :: CInt)--data AnnotCalloutLineMultilineFieldInfo-instance AttrInfo AnnotCalloutLineMultilineFieldInfo where-    type AttrAllowedOps AnnotCalloutLineMultilineFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint AnnotCalloutLineMultilineFieldInfo = (~) Bool-    type AttrBaseTypeConstraint AnnotCalloutLineMultilineFieldInfo = (~) AnnotCalloutLine-    type AttrGetType AnnotCalloutLineMultilineFieldInfo = Bool-    type AttrLabel AnnotCalloutLineMultilineFieldInfo = "multiline"-    attrGet _ = annotCalloutLineReadMultiline-    attrSet _ = annotCalloutLineWriteMultiline-    attrConstruct = undefined-    attrClear _ = undefined--annotCalloutLineMultiline :: AttrLabelProxy "multiline"-annotCalloutLineMultiline = AttrLabelProxy---annotCalloutLineReadX1 :: MonadIO m => AnnotCalloutLine -> m Double-annotCalloutLineReadX1 s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CDouble-    let val' = realToFrac val-    return val'--annotCalloutLineWriteX1 :: MonadIO m => AnnotCalloutLine -> Double -> m ()-annotCalloutLineWriteX1 s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 8) (val' :: CDouble)--data AnnotCalloutLineX1FieldInfo-instance AttrInfo AnnotCalloutLineX1FieldInfo where-    type AttrAllowedOps AnnotCalloutLineX1FieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint AnnotCalloutLineX1FieldInfo = (~) Double-    type AttrBaseTypeConstraint AnnotCalloutLineX1FieldInfo = (~) AnnotCalloutLine-    type AttrGetType AnnotCalloutLineX1FieldInfo = Double-    type AttrLabel AnnotCalloutLineX1FieldInfo = "x1"-    attrGet _ = annotCalloutLineReadX1-    attrSet _ = annotCalloutLineWriteX1-    attrConstruct = undefined-    attrClear _ = undefined--annotCalloutLineX1 :: AttrLabelProxy "x1"-annotCalloutLineX1 = AttrLabelProxy---annotCalloutLineReadY1 :: MonadIO m => AnnotCalloutLine -> m Double-annotCalloutLineReadY1 s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO CDouble-    let val' = realToFrac val-    return val'--annotCalloutLineWriteY1 :: MonadIO m => AnnotCalloutLine -> Double -> m ()-annotCalloutLineWriteY1 s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 16) (val' :: CDouble)--data AnnotCalloutLineY1FieldInfo-instance AttrInfo AnnotCalloutLineY1FieldInfo where-    type AttrAllowedOps AnnotCalloutLineY1FieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint AnnotCalloutLineY1FieldInfo = (~) Double-    type AttrBaseTypeConstraint AnnotCalloutLineY1FieldInfo = (~) AnnotCalloutLine-    type AttrGetType AnnotCalloutLineY1FieldInfo = Double-    type AttrLabel AnnotCalloutLineY1FieldInfo = "y1"-    attrGet _ = annotCalloutLineReadY1-    attrSet _ = annotCalloutLineWriteY1-    attrConstruct = undefined-    attrClear _ = undefined--annotCalloutLineY1 :: AttrLabelProxy "y1"-annotCalloutLineY1 = AttrLabelProxy---annotCalloutLineReadX2 :: MonadIO m => AnnotCalloutLine -> m Double-annotCalloutLineReadX2 s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO CDouble-    let val' = realToFrac val-    return val'--annotCalloutLineWriteX2 :: MonadIO m => AnnotCalloutLine -> Double -> m ()-annotCalloutLineWriteX2 s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 24) (val' :: CDouble)--data AnnotCalloutLineX2FieldInfo-instance AttrInfo AnnotCalloutLineX2FieldInfo where-    type AttrAllowedOps AnnotCalloutLineX2FieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint AnnotCalloutLineX2FieldInfo = (~) Double-    type AttrBaseTypeConstraint AnnotCalloutLineX2FieldInfo = (~) AnnotCalloutLine-    type AttrGetType AnnotCalloutLineX2FieldInfo = Double-    type AttrLabel AnnotCalloutLineX2FieldInfo = "x2"-    attrGet _ = annotCalloutLineReadX2-    attrSet _ = annotCalloutLineWriteX2-    attrConstruct = undefined-    attrClear _ = undefined--annotCalloutLineX2 :: AttrLabelProxy "x2"-annotCalloutLineX2 = AttrLabelProxy---annotCalloutLineReadY2 :: MonadIO m => AnnotCalloutLine -> m Double-annotCalloutLineReadY2 s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO CDouble-    let val' = realToFrac val-    return val'--annotCalloutLineWriteY2 :: MonadIO m => AnnotCalloutLine -> Double -> m ()-annotCalloutLineWriteY2 s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 32) (val' :: CDouble)--data AnnotCalloutLineY2FieldInfo-instance AttrInfo AnnotCalloutLineY2FieldInfo where-    type AttrAllowedOps AnnotCalloutLineY2FieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint AnnotCalloutLineY2FieldInfo = (~) Double-    type AttrBaseTypeConstraint AnnotCalloutLineY2FieldInfo = (~) AnnotCalloutLine-    type AttrGetType AnnotCalloutLineY2FieldInfo = Double-    type AttrLabel AnnotCalloutLineY2FieldInfo = "y2"-    attrGet _ = annotCalloutLineReadY2-    attrSet _ = annotCalloutLineWriteY2-    attrConstruct = undefined-    attrClear _ = undefined--annotCalloutLineY2 :: AttrLabelProxy "y2"-annotCalloutLineY2 = AttrLabelProxy---annotCalloutLineReadX3 :: MonadIO m => AnnotCalloutLine -> m Double-annotCalloutLineReadX3 s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 40) :: IO CDouble-    let val' = realToFrac val-    return val'--annotCalloutLineWriteX3 :: MonadIO m => AnnotCalloutLine -> Double -> m ()-annotCalloutLineWriteX3 s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 40) (val' :: CDouble)--data AnnotCalloutLineX3FieldInfo-instance AttrInfo AnnotCalloutLineX3FieldInfo where-    type AttrAllowedOps AnnotCalloutLineX3FieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint AnnotCalloutLineX3FieldInfo = (~) Double-    type AttrBaseTypeConstraint AnnotCalloutLineX3FieldInfo = (~) AnnotCalloutLine-    type AttrGetType AnnotCalloutLineX3FieldInfo = Double-    type AttrLabel AnnotCalloutLineX3FieldInfo = "x3"-    attrGet _ = annotCalloutLineReadX3-    attrSet _ = annotCalloutLineWriteX3-    attrConstruct = undefined-    attrClear _ = undefined--annotCalloutLineX3 :: AttrLabelProxy "x3"-annotCalloutLineX3 = AttrLabelProxy---annotCalloutLineReadY3 :: MonadIO m => AnnotCalloutLine -> m Double-annotCalloutLineReadY3 s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 48) :: IO CDouble-    let val' = realToFrac val-    return val'--annotCalloutLineWriteY3 :: MonadIO m => AnnotCalloutLine -> Double -> m ()-annotCalloutLineWriteY3 s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 48) (val' :: CDouble)--data AnnotCalloutLineY3FieldInfo-instance AttrInfo AnnotCalloutLineY3FieldInfo where-    type AttrAllowedOps AnnotCalloutLineY3FieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint AnnotCalloutLineY3FieldInfo = (~) Double-    type AttrBaseTypeConstraint AnnotCalloutLineY3FieldInfo = (~) AnnotCalloutLine-    type AttrGetType AnnotCalloutLineY3FieldInfo = Double-    type AttrLabel AnnotCalloutLineY3FieldInfo = "y3"-    attrGet _ = annotCalloutLineReadY3-    attrSet _ = annotCalloutLineWriteY3-    attrConstruct = undefined-    attrClear _ = undefined--annotCalloutLineY3 :: AttrLabelProxy "y3"-annotCalloutLineY3 = AttrLabelProxy----type instance AttributeList AnnotCalloutLine = AnnotCalloutLineAttributeList-type AnnotCalloutLineAttributeList = ('[ '("multiline", AnnotCalloutLineMultilineFieldInfo), '("x1", AnnotCalloutLineX1FieldInfo), '("y1", AnnotCalloutLineY1FieldInfo), '("x2", AnnotCalloutLineX2FieldInfo), '("y2", AnnotCalloutLineY2FieldInfo), '("x3", AnnotCalloutLineX3FieldInfo), '("y3", AnnotCalloutLineY3FieldInfo)] :: [(Symbol, *)])---- method AnnotCalloutLine::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "Poppler" "AnnotCalloutLine")--- throws : False--- Skip return : False--foreign import ccall "poppler_annot_callout_line_new" poppler_annot_callout_line_new :: -    IO (Ptr AnnotCalloutLine)---annotCalloutLineNew ::-    (MonadIO m) =>-    m AnnotCalloutLine                      -- result-annotCalloutLineNew  = liftIO $ do-    result <- poppler_annot_callout_line_new-    checkUnexpectedReturnNULL "poppler_annot_callout_line_new" result-    result' <- (wrapBoxed AnnotCalloutLine) result-    return result'---- method AnnotCalloutLine::copy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotCalloutLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "AnnotCalloutLine")--- throws : False--- Skip return : False--foreign import ccall "poppler_annot_callout_line_copy" poppler_annot_callout_line_copy :: -    Ptr AnnotCalloutLine ->                 -- _obj : TInterface "Poppler" "AnnotCalloutLine"-    IO (Ptr AnnotCalloutLine)---annotCalloutLineCopy ::-    (MonadIO m) =>-    AnnotCalloutLine                        -- _obj-    -> m AnnotCalloutLine                   -- result-annotCalloutLineCopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- poppler_annot_callout_line_copy _obj'-    checkUnexpectedReturnNULL "poppler_annot_callout_line_copy" result-    result' <- (wrapBoxed AnnotCalloutLine) result-    touchManagedPtr _obj-    return result'--data AnnotCalloutLineCopyMethodInfo-instance (signature ~ (m AnnotCalloutLine), MonadIO m) => MethodInfo AnnotCalloutLineCopyMethodInfo AnnotCalloutLine signature where-    overloadedMethod _ = annotCalloutLineCopy---- method AnnotCalloutLine::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotCalloutLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_annot_callout_line_free" poppler_annot_callout_line_free :: -    Ptr AnnotCalloutLine ->                 -- _obj : TInterface "Poppler" "AnnotCalloutLine"-    IO ()---annotCalloutLineFree ::-    (MonadIO m) =>-    AnnotCalloutLine                        -- _obj-    -> m ()                                 -- result-annotCalloutLineFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    poppler_annot_callout_line_free _obj'-    touchManagedPtr _obj-    return ()--data AnnotCalloutLineFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo AnnotCalloutLineFreeMethodInfo AnnotCalloutLine signature where-    overloadedMethod _ = annotCalloutLineFree--type family ResolveAnnotCalloutLineMethod (t :: Symbol) (o :: *) :: * where-    ResolveAnnotCalloutLineMethod "copy" o = AnnotCalloutLineCopyMethodInfo-    ResolveAnnotCalloutLineMethod "free" o = AnnotCalloutLineFreeMethodInfo-    ResolveAnnotCalloutLineMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveAnnotCalloutLineMethod t AnnotCalloutLine, MethodInfo info AnnotCalloutLine p) => IsLabelProxy t (AnnotCalloutLine -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveAnnotCalloutLineMethod t AnnotCalloutLine, MethodInfo info AnnotCalloutLine p) => IsLabel t (AnnotCalloutLine -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Poppler/Structs/AnnotCalloutLine.hs-boot 
@@ -1,13 +0,0 @@-module GI.Poppler.Structs.AnnotCalloutLine where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype AnnotCalloutLine = AnnotCalloutLine (ForeignPtr AnnotCalloutLine)-instance BoxedObject AnnotCalloutLine where-data AnnotCalloutLineCopyMethodInfo-data AnnotCalloutLineFreeMethodInfo
− GI/Poppler/Structs/AnnotMapping.hs 
@@ -1,246 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--A #PopplerAnnotMapping structure represents the location-of @annot on the page--}--module GI.Poppler.Structs.AnnotMapping-    ( ---- * Exported types-    AnnotMapping(..)                        ,-    newZeroAnnotMapping                     ,-    noAnnotMapping                          ,--- -- * Methods--- ** annotMappingCopy-    AnnotMappingCopyMethodInfo              ,-    annotMappingCopy                        ,----- ** annotMappingFree-    AnnotMappingFreeMethodInfo              ,-    annotMappingFree                        ,----- ** annotMappingNew-    annotMappingNew                         ,----- -- * Properties--- ** Annot-    annotMappingAnnot                       ,-    annotMappingClearAnnot                  ,-    annotMappingReadAnnot                   ,-    annotMappingWriteAnnot                  ,----- ** Area-    annotMappingArea                        ,-    annotMappingClearArea                   ,-    annotMappingReadArea                    ,-    annotMappingWriteArea                   ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks--newtype AnnotMapping = AnnotMapping (ForeignPtr AnnotMapping)-foreign import ccall "poppler_annot_mapping_get_type" c_poppler_annot_mapping_get_type :: -    IO GType--instance BoxedObject AnnotMapping where-    boxedType _ = c_poppler_annot_mapping_get_type---- | Construct a `AnnotMapping` struct initialized to zero.-newZeroAnnotMapping :: MonadIO m => m AnnotMapping-newZeroAnnotMapping = liftIO $ callocBoxedBytes 40 >>= wrapBoxed AnnotMapping--instance tag ~ 'AttrSet => Constructible AnnotMapping tag where-    new _ attrs = do-        o <- newZeroAnnotMapping-        GI.Attributes.set o attrs-        return o---noAnnotMapping :: Maybe AnnotMapping-noAnnotMapping = Nothing--annotMappingReadArea :: MonadIO m => AnnotMapping -> m (Maybe Rectangle)-annotMappingReadArea s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr Rectangle)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newBoxed Rectangle) val'-        return val''-    return result--annotMappingWriteArea :: MonadIO m => AnnotMapping -> Ptr Rectangle -> m ()-annotMappingWriteArea s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr Rectangle)--annotMappingClearArea :: MonadIO m => AnnotMapping -> m ()-annotMappingClearArea s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: Ptr Rectangle)--data AnnotMappingAreaFieldInfo-instance AttrInfo AnnotMappingAreaFieldInfo where-    type AttrAllowedOps AnnotMappingAreaFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint AnnotMappingAreaFieldInfo = (~) (Ptr Rectangle)-    type AttrBaseTypeConstraint AnnotMappingAreaFieldInfo = (~) AnnotMapping-    type AttrGetType AnnotMappingAreaFieldInfo = Maybe Rectangle-    type AttrLabel AnnotMappingAreaFieldInfo = "area"-    attrGet _ = annotMappingReadArea-    attrSet _ = annotMappingWriteArea-    attrConstruct = undefined-    attrClear _ = annotMappingClearArea--annotMappingArea :: AttrLabelProxy "area"-annotMappingArea = AttrLabelProxy---annotMappingReadAnnot :: MonadIO m => AnnotMapping -> m (Maybe Annot)-annotMappingReadAnnot s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO (Ptr Annot)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newObject Annot) val'-        return val''-    return result--annotMappingWriteAnnot :: MonadIO m => AnnotMapping -> Ptr Annot -> m ()-annotMappingWriteAnnot s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (val :: Ptr Annot)--annotMappingClearAnnot :: MonadIO m => AnnotMapping -> m ()-annotMappingClearAnnot s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (nullPtr :: Ptr Annot)--data AnnotMappingAnnotFieldInfo-instance AttrInfo AnnotMappingAnnotFieldInfo where-    type AttrAllowedOps AnnotMappingAnnotFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint AnnotMappingAnnotFieldInfo = (~) (Ptr Annot)-    type AttrBaseTypeConstraint AnnotMappingAnnotFieldInfo = (~) AnnotMapping-    type AttrGetType AnnotMappingAnnotFieldInfo = Maybe Annot-    type AttrLabel AnnotMappingAnnotFieldInfo = "annot"-    attrGet _ = annotMappingReadAnnot-    attrSet _ = annotMappingWriteAnnot-    attrConstruct = undefined-    attrClear _ = annotMappingClearAnnot--annotMappingAnnot :: AttrLabelProxy "annot"-annotMappingAnnot = AttrLabelProxy----type instance AttributeList AnnotMapping = AnnotMappingAttributeList-type AnnotMappingAttributeList = ('[ '("area", AnnotMappingAreaFieldInfo), '("annot", AnnotMappingAnnotFieldInfo)] :: [(Symbol, *)])---- method AnnotMapping::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "Poppler" "AnnotMapping")--- throws : False--- Skip return : False--foreign import ccall "poppler_annot_mapping_new" poppler_annot_mapping_new :: -    IO (Ptr AnnotMapping)---annotMappingNew ::-    (MonadIO m) =>-    m AnnotMapping                          -- result-annotMappingNew  = liftIO $ do-    result <- poppler_annot_mapping_new-    checkUnexpectedReturnNULL "poppler_annot_mapping_new" result-    result' <- (wrapBoxed AnnotMapping) result-    return result'---- method AnnotMapping::copy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMapping", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "AnnotMapping")--- throws : False--- Skip return : False--foreign import ccall "poppler_annot_mapping_copy" poppler_annot_mapping_copy :: -    Ptr AnnotMapping ->                     -- _obj : TInterface "Poppler" "AnnotMapping"-    IO (Ptr AnnotMapping)---annotMappingCopy ::-    (MonadIO m) =>-    AnnotMapping                            -- _obj-    -> m AnnotMapping                       -- result-annotMappingCopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- poppler_annot_mapping_copy _obj'-    checkUnexpectedReturnNULL "poppler_annot_mapping_copy" result-    result' <- (wrapBoxed AnnotMapping) result-    touchManagedPtr _obj-    return result'--data AnnotMappingCopyMethodInfo-instance (signature ~ (m AnnotMapping), MonadIO m) => MethodInfo AnnotMappingCopyMethodInfo AnnotMapping signature where-    overloadedMethod _ = annotMappingCopy---- method AnnotMapping::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMapping", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_annot_mapping_free" poppler_annot_mapping_free :: -    Ptr AnnotMapping ->                     -- _obj : TInterface "Poppler" "AnnotMapping"-    IO ()---annotMappingFree ::-    (MonadIO m) =>-    AnnotMapping                            -- _obj-    -> m ()                                 -- result-annotMappingFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    poppler_annot_mapping_free _obj'-    touchManagedPtr _obj-    return ()--data AnnotMappingFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo AnnotMappingFreeMethodInfo AnnotMapping signature where-    overloadedMethod _ = annotMappingFree--type family ResolveAnnotMappingMethod (t :: Symbol) (o :: *) :: * where-    ResolveAnnotMappingMethod "copy" o = AnnotMappingCopyMethodInfo-    ResolveAnnotMappingMethod "free" o = AnnotMappingFreeMethodInfo-    ResolveAnnotMappingMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveAnnotMappingMethod t AnnotMapping, MethodInfo info AnnotMapping p) => IsLabelProxy t (AnnotMapping -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveAnnotMappingMethod t AnnotMapping, MethodInfo info AnnotMapping p) => IsLabel t (AnnotMapping -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Poppler/Structs/AnnotMapping.hs-boot 
@@ -1,13 +0,0 @@-module GI.Poppler.Structs.AnnotMapping where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype AnnotMapping = AnnotMapping (ForeignPtr AnnotMapping)-instance BoxedObject AnnotMapping where-data AnnotMappingCopyMethodInfo-data AnnotMappingFreeMethodInfo
− GI/Poppler/Structs/Color.hs 
@@ -1,261 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--A #PopplerColor describes a RGB color. Color components-are values between 0 and 65535--}--module GI.Poppler.Structs.Color-    ( ---- * Exported types-    Color(..)                               ,-    newZeroColor                            ,-    noColor                                 ,--- -- * Methods--- ** colorCopy-    ColorCopyMethodInfo                     ,-    colorCopy                               ,----- ** colorFree-    ColorFreeMethodInfo                     ,-    colorFree                               ,----- ** colorNew-    colorNew                                ,----- -- * Properties--- ** Blue-    colorBlue                               ,-    colorReadBlue                           ,-    colorWriteBlue                          ,----- ** Green-    colorGreen                              ,-    colorReadGreen                          ,-    colorWriteGreen                         ,----- ** Red-    colorReadRed                            ,-    colorRed                                ,-    colorWriteRed                           ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks--newtype Color = Color (ForeignPtr Color)-foreign import ccall "poppler_color_get_type" c_poppler_color_get_type :: -    IO GType--instance BoxedObject Color where-    boxedType _ = c_poppler_color_get_type---- | Construct a `Color` struct initialized to zero.-newZeroColor :: MonadIO m => m Color-newZeroColor = liftIO $ callocBoxedBytes 6 >>= wrapBoxed Color--instance tag ~ 'AttrSet => Constructible Color tag where-    new _ attrs = do-        o <- newZeroColor-        GI.Attributes.set o attrs-        return o---noColor :: Maybe Color-noColor = Nothing--colorReadRed :: MonadIO m => Color -> m Word16-colorReadRed s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Word16-    return val--colorWriteRed :: MonadIO m => Color -> Word16 -> m ()-colorWriteRed s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Word16)--data ColorRedFieldInfo-instance AttrInfo ColorRedFieldInfo where-    type AttrAllowedOps ColorRedFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint ColorRedFieldInfo = (~) Word16-    type AttrBaseTypeConstraint ColorRedFieldInfo = (~) Color-    type AttrGetType ColorRedFieldInfo = Word16-    type AttrLabel ColorRedFieldInfo = "red"-    attrGet _ = colorReadRed-    attrSet _ = colorWriteRed-    attrConstruct = undefined-    attrClear _ = undefined--colorRed :: AttrLabelProxy "red"-colorRed = AttrLabelProxy---colorReadGreen :: MonadIO m => Color -> m Word16-colorReadGreen s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 2) :: IO Word16-    return val--colorWriteGreen :: MonadIO m => Color -> Word16 -> m ()-colorWriteGreen s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 2) (val :: Word16)--data ColorGreenFieldInfo-instance AttrInfo ColorGreenFieldInfo where-    type AttrAllowedOps ColorGreenFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint ColorGreenFieldInfo = (~) Word16-    type AttrBaseTypeConstraint ColorGreenFieldInfo = (~) Color-    type AttrGetType ColorGreenFieldInfo = Word16-    type AttrLabel ColorGreenFieldInfo = "green"-    attrGet _ = colorReadGreen-    attrSet _ = colorWriteGreen-    attrConstruct = undefined-    attrClear _ = undefined--colorGreen :: AttrLabelProxy "green"-colorGreen = AttrLabelProxy---colorReadBlue :: MonadIO m => Color -> m Word16-colorReadBlue s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 4) :: IO Word16-    return val--colorWriteBlue :: MonadIO m => Color -> Word16 -> m ()-colorWriteBlue s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 4) (val :: Word16)--data ColorBlueFieldInfo-instance AttrInfo ColorBlueFieldInfo where-    type AttrAllowedOps ColorBlueFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint ColorBlueFieldInfo = (~) Word16-    type AttrBaseTypeConstraint ColorBlueFieldInfo = (~) Color-    type AttrGetType ColorBlueFieldInfo = Word16-    type AttrLabel ColorBlueFieldInfo = "blue"-    attrGet _ = colorReadBlue-    attrSet _ = colorWriteBlue-    attrConstruct = undefined-    attrClear _ = undefined--colorBlue :: AttrLabelProxy "blue"-colorBlue = AttrLabelProxy----type instance AttributeList Color = ColorAttributeList-type ColorAttributeList = ('[ '("red", ColorRedFieldInfo), '("green", ColorGreenFieldInfo), '("blue", ColorBlueFieldInfo)] :: [(Symbol, *)])---- method Color::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "Poppler" "Color")--- throws : False--- Skip return : False--foreign import ccall "poppler_color_new" poppler_color_new :: -    IO (Ptr Color)---colorNew ::-    (MonadIO m) =>-    m Color                                 -- result-colorNew  = liftIO $ do-    result <- poppler_color_new-    checkUnexpectedReturnNULL "poppler_color_new" result-    result' <- (wrapBoxed Color) result-    return result'---- method Color::copy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "Color")--- throws : False--- Skip return : False--foreign import ccall "poppler_color_copy" poppler_color_copy :: -    Ptr Color ->                            -- _obj : TInterface "Poppler" "Color"-    IO (Ptr Color)---colorCopy ::-    (MonadIO m) =>-    Color                                   -- _obj-    -> m Color                              -- result-colorCopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- poppler_color_copy _obj'-    checkUnexpectedReturnNULL "poppler_color_copy" result-    result' <- (wrapBoxed Color) result-    touchManagedPtr _obj-    return result'--data ColorCopyMethodInfo-instance (signature ~ (m Color), MonadIO m) => MethodInfo ColorCopyMethodInfo Color signature where-    overloadedMethod _ = colorCopy---- method Color::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_color_free" poppler_color_free :: -    Ptr Color ->                            -- _obj : TInterface "Poppler" "Color"-    IO ()---colorFree ::-    (MonadIO m) =>-    Color                                   -- _obj-    -> m ()                                 -- result-colorFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    poppler_color_free _obj'-    touchManagedPtr _obj-    return ()--data ColorFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo ColorFreeMethodInfo Color signature where-    overloadedMethod _ = colorFree--type family ResolveColorMethod (t :: Symbol) (o :: *) :: * where-    ResolveColorMethod "copy" o = ColorCopyMethodInfo-    ResolveColorMethod "free" o = ColorFreeMethodInfo-    ResolveColorMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveColorMethod t Color, MethodInfo info Color p) => IsLabelProxy t (Color -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveColorMethod t Color, MethodInfo info Color p) => IsLabel t (Color -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Poppler/Structs/Color.hs-boot 
@@ -1,13 +0,0 @@-module GI.Poppler.Structs.Color where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Color = Color (ForeignPtr Color)-instance BoxedObject Color where-data ColorCopyMethodInfo-data ColorFreeMethodInfo
− GI/Poppler/Structs/Dest.hs 
@@ -1,503 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--Data structure for holding a destination--}--module GI.Poppler.Structs.Dest-    ( ---- * Exported types-    Dest(..)                                ,-    newZeroDest                             ,-    noDest                                  ,--- -- * Methods--- ** destCopy-    DestCopyMethodInfo                      ,-    destCopy                                ,----- ** destFree-    DestFreeMethodInfo                      ,-    destFree                                ,----- -- * Properties--- ** Bottom-    destBottom                              ,-    destReadBottom                          ,-    destWriteBottom                         ,----- ** ChangeLeft-    destChangeLeft                          ,-    destReadChangeLeft                      ,-    destWriteChangeLeft                     ,----- ** ChangeTop-    destChangeTop                           ,-    destReadChangeTop                       ,-    destWriteChangeTop                      ,----- ** ChangeZoom-    destChangeZoom                          ,-    destReadChangeZoom                      ,-    destWriteChangeZoom                     ,----- ** Left-    destLeft                                ,-    destReadLeft                            ,-    destWriteLeft                           ,----- ** NamedDest-    destClearNamedDest                      ,-    destNamedDest                           ,-    destReadNamedDest                       ,-    destWriteNamedDest                      ,----- ** PageNum-    destPageNum                             ,-    destReadPageNum                         ,-    destWritePageNum                        ,----- ** Right-    destReadRight                           ,-    destRight                               ,-    destWriteRight                          ,----- ** Top-    destReadTop                             ,-    destTop                                 ,-    destWriteTop                            ,----- ** Type-    destReadType                            ,-    destType                                ,-    destWriteType                           ,----- ** Zoom-    destReadZoom                            ,-    destWriteZoom                           ,-    destZoom                                ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks--newtype Dest = Dest (ForeignPtr Dest)-foreign import ccall "poppler_dest_get_type" c_poppler_dest_get_type :: -    IO GType--instance BoxedObject Dest where-    boxedType _ = c_poppler_dest_get_type---- | Construct a `Dest` struct initialized to zero.-newZeroDest :: MonadIO m => m Dest-newZeroDest = liftIO $ callocBoxedBytes 72 >>= wrapBoxed Dest--instance tag ~ 'AttrSet => Constructible Dest tag where-    new _ attrs = do-        o <- newZeroDest-        GI.Attributes.set o attrs-        return o---noDest :: Maybe Dest-noDest = Nothing--destReadType :: MonadIO m => Dest -> m DestType-destReadType s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--destWriteType :: MonadIO m => Dest -> DestType -> m ()-destWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 0) (val' :: CUInt)--data DestTypeFieldInfo-instance AttrInfo DestTypeFieldInfo where-    type AttrAllowedOps DestTypeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint DestTypeFieldInfo = (~) DestType-    type AttrBaseTypeConstraint DestTypeFieldInfo = (~) Dest-    type AttrGetType DestTypeFieldInfo = DestType-    type AttrLabel DestTypeFieldInfo = "type"-    attrGet _ = destReadType-    attrSet _ = destWriteType-    attrConstruct = undefined-    attrClear _ = undefined--destType :: AttrLabelProxy "type"-destType = AttrLabelProxy---destReadPageNum :: MonadIO m => Dest -> m Int32-destReadPageNum s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 4) :: IO Int32-    return val--destWritePageNum :: MonadIO m => Dest -> Int32 -> m ()-destWritePageNum s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 4) (val :: Int32)--data DestPageNumFieldInfo-instance AttrInfo DestPageNumFieldInfo where-    type AttrAllowedOps DestPageNumFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint DestPageNumFieldInfo = (~) Int32-    type AttrBaseTypeConstraint DestPageNumFieldInfo = (~) Dest-    type AttrGetType DestPageNumFieldInfo = Int32-    type AttrLabel DestPageNumFieldInfo = "page_num"-    attrGet _ = destReadPageNum-    attrSet _ = destWritePageNum-    attrConstruct = undefined-    attrClear _ = undefined--destPageNum :: AttrLabelProxy "pageNum"-destPageNum = AttrLabelProxy---destReadLeft :: MonadIO m => Dest -> m Double-destReadLeft s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CDouble-    let val' = realToFrac val-    return val'--destWriteLeft :: MonadIO m => Dest -> Double -> m ()-destWriteLeft s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 8) (val' :: CDouble)--data DestLeftFieldInfo-instance AttrInfo DestLeftFieldInfo where-    type AttrAllowedOps DestLeftFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint DestLeftFieldInfo = (~) Double-    type AttrBaseTypeConstraint DestLeftFieldInfo = (~) Dest-    type AttrGetType DestLeftFieldInfo = Double-    type AttrLabel DestLeftFieldInfo = "left"-    attrGet _ = destReadLeft-    attrSet _ = destWriteLeft-    attrConstruct = undefined-    attrClear _ = undefined--destLeft :: AttrLabelProxy "left"-destLeft = AttrLabelProxy---destReadBottom :: MonadIO m => Dest -> m Double-destReadBottom s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO CDouble-    let val' = realToFrac val-    return val'--destWriteBottom :: MonadIO m => Dest -> Double -> m ()-destWriteBottom s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 16) (val' :: CDouble)--data DestBottomFieldInfo-instance AttrInfo DestBottomFieldInfo where-    type AttrAllowedOps DestBottomFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint DestBottomFieldInfo = (~) Double-    type AttrBaseTypeConstraint DestBottomFieldInfo = (~) Dest-    type AttrGetType DestBottomFieldInfo = Double-    type AttrLabel DestBottomFieldInfo = "bottom"-    attrGet _ = destReadBottom-    attrSet _ = destWriteBottom-    attrConstruct = undefined-    attrClear _ = undefined--destBottom :: AttrLabelProxy "bottom"-destBottom = AttrLabelProxy---destReadRight :: MonadIO m => Dest -> m Double-destReadRight s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO CDouble-    let val' = realToFrac val-    return val'--destWriteRight :: MonadIO m => Dest -> Double -> m ()-destWriteRight s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 24) (val' :: CDouble)--data DestRightFieldInfo-instance AttrInfo DestRightFieldInfo where-    type AttrAllowedOps DestRightFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint DestRightFieldInfo = (~) Double-    type AttrBaseTypeConstraint DestRightFieldInfo = (~) Dest-    type AttrGetType DestRightFieldInfo = Double-    type AttrLabel DestRightFieldInfo = "right"-    attrGet _ = destReadRight-    attrSet _ = destWriteRight-    attrConstruct = undefined-    attrClear _ = undefined--destRight :: AttrLabelProxy "right"-destRight = AttrLabelProxy---destReadTop :: MonadIO m => Dest -> m Double-destReadTop s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO CDouble-    let val' = realToFrac val-    return val'--destWriteTop :: MonadIO m => Dest -> Double -> m ()-destWriteTop s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 32) (val' :: CDouble)--data DestTopFieldInfo-instance AttrInfo DestTopFieldInfo where-    type AttrAllowedOps DestTopFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint DestTopFieldInfo = (~) Double-    type AttrBaseTypeConstraint DestTopFieldInfo = (~) Dest-    type AttrGetType DestTopFieldInfo = Double-    type AttrLabel DestTopFieldInfo = "top"-    attrGet _ = destReadTop-    attrSet _ = destWriteTop-    attrConstruct = undefined-    attrClear _ = undefined--destTop :: AttrLabelProxy "top"-destTop = AttrLabelProxy---destReadZoom :: MonadIO m => Dest -> m Double-destReadZoom s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 40) :: IO CDouble-    let val' = realToFrac val-    return val'--destWriteZoom :: MonadIO m => Dest -> Double -> m ()-destWriteZoom s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 40) (val' :: CDouble)--data DestZoomFieldInfo-instance AttrInfo DestZoomFieldInfo where-    type AttrAllowedOps DestZoomFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint DestZoomFieldInfo = (~) Double-    type AttrBaseTypeConstraint DestZoomFieldInfo = (~) Dest-    type AttrGetType DestZoomFieldInfo = Double-    type AttrLabel DestZoomFieldInfo = "zoom"-    attrGet _ = destReadZoom-    attrSet _ = destWriteZoom-    attrConstruct = undefined-    attrClear _ = undefined--destZoom :: AttrLabelProxy "zoom"-destZoom = AttrLabelProxy---destReadNamedDest :: MonadIO m => Dest -> m (Maybe T.Text)-destReadNamedDest s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 48) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--destWriteNamedDest :: MonadIO m => Dest -> CString -> m ()-destWriteNamedDest s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 48) (val :: CString)--destClearNamedDest :: MonadIO m => Dest -> m ()-destClearNamedDest s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 48) (nullPtr :: CString)--data DestNamedDestFieldInfo-instance AttrInfo DestNamedDestFieldInfo where-    type AttrAllowedOps DestNamedDestFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DestNamedDestFieldInfo = (~) CString-    type AttrBaseTypeConstraint DestNamedDestFieldInfo = (~) Dest-    type AttrGetType DestNamedDestFieldInfo = Maybe T.Text-    type AttrLabel DestNamedDestFieldInfo = "named_dest"-    attrGet _ = destReadNamedDest-    attrSet _ = destWriteNamedDest-    attrConstruct = undefined-    attrClear _ = destClearNamedDest--destNamedDest :: AttrLabelProxy "namedDest"-destNamedDest = AttrLabelProxy---destReadChangeLeft :: MonadIO m => Dest -> m Word32-destReadChangeLeft s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 56) :: IO Word32-    return val--destWriteChangeLeft :: MonadIO m => Dest -> Word32 -> m ()-destWriteChangeLeft s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 56) (val :: Word32)--data DestChangeLeftFieldInfo-instance AttrInfo DestChangeLeftFieldInfo where-    type AttrAllowedOps DestChangeLeftFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint DestChangeLeftFieldInfo = (~) Word32-    type AttrBaseTypeConstraint DestChangeLeftFieldInfo = (~) Dest-    type AttrGetType DestChangeLeftFieldInfo = Word32-    type AttrLabel DestChangeLeftFieldInfo = "change_left"-    attrGet _ = destReadChangeLeft-    attrSet _ = destWriteChangeLeft-    attrConstruct = undefined-    attrClear _ = undefined--destChangeLeft :: AttrLabelProxy "changeLeft"-destChangeLeft = AttrLabelProxy---destReadChangeTop :: MonadIO m => Dest -> m Word32-destReadChangeTop s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 60) :: IO Word32-    return val--destWriteChangeTop :: MonadIO m => Dest -> Word32 -> m ()-destWriteChangeTop s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 60) (val :: Word32)--data DestChangeTopFieldInfo-instance AttrInfo DestChangeTopFieldInfo where-    type AttrAllowedOps DestChangeTopFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint DestChangeTopFieldInfo = (~) Word32-    type AttrBaseTypeConstraint DestChangeTopFieldInfo = (~) Dest-    type AttrGetType DestChangeTopFieldInfo = Word32-    type AttrLabel DestChangeTopFieldInfo = "change_top"-    attrGet _ = destReadChangeTop-    attrSet _ = destWriteChangeTop-    attrConstruct = undefined-    attrClear _ = undefined--destChangeTop :: AttrLabelProxy "changeTop"-destChangeTop = AttrLabelProxy---destReadChangeZoom :: MonadIO m => Dest -> m Word32-destReadChangeZoom s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 64) :: IO Word32-    return val--destWriteChangeZoom :: MonadIO m => Dest -> Word32 -> m ()-destWriteChangeZoom s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 64) (val :: Word32)--data DestChangeZoomFieldInfo-instance AttrInfo DestChangeZoomFieldInfo where-    type AttrAllowedOps DestChangeZoomFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint DestChangeZoomFieldInfo = (~) Word32-    type AttrBaseTypeConstraint DestChangeZoomFieldInfo = (~) Dest-    type AttrGetType DestChangeZoomFieldInfo = Word32-    type AttrLabel DestChangeZoomFieldInfo = "change_zoom"-    attrGet _ = destReadChangeZoom-    attrSet _ = destWriteChangeZoom-    attrConstruct = undefined-    attrClear _ = undefined--destChangeZoom :: AttrLabelProxy "changeZoom"-destChangeZoom = AttrLabelProxy----type instance AttributeList Dest = DestAttributeList-type DestAttributeList = ('[ '("type", DestTypeFieldInfo), '("pageNum", DestPageNumFieldInfo), '("left", DestLeftFieldInfo), '("bottom", DestBottomFieldInfo), '("right", DestRightFieldInfo), '("top", DestTopFieldInfo), '("zoom", DestZoomFieldInfo), '("namedDest", DestNamedDestFieldInfo), '("changeLeft", DestChangeLeftFieldInfo), '("changeTop", DestChangeTopFieldInfo), '("changeZoom", DestChangeZoomFieldInfo)] :: [(Symbol, *)])---- method Dest::copy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Dest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "Dest")--- throws : False--- Skip return : False--foreign import ccall "poppler_dest_copy" poppler_dest_copy :: -    Ptr Dest ->                             -- _obj : TInterface "Poppler" "Dest"-    IO (Ptr Dest)---destCopy ::-    (MonadIO m) =>-    Dest                                    -- _obj-    -> m Dest                               -- result-destCopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- poppler_dest_copy _obj'-    checkUnexpectedReturnNULL "poppler_dest_copy" result-    result' <- (wrapBoxed Dest) result-    touchManagedPtr _obj-    return result'--data DestCopyMethodInfo-instance (signature ~ (m Dest), MonadIO m) => MethodInfo DestCopyMethodInfo Dest signature where-    overloadedMethod _ = destCopy---- method Dest::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Dest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_dest_free" poppler_dest_free :: -    Ptr Dest ->                             -- _obj : TInterface "Poppler" "Dest"-    IO ()---destFree ::-    (MonadIO m) =>-    Dest                                    -- _obj-    -> m ()                                 -- result-destFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    poppler_dest_free _obj'-    touchManagedPtr _obj-    return ()--data DestFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo DestFreeMethodInfo Dest signature where-    overloadedMethod _ = destFree--type family ResolveDestMethod (t :: Symbol) (o :: *) :: * where-    ResolveDestMethod "copy" o = DestCopyMethodInfo-    ResolveDestMethod "free" o = DestFreeMethodInfo-    ResolveDestMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveDestMethod t Dest, MethodInfo info Dest p) => IsLabelProxy t (Dest -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveDestMethod t Dest, MethodInfo info Dest p) => IsLabel t (Dest -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Poppler/Structs/Dest.hs-boot 
@@ -1,13 +0,0 @@-module GI.Poppler.Structs.Dest where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Dest = Dest (ForeignPtr Dest)-instance BoxedObject Dest where-data DestCopyMethodInfo-data DestFreeMethodInfo
− GI/Poppler/Structs/FontsIter.hs 
@@ -1,436 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Poppler.Structs.FontsIter-    ( ---- * Exported types-    FontsIter(..)                           ,-    noFontsIter                             ,--- -- * Methods--- ** fontsIterCopy-    FontsIterCopyMethodInfo                 ,-    fontsIterCopy                           ,----- ** fontsIterFree-    FontsIterFreeMethodInfo                 ,-    fontsIterFree                           ,----- ** fontsIterGetEncoding-    FontsIterGetEncodingMethodInfo          ,-    fontsIterGetEncoding                    ,----- ** fontsIterGetFileName-    FontsIterGetFileNameMethodInfo          ,-    fontsIterGetFileName                    ,----- ** fontsIterGetFontType-    FontsIterGetFontTypeMethodInfo          ,-    fontsIterGetFontType                    ,----- ** fontsIterGetFullName-    FontsIterGetFullNameMethodInfo          ,-    fontsIterGetFullName                    ,----- ** fontsIterGetName-    FontsIterGetNameMethodInfo              ,-    fontsIterGetName                        ,----- ** fontsIterGetSubstituteName-    FontsIterGetSubstituteNameMethodInfo    ,-    fontsIterGetSubstituteName              ,----- ** fontsIterIsEmbedded-    FontsIterIsEmbeddedMethodInfo           ,-    fontsIterIsEmbedded                     ,----- ** fontsIterIsSubset-    FontsIterIsSubsetMethodInfo             ,-    fontsIterIsSubset                       ,----- ** fontsIterNext-    FontsIterNextMethodInfo                 ,-    fontsIterNext                           ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks--newtype FontsIter = FontsIter (ForeignPtr FontsIter)-foreign import ccall "poppler_fonts_iter_get_type" c_poppler_fonts_iter_get_type :: -    IO GType--instance BoxedObject FontsIter where-    boxedType _ = c_poppler_fonts_iter_get_type--noFontsIter :: Maybe FontsIter-noFontsIter = Nothing---type instance AttributeList FontsIter = FontsIterAttributeList-type FontsIterAttributeList = ('[ ] :: [(Symbol, *)])---- method FontsIter::copy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FontsIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "FontsIter")--- throws : False--- Skip return : False--foreign import ccall "poppler_fonts_iter_copy" poppler_fonts_iter_copy :: -    Ptr FontsIter ->                        -- _obj : TInterface "Poppler" "FontsIter"-    IO (Ptr FontsIter)---fontsIterCopy ::-    (MonadIO m) =>-    FontsIter                               -- _obj-    -> m FontsIter                          -- result-fontsIterCopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- poppler_fonts_iter_copy _obj'-    checkUnexpectedReturnNULL "poppler_fonts_iter_copy" result-    result' <- (wrapBoxed FontsIter) result-    touchManagedPtr _obj-    return result'--data FontsIterCopyMethodInfo-instance (signature ~ (m FontsIter), MonadIO m) => MethodInfo FontsIterCopyMethodInfo FontsIter signature where-    overloadedMethod _ = fontsIterCopy---- method FontsIter::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FontsIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_fonts_iter_free" poppler_fonts_iter_free :: -    Ptr FontsIter ->                        -- _obj : TInterface "Poppler" "FontsIter"-    IO ()---fontsIterFree ::-    (MonadIO m) =>-    FontsIter                               -- _obj-    -> m ()                                 -- result-fontsIterFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    poppler_fonts_iter_free _obj'-    touchManagedPtr _obj-    return ()--data FontsIterFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo FontsIterFreeMethodInfo FontsIter signature where-    overloadedMethod _ = fontsIterFree---- method FontsIter::get_encoding--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FontsIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "poppler_fonts_iter_get_encoding" poppler_fonts_iter_get_encoding :: -    Ptr FontsIter ->                        -- _obj : TInterface "Poppler" "FontsIter"-    IO CString---fontsIterGetEncoding ::-    (MonadIO m) =>-    FontsIter                               -- _obj-    -> m T.Text                             -- result-fontsIterGetEncoding _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- poppler_fonts_iter_get_encoding _obj'-    checkUnexpectedReturnNULL "poppler_fonts_iter_get_encoding" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data FontsIterGetEncodingMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo FontsIterGetEncodingMethodInfo FontsIter signature where-    overloadedMethod _ = fontsIterGetEncoding---- method FontsIter::get_file_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FontsIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "poppler_fonts_iter_get_file_name" poppler_fonts_iter_get_file_name :: -    Ptr FontsIter ->                        -- _obj : TInterface "Poppler" "FontsIter"-    IO CString---fontsIterGetFileName ::-    (MonadIO m) =>-    FontsIter                               -- _obj-    -> m T.Text                             -- result-fontsIterGetFileName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- poppler_fonts_iter_get_file_name _obj'-    checkUnexpectedReturnNULL "poppler_fonts_iter_get_file_name" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data FontsIterGetFileNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo FontsIterGetFileNameMethodInfo FontsIter signature where-    overloadedMethod _ = fontsIterGetFileName---- method FontsIter::get_font_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FontsIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "FontType")--- throws : False--- Skip return : False--foreign import ccall "poppler_fonts_iter_get_font_type" poppler_fonts_iter_get_font_type :: -    Ptr FontsIter ->                        -- _obj : TInterface "Poppler" "FontsIter"-    IO CUInt---fontsIterGetFontType ::-    (MonadIO m) =>-    FontsIter                               -- _obj-    -> m FontType                           -- result-fontsIterGetFontType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- poppler_fonts_iter_get_font_type _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data FontsIterGetFontTypeMethodInfo-instance (signature ~ (m FontType), MonadIO m) => MethodInfo FontsIterGetFontTypeMethodInfo FontsIter signature where-    overloadedMethod _ = fontsIterGetFontType---- method FontsIter::get_full_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FontsIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "poppler_fonts_iter_get_full_name" poppler_fonts_iter_get_full_name :: -    Ptr FontsIter ->                        -- _obj : TInterface "Poppler" "FontsIter"-    IO CString---fontsIterGetFullName ::-    (MonadIO m) =>-    FontsIter                               -- _obj-    -> m T.Text                             -- result-fontsIterGetFullName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- poppler_fonts_iter_get_full_name _obj'-    checkUnexpectedReturnNULL "poppler_fonts_iter_get_full_name" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data FontsIterGetFullNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo FontsIterGetFullNameMethodInfo FontsIter signature where-    overloadedMethod _ = fontsIterGetFullName---- method FontsIter::get_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FontsIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "poppler_fonts_iter_get_name" poppler_fonts_iter_get_name :: -    Ptr FontsIter ->                        -- _obj : TInterface "Poppler" "FontsIter"-    IO CString---fontsIterGetName ::-    (MonadIO m) =>-    FontsIter                               -- _obj-    -> m T.Text                             -- result-fontsIterGetName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- poppler_fonts_iter_get_name _obj'-    checkUnexpectedReturnNULL "poppler_fonts_iter_get_name" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data FontsIterGetNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo FontsIterGetNameMethodInfo FontsIter signature where-    overloadedMethod _ = fontsIterGetName---- method FontsIter::get_substitute_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FontsIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "poppler_fonts_iter_get_substitute_name" poppler_fonts_iter_get_substitute_name :: -    Ptr FontsIter ->                        -- _obj : TInterface "Poppler" "FontsIter"-    IO CString---fontsIterGetSubstituteName ::-    (MonadIO m) =>-    FontsIter                               -- _obj-    -> m T.Text                             -- result-fontsIterGetSubstituteName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- poppler_fonts_iter_get_substitute_name _obj'-    checkUnexpectedReturnNULL "poppler_fonts_iter_get_substitute_name" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data FontsIterGetSubstituteNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo FontsIterGetSubstituteNameMethodInfo FontsIter signature where-    overloadedMethod _ = fontsIterGetSubstituteName---- method FontsIter::is_embedded--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FontsIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "poppler_fonts_iter_is_embedded" poppler_fonts_iter_is_embedded :: -    Ptr FontsIter ->                        -- _obj : TInterface "Poppler" "FontsIter"-    IO CInt---fontsIterIsEmbedded ::-    (MonadIO m) =>-    FontsIter                               -- _obj-    -> m Bool                               -- result-fontsIterIsEmbedded _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- poppler_fonts_iter_is_embedded _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data FontsIterIsEmbeddedMethodInfo-instance (signature ~ (m Bool), MonadIO m) => MethodInfo FontsIterIsEmbeddedMethodInfo FontsIter signature where-    overloadedMethod _ = fontsIterIsEmbedded---- method FontsIter::is_subset--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FontsIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "poppler_fonts_iter_is_subset" poppler_fonts_iter_is_subset :: -    Ptr FontsIter ->                        -- _obj : TInterface "Poppler" "FontsIter"-    IO CInt---fontsIterIsSubset ::-    (MonadIO m) =>-    FontsIter                               -- _obj-    -> m Bool                               -- result-fontsIterIsSubset _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- poppler_fonts_iter_is_subset _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data FontsIterIsSubsetMethodInfo-instance (signature ~ (m Bool), MonadIO m) => MethodInfo FontsIterIsSubsetMethodInfo FontsIter signature where-    overloadedMethod _ = fontsIterIsSubset---- method FontsIter::next--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FontsIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "poppler_fonts_iter_next" poppler_fonts_iter_next :: -    Ptr FontsIter ->                        -- _obj : TInterface "Poppler" "FontsIter"-    IO CInt---fontsIterNext ::-    (MonadIO m) =>-    FontsIter                               -- _obj-    -> m Bool                               -- result-fontsIterNext _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- poppler_fonts_iter_next _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data FontsIterNextMethodInfo-instance (signature ~ (m Bool), MonadIO m) => MethodInfo FontsIterNextMethodInfo FontsIter signature where-    overloadedMethod _ = fontsIterNext--type family ResolveFontsIterMethod (t :: Symbol) (o :: *) :: * where-    ResolveFontsIterMethod "copy" o = FontsIterCopyMethodInfo-    ResolveFontsIterMethod "free" o = FontsIterFreeMethodInfo-    ResolveFontsIterMethod "isEmbedded" o = FontsIterIsEmbeddedMethodInfo-    ResolveFontsIterMethod "isSubset" o = FontsIterIsSubsetMethodInfo-    ResolveFontsIterMethod "next" o = FontsIterNextMethodInfo-    ResolveFontsIterMethod "getEncoding" o = FontsIterGetEncodingMethodInfo-    ResolveFontsIterMethod "getFileName" o = FontsIterGetFileNameMethodInfo-    ResolveFontsIterMethod "getFontType" o = FontsIterGetFontTypeMethodInfo-    ResolveFontsIterMethod "getFullName" o = FontsIterGetFullNameMethodInfo-    ResolveFontsIterMethod "getName" o = FontsIterGetNameMethodInfo-    ResolveFontsIterMethod "getSubstituteName" o = FontsIterGetSubstituteNameMethodInfo-    ResolveFontsIterMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveFontsIterMethod t FontsIter, MethodInfo info FontsIter p) => IsLabelProxy t (FontsIter -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveFontsIterMethod t FontsIter, MethodInfo info FontsIter p) => IsLabel t (FontsIter -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Poppler/Structs/FontsIter.hs-boot 
@@ -1,22 +0,0 @@-module GI.Poppler.Structs.FontsIter where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype FontsIter = FontsIter (ForeignPtr FontsIter)-instance BoxedObject FontsIter where-data FontsIterCopyMethodInfo-data FontsIterFreeMethodInfo-data FontsIterGetEncodingMethodInfo-data FontsIterGetFileNameMethodInfo-data FontsIterGetFontTypeMethodInfo-data FontsIterGetFullNameMethodInfo-data FontsIterGetNameMethodInfo-data FontsIterGetSubstituteNameMethodInfo-data FontsIterIsEmbeddedMethodInfo-data FontsIterIsSubsetMethodInfo-data FontsIterNextMethodInfo
− GI/Poppler/Structs/FormFieldMapping.hs 
@@ -1,246 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--A #PopplerFormFieldMapping structure represents the location-of @field on the page--}--module GI.Poppler.Structs.FormFieldMapping-    ( ---- * Exported types-    FormFieldMapping(..)                    ,-    newZeroFormFieldMapping                 ,-    noFormFieldMapping                      ,--- -- * Methods--- ** formFieldMappingCopy-    FormFieldMappingCopyMethodInfo          ,-    formFieldMappingCopy                    ,----- ** formFieldMappingFree-    FormFieldMappingFreeMethodInfo          ,-    formFieldMappingFree                    ,----- ** formFieldMappingNew-    formFieldMappingNew                     ,----- -- * Properties--- ** Area-    formFieldMappingArea                    ,-    formFieldMappingClearArea               ,-    formFieldMappingReadArea                ,-    formFieldMappingWriteArea               ,----- ** Field-    formFieldMappingClearField              ,-    formFieldMappingField                   ,-    formFieldMappingReadField               ,-    formFieldMappingWriteField              ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks--newtype FormFieldMapping = FormFieldMapping (ForeignPtr FormFieldMapping)-foreign import ccall "poppler_form_field_mapping_get_type" c_poppler_form_field_mapping_get_type :: -    IO GType--instance BoxedObject FormFieldMapping where-    boxedType _ = c_poppler_form_field_mapping_get_type---- | Construct a `FormFieldMapping` struct initialized to zero.-newZeroFormFieldMapping :: MonadIO m => m FormFieldMapping-newZeroFormFieldMapping = liftIO $ callocBoxedBytes 40 >>= wrapBoxed FormFieldMapping--instance tag ~ 'AttrSet => Constructible FormFieldMapping tag where-    new _ attrs = do-        o <- newZeroFormFieldMapping-        GI.Attributes.set o attrs-        return o---noFormFieldMapping :: Maybe FormFieldMapping-noFormFieldMapping = Nothing--formFieldMappingReadArea :: MonadIO m => FormFieldMapping -> m (Maybe Rectangle)-formFieldMappingReadArea s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr Rectangle)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newBoxed Rectangle) val'-        return val''-    return result--formFieldMappingWriteArea :: MonadIO m => FormFieldMapping -> Ptr Rectangle -> m ()-formFieldMappingWriteArea s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr Rectangle)--formFieldMappingClearArea :: MonadIO m => FormFieldMapping -> m ()-formFieldMappingClearArea s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: Ptr Rectangle)--data FormFieldMappingAreaFieldInfo-instance AttrInfo FormFieldMappingAreaFieldInfo where-    type AttrAllowedOps FormFieldMappingAreaFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint FormFieldMappingAreaFieldInfo = (~) (Ptr Rectangle)-    type AttrBaseTypeConstraint FormFieldMappingAreaFieldInfo = (~) FormFieldMapping-    type AttrGetType FormFieldMappingAreaFieldInfo = Maybe Rectangle-    type AttrLabel FormFieldMappingAreaFieldInfo = "area"-    attrGet _ = formFieldMappingReadArea-    attrSet _ = formFieldMappingWriteArea-    attrConstruct = undefined-    attrClear _ = formFieldMappingClearArea--formFieldMappingArea :: AttrLabelProxy "area"-formFieldMappingArea = AttrLabelProxy---formFieldMappingReadField :: MonadIO m => FormFieldMapping -> m (Maybe FormField)-formFieldMappingReadField s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO (Ptr FormField)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newObject FormField) val'-        return val''-    return result--formFieldMappingWriteField :: MonadIO m => FormFieldMapping -> Ptr FormField -> m ()-formFieldMappingWriteField s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (val :: Ptr FormField)--formFieldMappingClearField :: MonadIO m => FormFieldMapping -> m ()-formFieldMappingClearField s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (nullPtr :: Ptr FormField)--data FormFieldMappingFieldFieldInfo-instance AttrInfo FormFieldMappingFieldFieldInfo where-    type AttrAllowedOps FormFieldMappingFieldFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint FormFieldMappingFieldFieldInfo = (~) (Ptr FormField)-    type AttrBaseTypeConstraint FormFieldMappingFieldFieldInfo = (~) FormFieldMapping-    type AttrGetType FormFieldMappingFieldFieldInfo = Maybe FormField-    type AttrLabel FormFieldMappingFieldFieldInfo = "field"-    attrGet _ = formFieldMappingReadField-    attrSet _ = formFieldMappingWriteField-    attrConstruct = undefined-    attrClear _ = formFieldMappingClearField--formFieldMappingField :: AttrLabelProxy "field"-formFieldMappingField = AttrLabelProxy----type instance AttributeList FormFieldMapping = FormFieldMappingAttributeList-type FormFieldMappingAttributeList = ('[ '("area", FormFieldMappingAreaFieldInfo), '("field", FormFieldMappingFieldFieldInfo)] :: [(Symbol, *)])---- method FormFieldMapping::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "Poppler" "FormFieldMapping")--- throws : False--- Skip return : False--foreign import ccall "poppler_form_field_mapping_new" poppler_form_field_mapping_new :: -    IO (Ptr FormFieldMapping)---formFieldMappingNew ::-    (MonadIO m) =>-    m FormFieldMapping                      -- result-formFieldMappingNew  = liftIO $ do-    result <- poppler_form_field_mapping_new-    checkUnexpectedReturnNULL "poppler_form_field_mapping_new" result-    result' <- (wrapBoxed FormFieldMapping) result-    return result'---- method FormFieldMapping::copy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormFieldMapping", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "FormFieldMapping")--- throws : False--- Skip return : False--foreign import ccall "poppler_form_field_mapping_copy" poppler_form_field_mapping_copy :: -    Ptr FormFieldMapping ->                 -- _obj : TInterface "Poppler" "FormFieldMapping"-    IO (Ptr FormFieldMapping)---formFieldMappingCopy ::-    (MonadIO m) =>-    FormFieldMapping                        -- _obj-    -> m FormFieldMapping                   -- result-formFieldMappingCopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- poppler_form_field_mapping_copy _obj'-    checkUnexpectedReturnNULL "poppler_form_field_mapping_copy" result-    result' <- (wrapBoxed FormFieldMapping) result-    touchManagedPtr _obj-    return result'--data FormFieldMappingCopyMethodInfo-instance (signature ~ (m FormFieldMapping), MonadIO m) => MethodInfo FormFieldMappingCopyMethodInfo FormFieldMapping signature where-    overloadedMethod _ = formFieldMappingCopy---- method FormFieldMapping::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormFieldMapping", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_form_field_mapping_free" poppler_form_field_mapping_free :: -    Ptr FormFieldMapping ->                 -- _obj : TInterface "Poppler" "FormFieldMapping"-    IO ()---formFieldMappingFree ::-    (MonadIO m) =>-    FormFieldMapping                        -- _obj-    -> m ()                                 -- result-formFieldMappingFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    poppler_form_field_mapping_free _obj'-    touchManagedPtr _obj-    return ()--data FormFieldMappingFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo FormFieldMappingFreeMethodInfo FormFieldMapping signature where-    overloadedMethod _ = formFieldMappingFree--type family ResolveFormFieldMappingMethod (t :: Symbol) (o :: *) :: * where-    ResolveFormFieldMappingMethod "copy" o = FormFieldMappingCopyMethodInfo-    ResolveFormFieldMappingMethod "free" o = FormFieldMappingFreeMethodInfo-    ResolveFormFieldMappingMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveFormFieldMappingMethod t FormFieldMapping, MethodInfo info FormFieldMapping p) => IsLabelProxy t (FormFieldMapping -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveFormFieldMappingMethod t FormFieldMapping, MethodInfo info FormFieldMapping p) => IsLabel t (FormFieldMapping -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Poppler/Structs/FormFieldMapping.hs-boot 
@@ -1,13 +0,0 @@-module GI.Poppler.Structs.FormFieldMapping where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype FormFieldMapping = FormFieldMapping (ForeignPtr FormFieldMapping)-instance BoxedObject FormFieldMapping where-data FormFieldMappingCopyMethodInfo-data FormFieldMappingFreeMethodInfo
− GI/Poppler/Structs/ImageMapping.hs 
@@ -1,238 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--A #PopplerImageMapping structure represents the location-of an image on the page--}--module GI.Poppler.Structs.ImageMapping-    ( ---- * Exported types-    ImageMapping(..)                        ,-    newZeroImageMapping                     ,-    noImageMapping                          ,--- -- * Methods--- ** imageMappingCopy-    ImageMappingCopyMethodInfo              ,-    imageMappingCopy                        ,----- ** imageMappingFree-    ImageMappingFreeMethodInfo              ,-    imageMappingFree                        ,----- ** imageMappingNew-    imageMappingNew                         ,----- -- * Properties--- ** Area-    imageMappingArea                        ,-    imageMappingClearArea                   ,-    imageMappingReadArea                    ,-    imageMappingWriteArea                   ,----- ** ImageId-    imageMappingImageId                     ,-    imageMappingReadImageId                 ,-    imageMappingWriteImageId                ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks--newtype ImageMapping = ImageMapping (ForeignPtr ImageMapping)-foreign import ccall "poppler_image_mapping_get_type" c_poppler_image_mapping_get_type :: -    IO GType--instance BoxedObject ImageMapping where-    boxedType _ = c_poppler_image_mapping_get_type---- | Construct a `ImageMapping` struct initialized to zero.-newZeroImageMapping :: MonadIO m => m ImageMapping-newZeroImageMapping = liftIO $ callocBoxedBytes 40 >>= wrapBoxed ImageMapping--instance tag ~ 'AttrSet => Constructible ImageMapping tag where-    new _ attrs = do-        o <- newZeroImageMapping-        GI.Attributes.set o attrs-        return o---noImageMapping :: Maybe ImageMapping-noImageMapping = Nothing--imageMappingReadArea :: MonadIO m => ImageMapping -> m (Maybe Rectangle)-imageMappingReadArea s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr Rectangle)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newBoxed Rectangle) val'-        return val''-    return result--imageMappingWriteArea :: MonadIO m => ImageMapping -> Ptr Rectangle -> m ()-imageMappingWriteArea s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr Rectangle)--imageMappingClearArea :: MonadIO m => ImageMapping -> m ()-imageMappingClearArea s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: Ptr Rectangle)--data ImageMappingAreaFieldInfo-instance AttrInfo ImageMappingAreaFieldInfo where-    type AttrAllowedOps ImageMappingAreaFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ImageMappingAreaFieldInfo = (~) (Ptr Rectangle)-    type AttrBaseTypeConstraint ImageMappingAreaFieldInfo = (~) ImageMapping-    type AttrGetType ImageMappingAreaFieldInfo = Maybe Rectangle-    type AttrLabel ImageMappingAreaFieldInfo = "area"-    attrGet _ = imageMappingReadArea-    attrSet _ = imageMappingWriteArea-    attrConstruct = undefined-    attrClear _ = imageMappingClearArea--imageMappingArea :: AttrLabelProxy "area"-imageMappingArea = AttrLabelProxy---imageMappingReadImageId :: MonadIO m => ImageMapping -> m Int32-imageMappingReadImageId s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO Int32-    return val--imageMappingWriteImageId :: MonadIO m => ImageMapping -> Int32 -> m ()-imageMappingWriteImageId s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (val :: Int32)--data ImageMappingImageIdFieldInfo-instance AttrInfo ImageMappingImageIdFieldInfo where-    type AttrAllowedOps ImageMappingImageIdFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint ImageMappingImageIdFieldInfo = (~) Int32-    type AttrBaseTypeConstraint ImageMappingImageIdFieldInfo = (~) ImageMapping-    type AttrGetType ImageMappingImageIdFieldInfo = Int32-    type AttrLabel ImageMappingImageIdFieldInfo = "image_id"-    attrGet _ = imageMappingReadImageId-    attrSet _ = imageMappingWriteImageId-    attrConstruct = undefined-    attrClear _ = undefined--imageMappingImageId :: AttrLabelProxy "imageId"-imageMappingImageId = AttrLabelProxy----type instance AttributeList ImageMapping = ImageMappingAttributeList-type ImageMappingAttributeList = ('[ '("area", ImageMappingAreaFieldInfo), '("imageId", ImageMappingImageIdFieldInfo)] :: [(Symbol, *)])---- method ImageMapping::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "Poppler" "ImageMapping")--- throws : False--- Skip return : False--foreign import ccall "poppler_image_mapping_new" poppler_image_mapping_new :: -    IO (Ptr ImageMapping)---imageMappingNew ::-    (MonadIO m) =>-    m ImageMapping                          -- result-imageMappingNew  = liftIO $ do-    result <- poppler_image_mapping_new-    checkUnexpectedReturnNULL "poppler_image_mapping_new" result-    result' <- (wrapBoxed ImageMapping) result-    return result'---- method ImageMapping::copy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "ImageMapping", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "ImageMapping")--- throws : False--- Skip return : False--foreign import ccall "poppler_image_mapping_copy" poppler_image_mapping_copy :: -    Ptr ImageMapping ->                     -- _obj : TInterface "Poppler" "ImageMapping"-    IO (Ptr ImageMapping)---imageMappingCopy ::-    (MonadIO m) =>-    ImageMapping                            -- _obj-    -> m ImageMapping                       -- result-imageMappingCopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- poppler_image_mapping_copy _obj'-    checkUnexpectedReturnNULL "poppler_image_mapping_copy" result-    result' <- (wrapBoxed ImageMapping) result-    touchManagedPtr _obj-    return result'--data ImageMappingCopyMethodInfo-instance (signature ~ (m ImageMapping), MonadIO m) => MethodInfo ImageMappingCopyMethodInfo ImageMapping signature where-    overloadedMethod _ = imageMappingCopy---- method ImageMapping::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "ImageMapping", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_image_mapping_free" poppler_image_mapping_free :: -    Ptr ImageMapping ->                     -- _obj : TInterface "Poppler" "ImageMapping"-    IO ()---imageMappingFree ::-    (MonadIO m) =>-    ImageMapping                            -- _obj-    -> m ()                                 -- result-imageMappingFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    poppler_image_mapping_free _obj'-    touchManagedPtr _obj-    return ()--data ImageMappingFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo ImageMappingFreeMethodInfo ImageMapping signature where-    overloadedMethod _ = imageMappingFree--type family ResolveImageMappingMethod (t :: Symbol) (o :: *) :: * where-    ResolveImageMappingMethod "copy" o = ImageMappingCopyMethodInfo-    ResolveImageMappingMethod "free" o = ImageMappingFreeMethodInfo-    ResolveImageMappingMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveImageMappingMethod t ImageMapping, MethodInfo info ImageMapping p) => IsLabelProxy t (ImageMapping -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveImageMappingMethod t ImageMapping, MethodInfo info ImageMapping p) => IsLabel t (ImageMapping -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Poppler/Structs/ImageMapping.hs-boot 
@@ -1,13 +0,0 @@-module GI.Poppler.Structs.ImageMapping where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype ImageMapping = ImageMapping (ForeignPtr ImageMapping)-instance BoxedObject ImageMapping where-data ImageMappingCopyMethodInfo-data ImageMappingFreeMethodInfo
− GI/Poppler/Structs/IndexIter.hs 
@@ -1,292 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Poppler.Structs.IndexIter-    ( ---- * Exported types-    IndexIter(..)                           ,-    noIndexIter                             ,--- -- * Methods--- ** indexIterCopy-    IndexIterCopyMethodInfo                 ,-    indexIterCopy                           ,----- ** indexIterFree-    IndexIterFreeMethodInfo                 ,-    indexIterFree                           ,----- ** indexIterGetAction-    IndexIterGetActionMethodInfo            ,-    indexIterGetAction                      ,----- ** indexIterGetChild-    IndexIterGetChildMethodInfo             ,-    indexIterGetChild                       ,----- ** indexIterIsOpen-    IndexIterIsOpenMethodInfo               ,-    indexIterIsOpen                         ,----- ** indexIterNew-    indexIterNew                            ,----- ** indexIterNext-    IndexIterNextMethodInfo                 ,-    indexIterNext                           ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks--newtype IndexIter = IndexIter (ForeignPtr IndexIter)-foreign import ccall "poppler_index_iter_get_type" c_poppler_index_iter_get_type :: -    IO GType--instance BoxedObject IndexIter where-    boxedType _ = c_poppler_index_iter_get_type--noIndexIter :: Maybe IndexIter-noIndexIter = Nothing---type instance AttributeList IndexIter = IndexIterAttributeList-type IndexIterAttributeList = ('[ ] :: [(Symbol, *)])---- method IndexIter::new--- method type : Constructor--- Args : [Arg {argCName = "document", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "IndexIter")--- throws : False--- Skip return : False--foreign import ccall "poppler_index_iter_new" poppler_index_iter_new :: -    Ptr Document ->                         -- document : TInterface "Poppler" "Document"-    IO (Ptr IndexIter)---indexIterNew ::-    (MonadIO m, DocumentK a) =>-    a                                       -- document-    -> m IndexIter                          -- result-indexIterNew document = liftIO $ do-    let document' = unsafeManagedPtrCastPtr document-    result <- poppler_index_iter_new document'-    checkUnexpectedReturnNULL "poppler_index_iter_new" result-    result' <- (wrapBoxed IndexIter) result-    touchManagedPtr document-    return result'---- method IndexIter::copy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "IndexIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "IndexIter")--- throws : False--- Skip return : False--foreign import ccall "poppler_index_iter_copy" poppler_index_iter_copy :: -    Ptr IndexIter ->                        -- _obj : TInterface "Poppler" "IndexIter"-    IO (Ptr IndexIter)---indexIterCopy ::-    (MonadIO m) =>-    IndexIter                               -- _obj-    -> m IndexIter                          -- result-indexIterCopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- poppler_index_iter_copy _obj'-    checkUnexpectedReturnNULL "poppler_index_iter_copy" result-    result' <- (wrapBoxed IndexIter) result-    touchManagedPtr _obj-    return result'--data IndexIterCopyMethodInfo-instance (signature ~ (m IndexIter), MonadIO m) => MethodInfo IndexIterCopyMethodInfo IndexIter signature where-    overloadedMethod _ = indexIterCopy---- method IndexIter::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "IndexIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_index_iter_free" poppler_index_iter_free :: -    Ptr IndexIter ->                        -- _obj : TInterface "Poppler" "IndexIter"-    IO ()---indexIterFree ::-    (MonadIO m) =>-    IndexIter                               -- _obj-    -> m ()                                 -- result-indexIterFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    poppler_index_iter_free _obj'-    touchManagedPtr _obj-    return ()--data IndexIterFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo IndexIterFreeMethodInfo IndexIter signature where-    overloadedMethod _ = indexIterFree---- method IndexIter::get_action--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "IndexIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "Action")--- throws : False--- Skip return : False--foreign import ccall "poppler_index_iter_get_action" poppler_index_iter_get_action :: -    Ptr IndexIter ->                        -- _obj : TInterface "Poppler" "IndexIter"-    IO (Ptr Action)---indexIterGetAction ::-    (MonadIO m) =>-    IndexIter                               -- _obj-    -> m Action                             -- result-indexIterGetAction _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- poppler_index_iter_get_action _obj'-    checkUnexpectedReturnNULL "poppler_index_iter_get_action" result-    result' <- (wrapBoxed Action) result-    touchManagedPtr _obj-    return result'--data IndexIterGetActionMethodInfo-instance (signature ~ (m Action), MonadIO m) => MethodInfo IndexIterGetActionMethodInfo IndexIter signature where-    overloadedMethod _ = indexIterGetAction---- method IndexIter::get_child--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "IndexIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "IndexIter")--- throws : False--- Skip return : False--foreign import ccall "poppler_index_iter_get_child" poppler_index_iter_get_child :: -    Ptr IndexIter ->                        -- _obj : TInterface "Poppler" "IndexIter"-    IO (Ptr IndexIter)---indexIterGetChild ::-    (MonadIO m) =>-    IndexIter                               -- _obj-    -> m IndexIter                          -- result-indexIterGetChild _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- poppler_index_iter_get_child _obj'-    checkUnexpectedReturnNULL "poppler_index_iter_get_child" result-    result' <- (wrapBoxed IndexIter) result-    touchManagedPtr _obj-    return result'--data IndexIterGetChildMethodInfo-instance (signature ~ (m IndexIter), MonadIO m) => MethodInfo IndexIterGetChildMethodInfo IndexIter signature where-    overloadedMethod _ = indexIterGetChild---- method IndexIter::is_open--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "IndexIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "poppler_index_iter_is_open" poppler_index_iter_is_open :: -    Ptr IndexIter ->                        -- _obj : TInterface "Poppler" "IndexIter"-    IO CInt---indexIterIsOpen ::-    (MonadIO m) =>-    IndexIter                               -- _obj-    -> m Bool                               -- result-indexIterIsOpen _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- poppler_index_iter_is_open _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data IndexIterIsOpenMethodInfo-instance (signature ~ (m Bool), MonadIO m) => MethodInfo IndexIterIsOpenMethodInfo IndexIter signature where-    overloadedMethod _ = indexIterIsOpen---- method IndexIter::next--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "IndexIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "poppler_index_iter_next" poppler_index_iter_next :: -    Ptr IndexIter ->                        -- _obj : TInterface "Poppler" "IndexIter"-    IO CInt---indexIterNext ::-    (MonadIO m) =>-    IndexIter                               -- _obj-    -> m Bool                               -- result-indexIterNext _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- poppler_index_iter_next _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data IndexIterNextMethodInfo-instance (signature ~ (m Bool), MonadIO m) => MethodInfo IndexIterNextMethodInfo IndexIter signature where-    overloadedMethod _ = indexIterNext--type family ResolveIndexIterMethod (t :: Symbol) (o :: *) :: * where-    ResolveIndexIterMethod "copy" o = IndexIterCopyMethodInfo-    ResolveIndexIterMethod "free" o = IndexIterFreeMethodInfo-    ResolveIndexIterMethod "isOpen" o = IndexIterIsOpenMethodInfo-    ResolveIndexIterMethod "next" o = IndexIterNextMethodInfo-    ResolveIndexIterMethod "getAction" o = IndexIterGetActionMethodInfo-    ResolveIndexIterMethod "getChild" o = IndexIterGetChildMethodInfo-    ResolveIndexIterMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveIndexIterMethod t IndexIter, MethodInfo info IndexIter p) => IsLabelProxy t (IndexIter -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveIndexIterMethod t IndexIter, MethodInfo info IndexIter p) => IsLabel t (IndexIter -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Poppler/Structs/IndexIter.hs-boot 
@@ -1,17 +0,0 @@-module GI.Poppler.Structs.IndexIter where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype IndexIter = IndexIter (ForeignPtr IndexIter)-instance BoxedObject IndexIter where-data IndexIterCopyMethodInfo-data IndexIterFreeMethodInfo-data IndexIterGetActionMethodInfo-data IndexIterGetChildMethodInfo-data IndexIterIsOpenMethodInfo-data IndexIterNextMethodInfo
− GI/Poppler/Structs/LayersIter.hs 
@@ -1,294 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Poppler.Structs.LayersIter-    ( ---- * Exported types-    LayersIter(..)                          ,-    noLayersIter                            ,--- -- * Methods--- ** layersIterCopy-    LayersIterCopyMethodInfo                ,-    layersIterCopy                          ,----- ** layersIterFree-    LayersIterFreeMethodInfo                ,-    layersIterFree                          ,----- ** layersIterGetChild-    LayersIterGetChildMethodInfo            ,-    layersIterGetChild                      ,----- ** layersIterGetLayer-    LayersIterGetLayerMethodInfo            ,-    layersIterGetLayer                      ,----- ** layersIterGetTitle-    LayersIterGetTitleMethodInfo            ,-    layersIterGetTitle                      ,----- ** layersIterNew-    layersIterNew                           ,----- ** layersIterNext-    LayersIterNextMethodInfo                ,-    layersIterNext                          ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks--newtype LayersIter = LayersIter (ForeignPtr LayersIter)-foreign import ccall "poppler_layers_iter_get_type" c_poppler_layers_iter_get_type :: -    IO GType--instance BoxedObject LayersIter where-    boxedType _ = c_poppler_layers_iter_get_type--noLayersIter :: Maybe LayersIter-noLayersIter = Nothing---type instance AttributeList LayersIter = LayersIterAttributeList-type LayersIterAttributeList = ('[ ] :: [(Symbol, *)])---- method LayersIter::new--- method type : Constructor--- Args : [Arg {argCName = "document", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "LayersIter")--- throws : False--- Skip return : False--foreign import ccall "poppler_layers_iter_new" poppler_layers_iter_new :: -    Ptr Document ->                         -- document : TInterface "Poppler" "Document"-    IO (Ptr LayersIter)---layersIterNew ::-    (MonadIO m, DocumentK a) =>-    a                                       -- document-    -> m LayersIter                         -- result-layersIterNew document = liftIO $ do-    let document' = unsafeManagedPtrCastPtr document-    result <- poppler_layers_iter_new document'-    checkUnexpectedReturnNULL "poppler_layers_iter_new" result-    result' <- (wrapBoxed LayersIter) result-    touchManagedPtr document-    return result'---- method LayersIter::copy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "LayersIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "LayersIter")--- throws : False--- Skip return : False--foreign import ccall "poppler_layers_iter_copy" poppler_layers_iter_copy :: -    Ptr LayersIter ->                       -- _obj : TInterface "Poppler" "LayersIter"-    IO (Ptr LayersIter)---layersIterCopy ::-    (MonadIO m) =>-    LayersIter                              -- _obj-    -> m LayersIter                         -- result-layersIterCopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- poppler_layers_iter_copy _obj'-    checkUnexpectedReturnNULL "poppler_layers_iter_copy" result-    result' <- (wrapBoxed LayersIter) result-    touchManagedPtr _obj-    return result'--data LayersIterCopyMethodInfo-instance (signature ~ (m LayersIter), MonadIO m) => MethodInfo LayersIterCopyMethodInfo LayersIter signature where-    overloadedMethod _ = layersIterCopy---- method LayersIter::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "LayersIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_layers_iter_free" poppler_layers_iter_free :: -    Ptr LayersIter ->                       -- _obj : TInterface "Poppler" "LayersIter"-    IO ()---layersIterFree ::-    (MonadIO m) =>-    LayersIter                              -- _obj-    -> m ()                                 -- result-layersIterFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    poppler_layers_iter_free _obj'-    touchManagedPtr _obj-    return ()--data LayersIterFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo LayersIterFreeMethodInfo LayersIter signature where-    overloadedMethod _ = layersIterFree---- method LayersIter::get_child--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "LayersIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "LayersIter")--- throws : False--- Skip return : False--foreign import ccall "poppler_layers_iter_get_child" poppler_layers_iter_get_child :: -    Ptr LayersIter ->                       -- _obj : TInterface "Poppler" "LayersIter"-    IO (Ptr LayersIter)---layersIterGetChild ::-    (MonadIO m) =>-    LayersIter                              -- _obj-    -> m LayersIter                         -- result-layersIterGetChild _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- poppler_layers_iter_get_child _obj'-    checkUnexpectedReturnNULL "poppler_layers_iter_get_child" result-    result' <- (wrapBoxed LayersIter) result-    touchManagedPtr _obj-    return result'--data LayersIterGetChildMethodInfo-instance (signature ~ (m LayersIter), MonadIO m) => MethodInfo LayersIterGetChildMethodInfo LayersIter signature where-    overloadedMethod _ = layersIterGetChild---- method LayersIter::get_layer--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "LayersIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "Layer")--- throws : False--- Skip return : False--foreign import ccall "poppler_layers_iter_get_layer" poppler_layers_iter_get_layer :: -    Ptr LayersIter ->                       -- _obj : TInterface "Poppler" "LayersIter"-    IO (Ptr Layer)---layersIterGetLayer ::-    (MonadIO m) =>-    LayersIter                              -- _obj-    -> m Layer                              -- result-layersIterGetLayer _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- poppler_layers_iter_get_layer _obj'-    checkUnexpectedReturnNULL "poppler_layers_iter_get_layer" result-    result' <- (wrapObject Layer) result-    touchManagedPtr _obj-    return result'--data LayersIterGetLayerMethodInfo-instance (signature ~ (m Layer), MonadIO m) => MethodInfo LayersIterGetLayerMethodInfo LayersIter signature where-    overloadedMethod _ = layersIterGetLayer---- method LayersIter::get_title--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "LayersIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "poppler_layers_iter_get_title" poppler_layers_iter_get_title :: -    Ptr LayersIter ->                       -- _obj : TInterface "Poppler" "LayersIter"-    IO CString---layersIterGetTitle ::-    (MonadIO m) =>-    LayersIter                              -- _obj-    -> m T.Text                             -- result-layersIterGetTitle _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- poppler_layers_iter_get_title _obj'-    checkUnexpectedReturnNULL "poppler_layers_iter_get_title" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data LayersIterGetTitleMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo LayersIterGetTitleMethodInfo LayersIter signature where-    overloadedMethod _ = layersIterGetTitle---- method LayersIter::next--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "LayersIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "poppler_layers_iter_next" poppler_layers_iter_next :: -    Ptr LayersIter ->                       -- _obj : TInterface "Poppler" "LayersIter"-    IO CInt---layersIterNext ::-    (MonadIO m) =>-    LayersIter                              -- _obj-    -> m Bool                               -- result-layersIterNext _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- poppler_layers_iter_next _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data LayersIterNextMethodInfo-instance (signature ~ (m Bool), MonadIO m) => MethodInfo LayersIterNextMethodInfo LayersIter signature where-    overloadedMethod _ = layersIterNext--type family ResolveLayersIterMethod (t :: Symbol) (o :: *) :: * where-    ResolveLayersIterMethod "copy" o = LayersIterCopyMethodInfo-    ResolveLayersIterMethod "free" o = LayersIterFreeMethodInfo-    ResolveLayersIterMethod "next" o = LayersIterNextMethodInfo-    ResolveLayersIterMethod "getChild" o = LayersIterGetChildMethodInfo-    ResolveLayersIterMethod "getLayer" o = LayersIterGetLayerMethodInfo-    ResolveLayersIterMethod "getTitle" o = LayersIterGetTitleMethodInfo-    ResolveLayersIterMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveLayersIterMethod t LayersIter, MethodInfo info LayersIter p) => IsLabelProxy t (LayersIter -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveLayersIterMethod t LayersIter, MethodInfo info LayersIter p) => IsLabel t (LayersIter -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Poppler/Structs/LayersIter.hs-boot 
@@ -1,17 +0,0 @@-module GI.Poppler.Structs.LayersIter where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype LayersIter = LayersIter (ForeignPtr LayersIter)-instance BoxedObject LayersIter where-data LayersIterCopyMethodInfo-data LayersIterFreeMethodInfo-data LayersIterGetChildMethodInfo-data LayersIterGetLayerMethodInfo-data LayersIterGetTitleMethodInfo-data LayersIterNextMethodInfo
− GI/Poppler/Structs/LinkMapping.hs 
@@ -1,246 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--A #PopplerLinkMapping structure represents the location-of @action on the page--}--module GI.Poppler.Structs.LinkMapping-    ( ---- * Exported types-    LinkMapping(..)                         ,-    newZeroLinkMapping                      ,-    noLinkMapping                           ,--- -- * Methods--- ** linkMappingCopy-    LinkMappingCopyMethodInfo               ,-    linkMappingCopy                         ,----- ** linkMappingFree-    LinkMappingFreeMethodInfo               ,-    linkMappingFree                         ,----- ** linkMappingNew-    linkMappingNew                          ,----- -- * Properties--- ** Action-    linkMappingAction                       ,-    linkMappingClearAction                  ,-    linkMappingReadAction                   ,-    linkMappingWriteAction                  ,----- ** Area-    linkMappingArea                         ,-    linkMappingClearArea                    ,-    linkMappingReadArea                     ,-    linkMappingWriteArea                    ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks--newtype LinkMapping = LinkMapping (ForeignPtr LinkMapping)-foreign import ccall "poppler_link_mapping_get_type" c_poppler_link_mapping_get_type :: -    IO GType--instance BoxedObject LinkMapping where-    boxedType _ = c_poppler_link_mapping_get_type---- | Construct a `LinkMapping` struct initialized to zero.-newZeroLinkMapping :: MonadIO m => m LinkMapping-newZeroLinkMapping = liftIO $ callocBoxedBytes 40 >>= wrapBoxed LinkMapping--instance tag ~ 'AttrSet => Constructible LinkMapping tag where-    new _ attrs = do-        o <- newZeroLinkMapping-        GI.Attributes.set o attrs-        return o---noLinkMapping :: Maybe LinkMapping-noLinkMapping = Nothing--linkMappingReadArea :: MonadIO m => LinkMapping -> m (Maybe Rectangle)-linkMappingReadArea s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr Rectangle)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newBoxed Rectangle) val'-        return val''-    return result--linkMappingWriteArea :: MonadIO m => LinkMapping -> Ptr Rectangle -> m ()-linkMappingWriteArea s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr Rectangle)--linkMappingClearArea :: MonadIO m => LinkMapping -> m ()-linkMappingClearArea s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: Ptr Rectangle)--data LinkMappingAreaFieldInfo-instance AttrInfo LinkMappingAreaFieldInfo where-    type AttrAllowedOps LinkMappingAreaFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint LinkMappingAreaFieldInfo = (~) (Ptr Rectangle)-    type AttrBaseTypeConstraint LinkMappingAreaFieldInfo = (~) LinkMapping-    type AttrGetType LinkMappingAreaFieldInfo = Maybe Rectangle-    type AttrLabel LinkMappingAreaFieldInfo = "area"-    attrGet _ = linkMappingReadArea-    attrSet _ = linkMappingWriteArea-    attrConstruct = undefined-    attrClear _ = linkMappingClearArea--linkMappingArea :: AttrLabelProxy "area"-linkMappingArea = AttrLabelProxy---linkMappingReadAction :: MonadIO m => LinkMapping -> m (Maybe Action)-linkMappingReadAction s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO (Ptr Action)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newBoxed Action) val'-        return val''-    return result--linkMappingWriteAction :: MonadIO m => LinkMapping -> Ptr Action -> m ()-linkMappingWriteAction s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (val :: Ptr Action)--linkMappingClearAction :: MonadIO m => LinkMapping -> m ()-linkMappingClearAction s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (nullPtr :: Ptr Action)--data LinkMappingActionFieldInfo-instance AttrInfo LinkMappingActionFieldInfo where-    type AttrAllowedOps LinkMappingActionFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint LinkMappingActionFieldInfo = (~) (Ptr Action)-    type AttrBaseTypeConstraint LinkMappingActionFieldInfo = (~) LinkMapping-    type AttrGetType LinkMappingActionFieldInfo = Maybe Action-    type AttrLabel LinkMappingActionFieldInfo = "action"-    attrGet _ = linkMappingReadAction-    attrSet _ = linkMappingWriteAction-    attrConstruct = undefined-    attrClear _ = linkMappingClearAction--linkMappingAction :: AttrLabelProxy "action"-linkMappingAction = AttrLabelProxy----type instance AttributeList LinkMapping = LinkMappingAttributeList-type LinkMappingAttributeList = ('[ '("area", LinkMappingAreaFieldInfo), '("action", LinkMappingActionFieldInfo)] :: [(Symbol, *)])---- method LinkMapping::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "Poppler" "LinkMapping")--- throws : False--- Skip return : False--foreign import ccall "poppler_link_mapping_new" poppler_link_mapping_new :: -    IO (Ptr LinkMapping)---linkMappingNew ::-    (MonadIO m) =>-    m LinkMapping                           -- result-linkMappingNew  = liftIO $ do-    result <- poppler_link_mapping_new-    checkUnexpectedReturnNULL "poppler_link_mapping_new" result-    result' <- (wrapBoxed LinkMapping) result-    return result'---- method LinkMapping::copy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "LinkMapping", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "LinkMapping")--- throws : False--- Skip return : False--foreign import ccall "poppler_link_mapping_copy" poppler_link_mapping_copy :: -    Ptr LinkMapping ->                      -- _obj : TInterface "Poppler" "LinkMapping"-    IO (Ptr LinkMapping)---linkMappingCopy ::-    (MonadIO m) =>-    LinkMapping                             -- _obj-    -> m LinkMapping                        -- result-linkMappingCopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- poppler_link_mapping_copy _obj'-    checkUnexpectedReturnNULL "poppler_link_mapping_copy" result-    result' <- (wrapBoxed LinkMapping) result-    touchManagedPtr _obj-    return result'--data LinkMappingCopyMethodInfo-instance (signature ~ (m LinkMapping), MonadIO m) => MethodInfo LinkMappingCopyMethodInfo LinkMapping signature where-    overloadedMethod _ = linkMappingCopy---- method LinkMapping::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "LinkMapping", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_link_mapping_free" poppler_link_mapping_free :: -    Ptr LinkMapping ->                      -- _obj : TInterface "Poppler" "LinkMapping"-    IO ()---linkMappingFree ::-    (MonadIO m) =>-    LinkMapping                             -- _obj-    -> m ()                                 -- result-linkMappingFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    poppler_link_mapping_free _obj'-    touchManagedPtr _obj-    return ()--data LinkMappingFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo LinkMappingFreeMethodInfo LinkMapping signature where-    overloadedMethod _ = linkMappingFree--type family ResolveLinkMappingMethod (t :: Symbol) (o :: *) :: * where-    ResolveLinkMappingMethod "copy" o = LinkMappingCopyMethodInfo-    ResolveLinkMappingMethod "free" o = LinkMappingFreeMethodInfo-    ResolveLinkMappingMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveLinkMappingMethod t LinkMapping, MethodInfo info LinkMapping p) => IsLabelProxy t (LinkMapping -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveLinkMappingMethod t LinkMapping, MethodInfo info LinkMapping p) => IsLabel t (LinkMapping -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Poppler/Structs/LinkMapping.hs-boot 
@@ -1,13 +0,0 @@-module GI.Poppler.Structs.LinkMapping where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype LinkMapping = LinkMapping (ForeignPtr LinkMapping)-instance BoxedObject LinkMapping where-data LinkMappingCopyMethodInfo-data LinkMappingFreeMethodInfo
− GI/Poppler/Structs/PageTransition.hs 
@@ -1,395 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--A #PopplerPageTransition structures describes a visual transition-to use when moving between pages during a presentation--}--module GI.Poppler.Structs.PageTransition-    ( ---- * Exported types-    PageTransition(..)                      ,-    newZeroPageTransition                   ,-    noPageTransition                        ,--- -- * Methods--- ** pageTransitionCopy-    PageTransitionCopyMethodInfo            ,-    pageTransitionCopy                      ,----- ** pageTransitionFree-    PageTransitionFreeMethodInfo            ,-    pageTransitionFree                      ,----- ** pageTransitionNew-    pageTransitionNew                       ,----- -- * Properties--- ** Alignment-    pageTransitionAlignment                 ,-    pageTransitionReadAlignment             ,-    pageTransitionWriteAlignment            ,----- ** Angle-    pageTransitionAngle                     ,-    pageTransitionReadAngle                 ,-    pageTransitionWriteAngle                ,----- ** Direction-    pageTransitionDirection                 ,-    pageTransitionReadDirection             ,-    pageTransitionWriteDirection            ,----- ** Duration-    pageTransitionDuration                  ,-    pageTransitionReadDuration              ,-    pageTransitionWriteDuration             ,----- ** Rectangular-    pageTransitionReadRectangular           ,-    pageTransitionRectangular               ,-    pageTransitionWriteRectangular          ,----- ** Scale-    pageTransitionReadScale                 ,-    pageTransitionScale                     ,-    pageTransitionWriteScale                ,----- ** Type-    pageTransitionReadType                  ,-    pageTransitionType                      ,-    pageTransitionWriteType                 ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks--newtype PageTransition = PageTransition (ForeignPtr PageTransition)-foreign import ccall "poppler_page_transition_get_type" c_poppler_page_transition_get_type :: -    IO GType--instance BoxedObject PageTransition where-    boxedType _ = c_poppler_page_transition_get_type---- | Construct a `PageTransition` struct initialized to zero.-newZeroPageTransition :: MonadIO m => m PageTransition-newZeroPageTransition = liftIO $ callocBoxedBytes 40 >>= wrapBoxed PageTransition--instance tag ~ 'AttrSet => Constructible PageTransition tag where-    new _ attrs = do-        o <- newZeroPageTransition-        GI.Attributes.set o attrs-        return o---noPageTransition :: Maybe PageTransition-noPageTransition = Nothing--pageTransitionReadType :: MonadIO m => PageTransition -> m PageTransitionType-pageTransitionReadType s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--pageTransitionWriteType :: MonadIO m => PageTransition -> PageTransitionType -> m ()-pageTransitionWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 0) (val' :: CUInt)--data PageTransitionTypeFieldInfo-instance AttrInfo PageTransitionTypeFieldInfo where-    type AttrAllowedOps PageTransitionTypeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint PageTransitionTypeFieldInfo = (~) PageTransitionType-    type AttrBaseTypeConstraint PageTransitionTypeFieldInfo = (~) PageTransition-    type AttrGetType PageTransitionTypeFieldInfo = PageTransitionType-    type AttrLabel PageTransitionTypeFieldInfo = "type"-    attrGet _ = pageTransitionReadType-    attrSet _ = pageTransitionWriteType-    attrConstruct = undefined-    attrClear _ = undefined--pageTransitionType :: AttrLabelProxy "type"-pageTransitionType = AttrLabelProxy---pageTransitionReadAlignment :: MonadIO m => PageTransition -> m PageTransitionAlignment-pageTransitionReadAlignment s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 4) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--pageTransitionWriteAlignment :: MonadIO m => PageTransition -> PageTransitionAlignment -> m ()-pageTransitionWriteAlignment s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 4) (val' :: CUInt)--data PageTransitionAlignmentFieldInfo-instance AttrInfo PageTransitionAlignmentFieldInfo where-    type AttrAllowedOps PageTransitionAlignmentFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint PageTransitionAlignmentFieldInfo = (~) PageTransitionAlignment-    type AttrBaseTypeConstraint PageTransitionAlignmentFieldInfo = (~) PageTransition-    type AttrGetType PageTransitionAlignmentFieldInfo = PageTransitionAlignment-    type AttrLabel PageTransitionAlignmentFieldInfo = "alignment"-    attrGet _ = pageTransitionReadAlignment-    attrSet _ = pageTransitionWriteAlignment-    attrConstruct = undefined-    attrClear _ = undefined--pageTransitionAlignment :: AttrLabelProxy "alignment"-pageTransitionAlignment = AttrLabelProxy---pageTransitionReadDirection :: MonadIO m => PageTransition -> m PageTransitionDirection-pageTransitionReadDirection s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--pageTransitionWriteDirection :: MonadIO m => PageTransition -> PageTransitionDirection -> m ()-pageTransitionWriteDirection s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 8) (val' :: CUInt)--data PageTransitionDirectionFieldInfo-instance AttrInfo PageTransitionDirectionFieldInfo where-    type AttrAllowedOps PageTransitionDirectionFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint PageTransitionDirectionFieldInfo = (~) PageTransitionDirection-    type AttrBaseTypeConstraint PageTransitionDirectionFieldInfo = (~) PageTransition-    type AttrGetType PageTransitionDirectionFieldInfo = PageTransitionDirection-    type AttrLabel PageTransitionDirectionFieldInfo = "direction"-    attrGet _ = pageTransitionReadDirection-    attrSet _ = pageTransitionWriteDirection-    attrConstruct = undefined-    attrClear _ = undefined--pageTransitionDirection :: AttrLabelProxy "direction"-pageTransitionDirection = AttrLabelProxy---pageTransitionReadDuration :: MonadIO m => PageTransition -> m Int32-pageTransitionReadDuration s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 12) :: IO Int32-    return val--pageTransitionWriteDuration :: MonadIO m => PageTransition -> Int32 -> m ()-pageTransitionWriteDuration s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 12) (val :: Int32)--data PageTransitionDurationFieldInfo-instance AttrInfo PageTransitionDurationFieldInfo where-    type AttrAllowedOps PageTransitionDurationFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint PageTransitionDurationFieldInfo = (~) Int32-    type AttrBaseTypeConstraint PageTransitionDurationFieldInfo = (~) PageTransition-    type AttrGetType PageTransitionDurationFieldInfo = Int32-    type AttrLabel PageTransitionDurationFieldInfo = "duration"-    attrGet _ = pageTransitionReadDuration-    attrSet _ = pageTransitionWriteDuration-    attrConstruct = undefined-    attrClear _ = undefined--pageTransitionDuration :: AttrLabelProxy "duration"-pageTransitionDuration = AttrLabelProxy---pageTransitionReadAngle :: MonadIO m => PageTransition -> m Int32-pageTransitionReadAngle s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int32-    return val--pageTransitionWriteAngle :: MonadIO m => PageTransition -> Int32 -> m ()-pageTransitionWriteAngle s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: Int32)--data PageTransitionAngleFieldInfo-instance AttrInfo PageTransitionAngleFieldInfo where-    type AttrAllowedOps PageTransitionAngleFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint PageTransitionAngleFieldInfo = (~) Int32-    type AttrBaseTypeConstraint PageTransitionAngleFieldInfo = (~) PageTransition-    type AttrGetType PageTransitionAngleFieldInfo = Int32-    type AttrLabel PageTransitionAngleFieldInfo = "angle"-    attrGet _ = pageTransitionReadAngle-    attrSet _ = pageTransitionWriteAngle-    attrConstruct = undefined-    attrClear _ = undefined--pageTransitionAngle :: AttrLabelProxy "angle"-pageTransitionAngle = AttrLabelProxy---pageTransitionReadScale :: MonadIO m => PageTransition -> m Double-pageTransitionReadScale s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO CDouble-    let val' = realToFrac val-    return val'--pageTransitionWriteScale :: MonadIO m => PageTransition -> Double -> m ()-pageTransitionWriteScale s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 24) (val' :: CDouble)--data PageTransitionScaleFieldInfo-instance AttrInfo PageTransitionScaleFieldInfo where-    type AttrAllowedOps PageTransitionScaleFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint PageTransitionScaleFieldInfo = (~) Double-    type AttrBaseTypeConstraint PageTransitionScaleFieldInfo = (~) PageTransition-    type AttrGetType PageTransitionScaleFieldInfo = Double-    type AttrLabel PageTransitionScaleFieldInfo = "scale"-    attrGet _ = pageTransitionReadScale-    attrSet _ = pageTransitionWriteScale-    attrConstruct = undefined-    attrClear _ = undefined--pageTransitionScale :: AttrLabelProxy "scale"-pageTransitionScale = AttrLabelProxy---pageTransitionReadRectangular :: MonadIO m => PageTransition -> m Bool-pageTransitionReadRectangular s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO CInt-    let val' = (/= 0) val-    return val'--pageTransitionWriteRectangular :: MonadIO m => PageTransition -> Bool -> m ()-pageTransitionWriteRectangular s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 32) (val' :: CInt)--data PageTransitionRectangularFieldInfo-instance AttrInfo PageTransitionRectangularFieldInfo where-    type AttrAllowedOps PageTransitionRectangularFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint PageTransitionRectangularFieldInfo = (~) Bool-    type AttrBaseTypeConstraint PageTransitionRectangularFieldInfo = (~) PageTransition-    type AttrGetType PageTransitionRectangularFieldInfo = Bool-    type AttrLabel PageTransitionRectangularFieldInfo = "rectangular"-    attrGet _ = pageTransitionReadRectangular-    attrSet _ = pageTransitionWriteRectangular-    attrConstruct = undefined-    attrClear _ = undefined--pageTransitionRectangular :: AttrLabelProxy "rectangular"-pageTransitionRectangular = AttrLabelProxy----type instance AttributeList PageTransition = PageTransitionAttributeList-type PageTransitionAttributeList = ('[ '("type", PageTransitionTypeFieldInfo), '("alignment", PageTransitionAlignmentFieldInfo), '("direction", PageTransitionDirectionFieldInfo), '("duration", PageTransitionDurationFieldInfo), '("angle", PageTransitionAngleFieldInfo), '("scale", PageTransitionScaleFieldInfo), '("rectangular", PageTransitionRectangularFieldInfo)] :: [(Symbol, *)])---- method PageTransition::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "Poppler" "PageTransition")--- throws : False--- Skip return : False--foreign import ccall "poppler_page_transition_new" poppler_page_transition_new :: -    IO (Ptr PageTransition)---pageTransitionNew ::-    (MonadIO m) =>-    m PageTransition                        -- result-pageTransitionNew  = liftIO $ do-    result <- poppler_page_transition_new-    checkUnexpectedReturnNULL "poppler_page_transition_new" result-    result' <- (wrapBoxed PageTransition) result-    return result'---- method PageTransition::copy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "PageTransition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "PageTransition")--- throws : False--- Skip return : False--foreign import ccall "poppler_page_transition_copy" poppler_page_transition_copy :: -    Ptr PageTransition ->                   -- _obj : TInterface "Poppler" "PageTransition"-    IO (Ptr PageTransition)---pageTransitionCopy ::-    (MonadIO m) =>-    PageTransition                          -- _obj-    -> m PageTransition                     -- result-pageTransitionCopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- poppler_page_transition_copy _obj'-    checkUnexpectedReturnNULL "poppler_page_transition_copy" result-    result' <- (wrapBoxed PageTransition) result-    touchManagedPtr _obj-    return result'--data PageTransitionCopyMethodInfo-instance (signature ~ (m PageTransition), MonadIO m) => MethodInfo PageTransitionCopyMethodInfo PageTransition signature where-    overloadedMethod _ = pageTransitionCopy---- method PageTransition::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "PageTransition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_page_transition_free" poppler_page_transition_free :: -    Ptr PageTransition ->                   -- _obj : TInterface "Poppler" "PageTransition"-    IO ()---pageTransitionFree ::-    (MonadIO m) =>-    PageTransition                          -- _obj-    -> m ()                                 -- result-pageTransitionFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    poppler_page_transition_free _obj'-    touchManagedPtr _obj-    return ()--data PageTransitionFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo PageTransitionFreeMethodInfo PageTransition signature where-    overloadedMethod _ = pageTransitionFree--type family ResolvePageTransitionMethod (t :: Symbol) (o :: *) :: * where-    ResolvePageTransitionMethod "copy" o = PageTransitionCopyMethodInfo-    ResolvePageTransitionMethod "free" o = PageTransitionFreeMethodInfo-    ResolvePageTransitionMethod l o = MethodResolutionFailed l o--instance (info ~ ResolvePageTransitionMethod t PageTransition, MethodInfo info PageTransition p) => IsLabelProxy t (PageTransition -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolvePageTransitionMethod t PageTransition, MethodInfo info PageTransition p) => IsLabel t (PageTransition -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Poppler/Structs/PageTransition.hs-boot 
@@ -1,13 +0,0 @@-module GI.Poppler.Structs.PageTransition where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype PageTransition = PageTransition (ForeignPtr PageTransition)-instance BoxedObject PageTransition where-data PageTransitionCopyMethodInfo-data PageTransitionFreeMethodInfo
− GI/Poppler/Structs/Point.hs 
@@ -1,233 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--A #PopplerPoint is used to describe a location point on a page--}--module GI.Poppler.Structs.Point-    ( ---- * Exported types-    Point(..)                               ,-    newZeroPoint                            ,-    noPoint                                 ,--- -- * Methods--- ** pointCopy-    PointCopyMethodInfo                     ,-    pointCopy                               ,----- ** pointFree-    PointFreeMethodInfo                     ,-    pointFree                               ,----- ** pointNew-    pointNew                                ,----- -- * Properties--- ** X-    pointReadX                              ,-    pointWriteX                             ,-    pointX                                  ,----- ** Y-    pointReadY                              ,-    pointWriteY                             ,-    pointY                                  ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks--newtype Point = Point (ForeignPtr Point)-foreign import ccall "poppler_point_get_type" c_poppler_point_get_type :: -    IO GType--instance BoxedObject Point where-    boxedType _ = c_poppler_point_get_type---- | Construct a `Point` struct initialized to zero.-newZeroPoint :: MonadIO m => m Point-newZeroPoint = liftIO $ callocBoxedBytes 16 >>= wrapBoxed Point--instance tag ~ 'AttrSet => Constructible Point tag where-    new _ attrs = do-        o <- newZeroPoint-        GI.Attributes.set o attrs-        return o---noPoint :: Maybe Point-noPoint = Nothing--pointReadX :: MonadIO m => Point -> m Double-pointReadX s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CDouble-    let val' = realToFrac val-    return val'--pointWriteX :: MonadIO m => Point -> Double -> m ()-pointWriteX s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 0) (val' :: CDouble)--data PointXFieldInfo-instance AttrInfo PointXFieldInfo where-    type AttrAllowedOps PointXFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint PointXFieldInfo = (~) Double-    type AttrBaseTypeConstraint PointXFieldInfo = (~) Point-    type AttrGetType PointXFieldInfo = Double-    type AttrLabel PointXFieldInfo = "x"-    attrGet _ = pointReadX-    attrSet _ = pointWriteX-    attrConstruct = undefined-    attrClear _ = undefined--pointX :: AttrLabelProxy "x"-pointX = AttrLabelProxy---pointReadY :: MonadIO m => Point -> m Double-pointReadY s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CDouble-    let val' = realToFrac val-    return val'--pointWriteY :: MonadIO m => Point -> Double -> m ()-pointWriteY s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 8) (val' :: CDouble)--data PointYFieldInfo-instance AttrInfo PointYFieldInfo where-    type AttrAllowedOps PointYFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint PointYFieldInfo = (~) Double-    type AttrBaseTypeConstraint PointYFieldInfo = (~) Point-    type AttrGetType PointYFieldInfo = Double-    type AttrLabel PointYFieldInfo = "y"-    attrGet _ = pointReadY-    attrSet _ = pointWriteY-    attrConstruct = undefined-    attrClear _ = undefined--pointY :: AttrLabelProxy "y"-pointY = AttrLabelProxy----type instance AttributeList Point = PointAttributeList-type PointAttributeList = ('[ '("x", PointXFieldInfo), '("y", PointYFieldInfo)] :: [(Symbol, *)])---- method Point::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "Poppler" "Point")--- throws : False--- Skip return : False--foreign import ccall "poppler_point_new" poppler_point_new :: -    IO (Ptr Point)---pointNew ::-    (MonadIO m) =>-    m Point                                 -- result-pointNew  = liftIO $ do-    result <- poppler_point_new-    checkUnexpectedReturnNULL "poppler_point_new" result-    result' <- (wrapBoxed Point) result-    return result'---- method Point::copy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Point", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "Point")--- throws : False--- Skip return : False--foreign import ccall "poppler_point_copy" poppler_point_copy :: -    Ptr Point ->                            -- _obj : TInterface "Poppler" "Point"-    IO (Ptr Point)---pointCopy ::-    (MonadIO m) =>-    Point                                   -- _obj-    -> m Point                              -- result-pointCopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- poppler_point_copy _obj'-    checkUnexpectedReturnNULL "poppler_point_copy" result-    result' <- (wrapBoxed Point) result-    touchManagedPtr _obj-    return result'--data PointCopyMethodInfo-instance (signature ~ (m Point), MonadIO m) => MethodInfo PointCopyMethodInfo Point signature where-    overloadedMethod _ = pointCopy---- method Point::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Point", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_point_free" poppler_point_free :: -    Ptr Point ->                            -- _obj : TInterface "Poppler" "Point"-    IO ()---pointFree ::-    (MonadIO m) =>-    Point                                   -- _obj-    -> m ()                                 -- result-pointFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    poppler_point_free _obj'-    touchManagedPtr _obj-    return ()--data PointFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo PointFreeMethodInfo Point signature where-    overloadedMethod _ = pointFree--type family ResolvePointMethod (t :: Symbol) (o :: *) :: * where-    ResolvePointMethod "copy" o = PointCopyMethodInfo-    ResolvePointMethod "free" o = PointFreeMethodInfo-    ResolvePointMethod l o = MethodResolutionFailed l o--instance (info ~ ResolvePointMethod t Point, MethodInfo info Point p) => IsLabelProxy t (Point -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolvePointMethod t Point, MethodInfo info Point p) => IsLabel t (Point -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Poppler/Structs/Point.hs-boot 
@@ -1,13 +0,0 @@-module GI.Poppler.Structs.Point where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Point = Point (ForeignPtr Point)-instance BoxedObject Point where-data PointCopyMethodInfo-data PointFreeMethodInfo
− GI/Poppler/Structs/Quadrilateral.hs 
@@ -1,326 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--A #PopplerQuadrilateral is used to describe rectangle-like polygon- with arbitrary inclination on a page.-- Since: 0.26--}--module GI.Poppler.Structs.Quadrilateral-    ( ---- * Exported types-    Quadrilateral(..)                       ,-    newZeroQuadrilateral                    ,-    noQuadrilateral                         ,--- -- * Methods--- ** quadrilateralCopy-    QuadrilateralCopyMethodInfo             ,-    quadrilateralCopy                       ,----- ** quadrilateralFree-    QuadrilateralFreeMethodInfo             ,-    quadrilateralFree                       ,----- ** quadrilateralNew-    quadrilateralNew                        ,----- -- * Properties--- ** P1-    quadrilateralClearP1                    ,-    quadrilateralP1                         ,-    quadrilateralReadP1                     ,-    quadrilateralWriteP1                    ,----- ** P2-    quadrilateralClearP2                    ,-    quadrilateralP2                         ,-    quadrilateralReadP2                     ,-    quadrilateralWriteP2                    ,----- ** P3-    quadrilateralClearP3                    ,-    quadrilateralP3                         ,-    quadrilateralReadP3                     ,-    quadrilateralWriteP3                    ,----- ** P4-    quadrilateralClearP4                    ,-    quadrilateralP4                         ,-    quadrilateralReadP4                     ,-    quadrilateralWriteP4                    ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks--newtype Quadrilateral = Quadrilateral (ForeignPtr Quadrilateral)-foreign import ccall "poppler_quadrilateral_get_type" c_poppler_quadrilateral_get_type :: -    IO GType--instance BoxedObject Quadrilateral where-    boxedType _ = c_poppler_quadrilateral_get_type---- | Construct a `Quadrilateral` struct initialized to zero.-newZeroQuadrilateral :: MonadIO m => m Quadrilateral-newZeroQuadrilateral = liftIO $ callocBoxedBytes 64 >>= wrapBoxed Quadrilateral--instance tag ~ 'AttrSet => Constructible Quadrilateral tag where-    new _ attrs = do-        o <- newZeroQuadrilateral-        GI.Attributes.set o attrs-        return o---noQuadrilateral :: Maybe Quadrilateral-noQuadrilateral = Nothing--quadrilateralReadP1 :: MonadIO m => Quadrilateral -> m (Maybe Point)-quadrilateralReadP1 s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr Point)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newBoxed Point) val'-        return val''-    return result--quadrilateralWriteP1 :: MonadIO m => Quadrilateral -> Ptr Point -> m ()-quadrilateralWriteP1 s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr Point)--quadrilateralClearP1 :: MonadIO m => Quadrilateral -> m ()-quadrilateralClearP1 s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: Ptr Point)--data QuadrilateralP1FieldInfo-instance AttrInfo QuadrilateralP1FieldInfo where-    type AttrAllowedOps QuadrilateralP1FieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint QuadrilateralP1FieldInfo = (~) (Ptr Point)-    type AttrBaseTypeConstraint QuadrilateralP1FieldInfo = (~) Quadrilateral-    type AttrGetType QuadrilateralP1FieldInfo = Maybe Point-    type AttrLabel QuadrilateralP1FieldInfo = "p1"-    attrGet _ = quadrilateralReadP1-    attrSet _ = quadrilateralWriteP1-    attrConstruct = undefined-    attrClear _ = quadrilateralClearP1--quadrilateralP1 :: AttrLabelProxy "p1"-quadrilateralP1 = AttrLabelProxy---quadrilateralReadP2 :: MonadIO m => Quadrilateral -> m (Maybe Point)-quadrilateralReadP2 s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO (Ptr Point)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newBoxed Point) val'-        return val''-    return result--quadrilateralWriteP2 :: MonadIO m => Quadrilateral -> Ptr Point -> m ()-quadrilateralWriteP2 s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: Ptr Point)--quadrilateralClearP2 :: MonadIO m => Quadrilateral -> m ()-quadrilateralClearP2 s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (nullPtr :: Ptr Point)--data QuadrilateralP2FieldInfo-instance AttrInfo QuadrilateralP2FieldInfo where-    type AttrAllowedOps QuadrilateralP2FieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint QuadrilateralP2FieldInfo = (~) (Ptr Point)-    type AttrBaseTypeConstraint QuadrilateralP2FieldInfo = (~) Quadrilateral-    type AttrGetType QuadrilateralP2FieldInfo = Maybe Point-    type AttrLabel QuadrilateralP2FieldInfo = "p2"-    attrGet _ = quadrilateralReadP2-    attrSet _ = quadrilateralWriteP2-    attrConstruct = undefined-    attrClear _ = quadrilateralClearP2--quadrilateralP2 :: AttrLabelProxy "p2"-quadrilateralP2 = AttrLabelProxy---quadrilateralReadP3 :: MonadIO m => Quadrilateral -> m (Maybe Point)-quadrilateralReadP3 s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO (Ptr Point)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newBoxed Point) val'-        return val''-    return result--quadrilateralWriteP3 :: MonadIO m => Quadrilateral -> Ptr Point -> m ()-quadrilateralWriteP3 s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (val :: Ptr Point)--quadrilateralClearP3 :: MonadIO m => Quadrilateral -> m ()-quadrilateralClearP3 s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (nullPtr :: Ptr Point)--data QuadrilateralP3FieldInfo-instance AttrInfo QuadrilateralP3FieldInfo where-    type AttrAllowedOps QuadrilateralP3FieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint QuadrilateralP3FieldInfo = (~) (Ptr Point)-    type AttrBaseTypeConstraint QuadrilateralP3FieldInfo = (~) Quadrilateral-    type AttrGetType QuadrilateralP3FieldInfo = Maybe Point-    type AttrLabel QuadrilateralP3FieldInfo = "p3"-    attrGet _ = quadrilateralReadP3-    attrSet _ = quadrilateralWriteP3-    attrConstruct = undefined-    attrClear _ = quadrilateralClearP3--quadrilateralP3 :: AttrLabelProxy "p3"-quadrilateralP3 = AttrLabelProxy---quadrilateralReadP4 :: MonadIO m => Quadrilateral -> m (Maybe Point)-quadrilateralReadP4 s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 48) :: IO (Ptr Point)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newBoxed Point) val'-        return val''-    return result--quadrilateralWriteP4 :: MonadIO m => Quadrilateral -> Ptr Point -> m ()-quadrilateralWriteP4 s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 48) (val :: Ptr Point)--quadrilateralClearP4 :: MonadIO m => Quadrilateral -> m ()-quadrilateralClearP4 s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 48) (nullPtr :: Ptr Point)--data QuadrilateralP4FieldInfo-instance AttrInfo QuadrilateralP4FieldInfo where-    type AttrAllowedOps QuadrilateralP4FieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint QuadrilateralP4FieldInfo = (~) (Ptr Point)-    type AttrBaseTypeConstraint QuadrilateralP4FieldInfo = (~) Quadrilateral-    type AttrGetType QuadrilateralP4FieldInfo = Maybe Point-    type AttrLabel QuadrilateralP4FieldInfo = "p4"-    attrGet _ = quadrilateralReadP4-    attrSet _ = quadrilateralWriteP4-    attrConstruct = undefined-    attrClear _ = quadrilateralClearP4--quadrilateralP4 :: AttrLabelProxy "p4"-quadrilateralP4 = AttrLabelProxy----type instance AttributeList Quadrilateral = QuadrilateralAttributeList-type QuadrilateralAttributeList = ('[ '("p1", QuadrilateralP1FieldInfo), '("p2", QuadrilateralP2FieldInfo), '("p3", QuadrilateralP3FieldInfo), '("p4", QuadrilateralP4FieldInfo)] :: [(Symbol, *)])---- method Quadrilateral::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "Poppler" "Quadrilateral")--- throws : False--- Skip return : False--foreign import ccall "poppler_quadrilateral_new" poppler_quadrilateral_new :: -    IO (Ptr Quadrilateral)---quadrilateralNew ::-    (MonadIO m) =>-    m Quadrilateral                         -- result-quadrilateralNew  = liftIO $ do-    result <- poppler_quadrilateral_new-    checkUnexpectedReturnNULL "poppler_quadrilateral_new" result-    result' <- (wrapBoxed Quadrilateral) result-    return result'---- method Quadrilateral::copy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Quadrilateral", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "Quadrilateral")--- throws : False--- Skip return : False--foreign import ccall "poppler_quadrilateral_copy" poppler_quadrilateral_copy :: -    Ptr Quadrilateral ->                    -- _obj : TInterface "Poppler" "Quadrilateral"-    IO (Ptr Quadrilateral)---quadrilateralCopy ::-    (MonadIO m) =>-    Quadrilateral                           -- _obj-    -> m Quadrilateral                      -- result-quadrilateralCopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- poppler_quadrilateral_copy _obj'-    checkUnexpectedReturnNULL "poppler_quadrilateral_copy" result-    result' <- (wrapBoxed Quadrilateral) result-    touchManagedPtr _obj-    return result'--data QuadrilateralCopyMethodInfo-instance (signature ~ (m Quadrilateral), MonadIO m) => MethodInfo QuadrilateralCopyMethodInfo Quadrilateral signature where-    overloadedMethod _ = quadrilateralCopy---- method Quadrilateral::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Quadrilateral", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_quadrilateral_free" poppler_quadrilateral_free :: -    Ptr Quadrilateral ->                    -- _obj : TInterface "Poppler" "Quadrilateral"-    IO ()---quadrilateralFree ::-    (MonadIO m) =>-    Quadrilateral                           -- _obj-    -> m ()                                 -- result-quadrilateralFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    poppler_quadrilateral_free _obj'-    touchManagedPtr _obj-    return ()--data QuadrilateralFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo QuadrilateralFreeMethodInfo Quadrilateral signature where-    overloadedMethod _ = quadrilateralFree--type family ResolveQuadrilateralMethod (t :: Symbol) (o :: *) :: * where-    ResolveQuadrilateralMethod "copy" o = QuadrilateralCopyMethodInfo-    ResolveQuadrilateralMethod "free" o = QuadrilateralFreeMethodInfo-    ResolveQuadrilateralMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveQuadrilateralMethod t Quadrilateral, MethodInfo info Quadrilateral p) => IsLabelProxy t (Quadrilateral -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveQuadrilateralMethod t Quadrilateral, MethodInfo info Quadrilateral p) => IsLabel t (Quadrilateral -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Poppler/Structs/Quadrilateral.hs-boot 
@@ -1,13 +0,0 @@-module GI.Poppler.Structs.Quadrilateral where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Quadrilateral = Quadrilateral (ForeignPtr Quadrilateral)-instance BoxedObject Quadrilateral where-data QuadrilateralCopyMethodInfo-data QuadrilateralFreeMethodInfo
− GI/Poppler/Structs/Rectangle.hs 
@@ -1,300 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--A #PopplerRectangle is used to describe-locations on a page and bounding boxes--}--module GI.Poppler.Structs.Rectangle-    ( ---- * Exported types-    Rectangle(..)                           ,-    newZeroRectangle                        ,-    noRectangle                             ,--- -- * Methods--- ** rectangleCopy-    RectangleCopyMethodInfo                 ,-    rectangleCopy                           ,----- ** rectangleFree-    RectangleFreeMethodInfo                 ,-    rectangleFree                           ,----- ** rectangleNew-    rectangleNew                            ,----- -- * Properties--- ** X1-    rectangleReadX1                         ,-    rectangleWriteX1                        ,-    rectangleX1                             ,----- ** X2-    rectangleReadX2                         ,-    rectangleWriteX2                        ,-    rectangleX2                             ,----- ** Y1-    rectangleReadY1                         ,-    rectangleWriteY1                        ,-    rectangleY1                             ,----- ** Y2-    rectangleReadY2                         ,-    rectangleWriteY2                        ,-    rectangleY2                             ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks--newtype Rectangle = Rectangle (ForeignPtr Rectangle)-foreign import ccall "poppler_rectangle_get_type" c_poppler_rectangle_get_type :: -    IO GType--instance BoxedObject Rectangle where-    boxedType _ = c_poppler_rectangle_get_type---- | Construct a `Rectangle` struct initialized to zero.-newZeroRectangle :: MonadIO m => m Rectangle-newZeroRectangle = liftIO $ callocBoxedBytes 32 >>= wrapBoxed Rectangle--instance tag ~ 'AttrSet => Constructible Rectangle tag where-    new _ attrs = do-        o <- newZeroRectangle-        GI.Attributes.set o attrs-        return o---noRectangle :: Maybe Rectangle-noRectangle = Nothing--rectangleReadX1 :: MonadIO m => Rectangle -> m Double-rectangleReadX1 s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CDouble-    let val' = realToFrac val-    return val'--rectangleWriteX1 :: MonadIO m => Rectangle -> Double -> m ()-rectangleWriteX1 s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 0) (val' :: CDouble)--data RectangleX1FieldInfo-instance AttrInfo RectangleX1FieldInfo where-    type AttrAllowedOps RectangleX1FieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint RectangleX1FieldInfo = (~) Double-    type AttrBaseTypeConstraint RectangleX1FieldInfo = (~) Rectangle-    type AttrGetType RectangleX1FieldInfo = Double-    type AttrLabel RectangleX1FieldInfo = "x1"-    attrGet _ = rectangleReadX1-    attrSet _ = rectangleWriteX1-    attrConstruct = undefined-    attrClear _ = undefined--rectangleX1 :: AttrLabelProxy "x1"-rectangleX1 = AttrLabelProxy---rectangleReadY1 :: MonadIO m => Rectangle -> m Double-rectangleReadY1 s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CDouble-    let val' = realToFrac val-    return val'--rectangleWriteY1 :: MonadIO m => Rectangle -> Double -> m ()-rectangleWriteY1 s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 8) (val' :: CDouble)--data RectangleY1FieldInfo-instance AttrInfo RectangleY1FieldInfo where-    type AttrAllowedOps RectangleY1FieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint RectangleY1FieldInfo = (~) Double-    type AttrBaseTypeConstraint RectangleY1FieldInfo = (~) Rectangle-    type AttrGetType RectangleY1FieldInfo = Double-    type AttrLabel RectangleY1FieldInfo = "y1"-    attrGet _ = rectangleReadY1-    attrSet _ = rectangleWriteY1-    attrConstruct = undefined-    attrClear _ = undefined--rectangleY1 :: AttrLabelProxy "y1"-rectangleY1 = AttrLabelProxy---rectangleReadX2 :: MonadIO m => Rectangle -> m Double-rectangleReadX2 s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO CDouble-    let val' = realToFrac val-    return val'--rectangleWriteX2 :: MonadIO m => Rectangle -> Double -> m ()-rectangleWriteX2 s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 16) (val' :: CDouble)--data RectangleX2FieldInfo-instance AttrInfo RectangleX2FieldInfo where-    type AttrAllowedOps RectangleX2FieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint RectangleX2FieldInfo = (~) Double-    type AttrBaseTypeConstraint RectangleX2FieldInfo = (~) Rectangle-    type AttrGetType RectangleX2FieldInfo = Double-    type AttrLabel RectangleX2FieldInfo = "x2"-    attrGet _ = rectangleReadX2-    attrSet _ = rectangleWriteX2-    attrConstruct = undefined-    attrClear _ = undefined--rectangleX2 :: AttrLabelProxy "x2"-rectangleX2 = AttrLabelProxy---rectangleReadY2 :: MonadIO m => Rectangle -> m Double-rectangleReadY2 s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO CDouble-    let val' = realToFrac val-    return val'--rectangleWriteY2 :: MonadIO m => Rectangle -> Double -> m ()-rectangleWriteY2 s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 24) (val' :: CDouble)--data RectangleY2FieldInfo-instance AttrInfo RectangleY2FieldInfo where-    type AttrAllowedOps RectangleY2FieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint RectangleY2FieldInfo = (~) Double-    type AttrBaseTypeConstraint RectangleY2FieldInfo = (~) Rectangle-    type AttrGetType RectangleY2FieldInfo = Double-    type AttrLabel RectangleY2FieldInfo = "y2"-    attrGet _ = rectangleReadY2-    attrSet _ = rectangleWriteY2-    attrConstruct = undefined-    attrClear _ = undefined--rectangleY2 :: AttrLabelProxy "y2"-rectangleY2 = AttrLabelProxy----type instance AttributeList Rectangle = RectangleAttributeList-type RectangleAttributeList = ('[ '("x1", RectangleX1FieldInfo), '("y1", RectangleY1FieldInfo), '("x2", RectangleX2FieldInfo), '("y2", RectangleY2FieldInfo)] :: [(Symbol, *)])---- method Rectangle::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "Poppler" "Rectangle")--- throws : False--- Skip return : False--foreign import ccall "poppler_rectangle_new" poppler_rectangle_new :: -    IO (Ptr Rectangle)---rectangleNew ::-    (MonadIO m) =>-    m Rectangle                             -- result-rectangleNew  = liftIO $ do-    result <- poppler_rectangle_new-    checkUnexpectedReturnNULL "poppler_rectangle_new" result-    result' <- (wrapBoxed Rectangle) result-    return result'---- method Rectangle::copy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "Rectangle")--- throws : False--- Skip return : False--foreign import ccall "poppler_rectangle_copy" poppler_rectangle_copy :: -    Ptr Rectangle ->                        -- _obj : TInterface "Poppler" "Rectangle"-    IO (Ptr Rectangle)---rectangleCopy ::-    (MonadIO m) =>-    Rectangle                               -- _obj-    -> m Rectangle                          -- result-rectangleCopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- poppler_rectangle_copy _obj'-    checkUnexpectedReturnNULL "poppler_rectangle_copy" result-    result' <- (wrapBoxed Rectangle) result-    touchManagedPtr _obj-    return result'--data RectangleCopyMethodInfo-instance (signature ~ (m Rectangle), MonadIO m) => MethodInfo RectangleCopyMethodInfo Rectangle signature where-    overloadedMethod _ = rectangleCopy---- method Rectangle::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_rectangle_free" poppler_rectangle_free :: -    Ptr Rectangle ->                        -- _obj : TInterface "Poppler" "Rectangle"-    IO ()---rectangleFree ::-    (MonadIO m) =>-    Rectangle                               -- _obj-    -> m ()                                 -- result-rectangleFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    poppler_rectangle_free _obj'-    touchManagedPtr _obj-    return ()--data RectangleFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo RectangleFreeMethodInfo Rectangle signature where-    overloadedMethod _ = rectangleFree--type family ResolveRectangleMethod (t :: Symbol) (o :: *) :: * where-    ResolveRectangleMethod "copy" o = RectangleCopyMethodInfo-    ResolveRectangleMethod "free" o = RectangleFreeMethodInfo-    ResolveRectangleMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveRectangleMethod t Rectangle, MethodInfo info Rectangle p) => IsLabelProxy t (Rectangle -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveRectangleMethod t Rectangle, MethodInfo info Rectangle p) => IsLabel t (Rectangle -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Poppler/Structs/Rectangle.hs-boot 
@@ -1,13 +0,0 @@-module GI.Poppler.Structs.Rectangle where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Rectangle = Rectangle (ForeignPtr Rectangle)-instance BoxedObject Rectangle where-data RectangleCopyMethodInfo-data RectangleFreeMethodInfo
− GI/Poppler/Structs/StructureElementIter.hs 
@@ -1,258 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Poppler.Structs.StructureElementIter-    ( ---- * Exported types-    StructureElementIter(..)                ,-    noStructureElementIter                  ,--- -- * Methods--- ** structureElementIterCopy-    StructureElementIterCopyMethodInfo      ,-    structureElementIterCopy                ,----- ** structureElementIterFree-    StructureElementIterFreeMethodInfo      ,-    structureElementIterFree                ,----- ** structureElementIterGetChild-    StructureElementIterGetChildMethodInfo  ,-    structureElementIterGetChild            ,----- ** structureElementIterGetElement-    StructureElementIterGetElementMethodInfo,-    structureElementIterGetElement          ,----- ** structureElementIterNew-    structureElementIterNew                 ,----- ** structureElementIterNext-    StructureElementIterNextMethodInfo      ,-    structureElementIterNext                ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks--newtype StructureElementIter = StructureElementIter (ForeignPtr StructureElementIter)-foreign import ccall "poppler_structure_element_iter_get_type" c_poppler_structure_element_iter_get_type :: -    IO GType--instance BoxedObject StructureElementIter where-    boxedType _ = c_poppler_structure_element_iter_get_type--noStructureElementIter :: Maybe StructureElementIter-noStructureElementIter = Nothing---type instance AttributeList StructureElementIter = StructureElementIterAttributeList-type StructureElementIterAttributeList = ('[ ] :: [(Symbol, *)])---- method StructureElementIter::new--- method type : Constructor--- Args : [Arg {argCName = "poppler_document", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "StructureElementIter")--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_iter_new" poppler_structure_element_iter_new :: -    Ptr Document ->                         -- poppler_document : TInterface "Poppler" "Document"-    IO (Ptr StructureElementIter)---structureElementIterNew ::-    (MonadIO m, DocumentK a) =>-    a                                       -- popplerDocument-    -> m StructureElementIter               -- result-structureElementIterNew popplerDocument = liftIO $ do-    let popplerDocument' = unsafeManagedPtrCastPtr popplerDocument-    result <- poppler_structure_element_iter_new popplerDocument'-    checkUnexpectedReturnNULL "poppler_structure_element_iter_new" result-    result' <- (wrapBoxed StructureElementIter) result-    touchManagedPtr popplerDocument-    return result'---- method StructureElementIter::copy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElementIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "StructureElementIter")--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_iter_copy" poppler_structure_element_iter_copy :: -    Ptr StructureElementIter ->             -- _obj : TInterface "Poppler" "StructureElementIter"-    IO (Ptr StructureElementIter)---structureElementIterCopy ::-    (MonadIO m) =>-    StructureElementIter                    -- _obj-    -> m StructureElementIter               -- result-structureElementIterCopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- poppler_structure_element_iter_copy _obj'-    checkUnexpectedReturnNULL "poppler_structure_element_iter_copy" result-    result' <- (wrapBoxed StructureElementIter) result-    touchManagedPtr _obj-    return result'--data StructureElementIterCopyMethodInfo-instance (signature ~ (m StructureElementIter), MonadIO m) => MethodInfo StructureElementIterCopyMethodInfo StructureElementIter signature where-    overloadedMethod _ = structureElementIterCopy---- method StructureElementIter::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElementIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_iter_free" poppler_structure_element_iter_free :: -    Ptr StructureElementIter ->             -- _obj : TInterface "Poppler" "StructureElementIter"-    IO ()---structureElementIterFree ::-    (MonadIO m) =>-    StructureElementIter                    -- _obj-    -> m ()                                 -- result-structureElementIterFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    poppler_structure_element_iter_free _obj'-    touchManagedPtr _obj-    return ()--data StructureElementIterFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo StructureElementIterFreeMethodInfo StructureElementIter signature where-    overloadedMethod _ = structureElementIterFree---- method StructureElementIter::get_child--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElementIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "StructureElementIter")--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_iter_get_child" poppler_structure_element_iter_get_child :: -    Ptr StructureElementIter ->             -- _obj : TInterface "Poppler" "StructureElementIter"-    IO (Ptr StructureElementIter)---structureElementIterGetChild ::-    (MonadIO m) =>-    StructureElementIter                    -- _obj-    -> m StructureElementIter               -- result-structureElementIterGetChild _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- poppler_structure_element_iter_get_child _obj'-    checkUnexpectedReturnNULL "poppler_structure_element_iter_get_child" result-    result' <- (wrapBoxed StructureElementIter) result-    touchManagedPtr _obj-    return result'--data StructureElementIterGetChildMethodInfo-instance (signature ~ (m StructureElementIter), MonadIO m) => MethodInfo StructureElementIterGetChildMethodInfo StructureElementIter signature where-    overloadedMethod _ = structureElementIterGetChild---- method StructureElementIter::get_element--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElementIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "StructureElement")--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_iter_get_element" poppler_structure_element_iter_get_element :: -    Ptr StructureElementIter ->             -- _obj : TInterface "Poppler" "StructureElementIter"-    IO (Ptr StructureElement)---structureElementIterGetElement ::-    (MonadIO m) =>-    StructureElementIter                    -- _obj-    -> m StructureElement                   -- result-structureElementIterGetElement _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- poppler_structure_element_iter_get_element _obj'-    checkUnexpectedReturnNULL "poppler_structure_element_iter_get_element" result-    result' <- (wrapObject StructureElement) result-    touchManagedPtr _obj-    return result'--data StructureElementIterGetElementMethodInfo-instance (signature ~ (m StructureElement), MonadIO m) => MethodInfo StructureElementIterGetElementMethodInfo StructureElementIter signature where-    overloadedMethod _ = structureElementIterGetElement---- method StructureElementIter::next--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElementIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "poppler_structure_element_iter_next" poppler_structure_element_iter_next :: -    Ptr StructureElementIter ->             -- _obj : TInterface "Poppler" "StructureElementIter"-    IO CInt---structureElementIterNext ::-    (MonadIO m) =>-    StructureElementIter                    -- _obj-    -> m Bool                               -- result-structureElementIterNext _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- poppler_structure_element_iter_next _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data StructureElementIterNextMethodInfo-instance (signature ~ (m Bool), MonadIO m) => MethodInfo StructureElementIterNextMethodInfo StructureElementIter signature where-    overloadedMethod _ = structureElementIterNext--type family ResolveStructureElementIterMethod (t :: Symbol) (o :: *) :: * where-    ResolveStructureElementIterMethod "copy" o = StructureElementIterCopyMethodInfo-    ResolveStructureElementIterMethod "free" o = StructureElementIterFreeMethodInfo-    ResolveStructureElementIterMethod "next" o = StructureElementIterNextMethodInfo-    ResolveStructureElementIterMethod "getChild" o = StructureElementIterGetChildMethodInfo-    ResolveStructureElementIterMethod "getElement" o = StructureElementIterGetElementMethodInfo-    ResolveStructureElementIterMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveStructureElementIterMethod t StructureElementIter, MethodInfo info StructureElementIter p) => IsLabelProxy t (StructureElementIter -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveStructureElementIterMethod t StructureElementIter, MethodInfo info StructureElementIter p) => IsLabel t (StructureElementIter -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Poppler/Structs/StructureElementIter.hs-boot 
@@ -1,16 +0,0 @@-module GI.Poppler.Structs.StructureElementIter where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype StructureElementIter = StructureElementIter (ForeignPtr StructureElementIter)-instance BoxedObject StructureElementIter where-data StructureElementIterCopyMethodInfo-data StructureElementIterFreeMethodInfo-data StructureElementIterGetChildMethodInfo-data StructureElementIterGetElementMethodInfo-data StructureElementIterNextMethodInfo
− GI/Poppler/Structs/TextAttributes.hs 
@@ -1,373 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--A #PopplerTextAttributes is used to describe text attributes of a range of text--}--module GI.Poppler.Structs.TextAttributes-    ( ---- * Exported types-    TextAttributes(..)                      ,-    newZeroTextAttributes                   ,-    noTextAttributes                        ,--- -- * Methods--- ** textAttributesCopy-    TextAttributesCopyMethodInfo            ,-    textAttributesCopy                      ,----- ** textAttributesFree-    TextAttributesFreeMethodInfo            ,-    textAttributesFree                      ,----- ** textAttributesNew-    textAttributesNew                       ,----- -- * Properties--- ** Color-    textAttributesClearColor                ,-    textAttributesColor                     ,-    textAttributesReadColor                 ,-    textAttributesWriteColor                ,----- ** EndIndex-    textAttributesEndIndex                  ,-    textAttributesReadEndIndex              ,-    textAttributesWriteEndIndex             ,----- ** FontName-    textAttributesClearFontName             ,-    textAttributesFontName                  ,-    textAttributesReadFontName              ,-    textAttributesWriteFontName             ,----- ** FontSize-    textAttributesFontSize                  ,-    textAttributesReadFontSize              ,-    textAttributesWriteFontSize             ,----- ** IsUnderlined-    textAttributesIsUnderlined              ,-    textAttributesReadIsUnderlined          ,-    textAttributesWriteIsUnderlined         ,----- ** StartIndex-    textAttributesReadStartIndex            ,-    textAttributesStartIndex                ,-    textAttributesWriteStartIndex           ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks--newtype TextAttributes = TextAttributes (ForeignPtr TextAttributes)-foreign import ccall "poppler_text_attributes_get_type" c_poppler_text_attributes_get_type :: -    IO GType--instance BoxedObject TextAttributes where-    boxedType _ = c_poppler_text_attributes_get_type---- | Construct a `TextAttributes` struct initialized to zero.-newZeroTextAttributes :: MonadIO m => m TextAttributes-newZeroTextAttributes = liftIO $ callocBoxedBytes 40 >>= wrapBoxed TextAttributes--instance tag ~ 'AttrSet => Constructible TextAttributes tag where-    new _ attrs = do-        o <- newZeroTextAttributes-        GI.Attributes.set o attrs-        return o---noTextAttributes :: Maybe TextAttributes-noTextAttributes = Nothing--textAttributesReadFontName :: MonadIO m => TextAttributes -> m (Maybe T.Text)-textAttributesReadFontName s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--textAttributesWriteFontName :: MonadIO m => TextAttributes -> CString -> m ()-textAttributesWriteFontName s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: CString)--textAttributesClearFontName :: MonadIO m => TextAttributes -> m ()-textAttributesClearFontName s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: CString)--data TextAttributesFontNameFieldInfo-instance AttrInfo TextAttributesFontNameFieldInfo where-    type AttrAllowedOps TextAttributesFontNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint TextAttributesFontNameFieldInfo = (~) CString-    type AttrBaseTypeConstraint TextAttributesFontNameFieldInfo = (~) TextAttributes-    type AttrGetType TextAttributesFontNameFieldInfo = Maybe T.Text-    type AttrLabel TextAttributesFontNameFieldInfo = "font_name"-    attrGet _ = textAttributesReadFontName-    attrSet _ = textAttributesWriteFontName-    attrConstruct = undefined-    attrClear _ = textAttributesClearFontName--textAttributesFontName :: AttrLabelProxy "fontName"-textAttributesFontName = AttrLabelProxy---textAttributesReadFontSize :: MonadIO m => TextAttributes -> m Double-textAttributesReadFontSize s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CDouble-    let val' = realToFrac val-    return val'--textAttributesWriteFontSize :: MonadIO m => TextAttributes -> Double -> m ()-textAttributesWriteFontSize s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 8) (val' :: CDouble)--data TextAttributesFontSizeFieldInfo-instance AttrInfo TextAttributesFontSizeFieldInfo where-    type AttrAllowedOps TextAttributesFontSizeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint TextAttributesFontSizeFieldInfo = (~) Double-    type AttrBaseTypeConstraint TextAttributesFontSizeFieldInfo = (~) TextAttributes-    type AttrGetType TextAttributesFontSizeFieldInfo = Double-    type AttrLabel TextAttributesFontSizeFieldInfo = "font_size"-    attrGet _ = textAttributesReadFontSize-    attrSet _ = textAttributesWriteFontSize-    attrConstruct = undefined-    attrClear _ = undefined--textAttributesFontSize :: AttrLabelProxy "fontSize"-textAttributesFontSize = AttrLabelProxy---textAttributesReadIsUnderlined :: MonadIO m => TextAttributes -> m Bool-textAttributesReadIsUnderlined s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO CInt-    let val' = (/= 0) val-    return val'--textAttributesWriteIsUnderlined :: MonadIO m => TextAttributes -> Bool -> m ()-textAttributesWriteIsUnderlined s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 16) (val' :: CInt)--data TextAttributesIsUnderlinedFieldInfo-instance AttrInfo TextAttributesIsUnderlinedFieldInfo where-    type AttrAllowedOps TextAttributesIsUnderlinedFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint TextAttributesIsUnderlinedFieldInfo = (~) Bool-    type AttrBaseTypeConstraint TextAttributesIsUnderlinedFieldInfo = (~) TextAttributes-    type AttrGetType TextAttributesIsUnderlinedFieldInfo = Bool-    type AttrLabel TextAttributesIsUnderlinedFieldInfo = "is_underlined"-    attrGet _ = textAttributesReadIsUnderlined-    attrSet _ = textAttributesWriteIsUnderlined-    attrConstruct = undefined-    attrClear _ = undefined--textAttributesIsUnderlined :: AttrLabelProxy "isUnderlined"-textAttributesIsUnderlined = AttrLabelProxy---textAttributesReadColor :: MonadIO m => TextAttributes -> m (Maybe Color)-textAttributesReadColor s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 20) :: IO (Ptr Color)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newBoxed Color) val'-        return val''-    return result--textAttributesWriteColor :: MonadIO m => TextAttributes -> Ptr Color -> m ()-textAttributesWriteColor s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 20) (val :: Ptr Color)--textAttributesClearColor :: MonadIO m => TextAttributes -> m ()-textAttributesClearColor s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 20) (nullPtr :: Ptr Color)--data TextAttributesColorFieldInfo-instance AttrInfo TextAttributesColorFieldInfo where-    type AttrAllowedOps TextAttributesColorFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint TextAttributesColorFieldInfo = (~) (Ptr Color)-    type AttrBaseTypeConstraint TextAttributesColorFieldInfo = (~) TextAttributes-    type AttrGetType TextAttributesColorFieldInfo = Maybe Color-    type AttrLabel TextAttributesColorFieldInfo = "color"-    attrGet _ = textAttributesReadColor-    attrSet _ = textAttributesWriteColor-    attrConstruct = undefined-    attrClear _ = textAttributesClearColor--textAttributesColor :: AttrLabelProxy "color"-textAttributesColor = AttrLabelProxy---textAttributesReadStartIndex :: MonadIO m => TextAttributes -> m Int32-textAttributesReadStartIndex s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 28) :: IO Int32-    return val--textAttributesWriteStartIndex :: MonadIO m => TextAttributes -> Int32 -> m ()-textAttributesWriteStartIndex s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 28) (val :: Int32)--data TextAttributesStartIndexFieldInfo-instance AttrInfo TextAttributesStartIndexFieldInfo where-    type AttrAllowedOps TextAttributesStartIndexFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint TextAttributesStartIndexFieldInfo = (~) Int32-    type AttrBaseTypeConstraint TextAttributesStartIndexFieldInfo = (~) TextAttributes-    type AttrGetType TextAttributesStartIndexFieldInfo = Int32-    type AttrLabel TextAttributesStartIndexFieldInfo = "start_index"-    attrGet _ = textAttributesReadStartIndex-    attrSet _ = textAttributesWriteStartIndex-    attrConstruct = undefined-    attrClear _ = undefined--textAttributesStartIndex :: AttrLabelProxy "startIndex"-textAttributesStartIndex = AttrLabelProxy---textAttributesReadEndIndex :: MonadIO m => TextAttributes -> m Int32-textAttributesReadEndIndex s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO Int32-    return val--textAttributesWriteEndIndex :: MonadIO m => TextAttributes -> Int32 -> m ()-textAttributesWriteEndIndex s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (val :: Int32)--data TextAttributesEndIndexFieldInfo-instance AttrInfo TextAttributesEndIndexFieldInfo where-    type AttrAllowedOps TextAttributesEndIndexFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint TextAttributesEndIndexFieldInfo = (~) Int32-    type AttrBaseTypeConstraint TextAttributesEndIndexFieldInfo = (~) TextAttributes-    type AttrGetType TextAttributesEndIndexFieldInfo = Int32-    type AttrLabel TextAttributesEndIndexFieldInfo = "end_index"-    attrGet _ = textAttributesReadEndIndex-    attrSet _ = textAttributesWriteEndIndex-    attrConstruct = undefined-    attrClear _ = undefined--textAttributesEndIndex :: AttrLabelProxy "endIndex"-textAttributesEndIndex = AttrLabelProxy----type instance AttributeList TextAttributes = TextAttributesAttributeList-type TextAttributesAttributeList = ('[ '("fontName", TextAttributesFontNameFieldInfo), '("fontSize", TextAttributesFontSizeFieldInfo), '("isUnderlined", TextAttributesIsUnderlinedFieldInfo), '("color", TextAttributesColorFieldInfo), '("startIndex", TextAttributesStartIndexFieldInfo), '("endIndex", TextAttributesEndIndexFieldInfo)] :: [(Symbol, *)])---- method TextAttributes::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "Poppler" "TextAttributes")--- throws : False--- Skip return : False--foreign import ccall "poppler_text_attributes_new" poppler_text_attributes_new :: -    IO (Ptr TextAttributes)---textAttributesNew ::-    (MonadIO m) =>-    m TextAttributes                        -- result-textAttributesNew  = liftIO $ do-    result <- poppler_text_attributes_new-    checkUnexpectedReturnNULL "poppler_text_attributes_new" result-    result' <- (wrapBoxed TextAttributes) result-    return result'---- method TextAttributes::copy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "TextAttributes")--- throws : False--- Skip return : False--foreign import ccall "poppler_text_attributes_copy" poppler_text_attributes_copy :: -    Ptr TextAttributes ->                   -- _obj : TInterface "Poppler" "TextAttributes"-    IO (Ptr TextAttributes)---textAttributesCopy ::-    (MonadIO m) =>-    TextAttributes                          -- _obj-    -> m TextAttributes                     -- result-textAttributesCopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- poppler_text_attributes_copy _obj'-    checkUnexpectedReturnNULL "poppler_text_attributes_copy" result-    result' <- (wrapBoxed TextAttributes) result-    touchManagedPtr _obj-    return result'--data TextAttributesCopyMethodInfo-instance (signature ~ (m TextAttributes), MonadIO m) => MethodInfo TextAttributesCopyMethodInfo TextAttributes signature where-    overloadedMethod _ = textAttributesCopy---- method TextAttributes::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_text_attributes_free" poppler_text_attributes_free :: -    Ptr TextAttributes ->                   -- _obj : TInterface "Poppler" "TextAttributes"-    IO ()---textAttributesFree ::-    (MonadIO m) =>-    TextAttributes                          -- _obj-    -> m ()                                 -- result-textAttributesFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    poppler_text_attributes_free _obj'-    touchManagedPtr _obj-    return ()--data TextAttributesFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo TextAttributesFreeMethodInfo TextAttributes signature where-    overloadedMethod _ = textAttributesFree--type family ResolveTextAttributesMethod (t :: Symbol) (o :: *) :: * where-    ResolveTextAttributesMethod "copy" o = TextAttributesCopyMethodInfo-    ResolveTextAttributesMethod "free" o = TextAttributesFreeMethodInfo-    ResolveTextAttributesMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveTextAttributesMethod t TextAttributes, MethodInfo info TextAttributes p) => IsLabelProxy t (TextAttributes -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveTextAttributesMethod t TextAttributes, MethodInfo info TextAttributes p) => IsLabel t (TextAttributes -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Poppler/Structs/TextAttributes.hs-boot 
@@ -1,13 +0,0 @@-module GI.Poppler.Structs.TextAttributes where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype TextAttributes = TextAttributes (ForeignPtr TextAttributes)-instance BoxedObject TextAttributes where-data TextAttributesCopyMethodInfo-data TextAttributesFreeMethodInfo
− GI/Poppler/Structs/TextSpan.hs 
@@ -1,333 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Poppler.Structs.TextSpan-    ( ---- * Exported types-    TextSpan(..)                            ,-    noTextSpan                              ,--- -- * Methods--- ** textSpanCopy-    TextSpanCopyMethodInfo                  ,-    textSpanCopy                            ,----- ** textSpanFree-    TextSpanFreeMethodInfo                  ,-    textSpanFree                            ,----- ** textSpanGetColor-    TextSpanGetColorMethodInfo              ,-    textSpanGetColor                        ,----- ** textSpanGetFontName-    TextSpanGetFontNameMethodInfo           ,-    textSpanGetFontName                     ,----- ** textSpanGetText-    TextSpanGetTextMethodInfo               ,-    textSpanGetText                         ,----- ** textSpanIsBoldFont-    TextSpanIsBoldFontMethodInfo            ,-    textSpanIsBoldFont                      ,----- ** textSpanIsFixedWidthFont-    TextSpanIsFixedWidthFontMethodInfo      ,-    textSpanIsFixedWidthFont                ,----- ** textSpanIsSerifFont-    TextSpanIsSerifFontMethodInfo           ,-    textSpanIsSerifFont                     ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks--newtype TextSpan = TextSpan (ForeignPtr TextSpan)-foreign import ccall "poppler_text_span_get_type" c_poppler_text_span_get_type :: -    IO GType--instance BoxedObject TextSpan where-    boxedType _ = c_poppler_text_span_get_type--noTextSpan :: Maybe TextSpan-noTextSpan = Nothing---type instance AttributeList TextSpan = TextSpanAttributeList-type TextSpanAttributeList = ('[ ] :: [(Symbol, *)])---- method TextSpan::copy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "TextSpan", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "TextSpan")--- throws : False--- Skip return : False--foreign import ccall "poppler_text_span_copy" poppler_text_span_copy :: -    Ptr TextSpan ->                         -- _obj : TInterface "Poppler" "TextSpan"-    IO (Ptr TextSpan)---textSpanCopy ::-    (MonadIO m) =>-    TextSpan                                -- _obj-    -> m TextSpan                           -- result-textSpanCopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- poppler_text_span_copy _obj'-    checkUnexpectedReturnNULL "poppler_text_span_copy" result-    result' <- (wrapBoxed TextSpan) result-    touchManagedPtr _obj-    return result'--data TextSpanCopyMethodInfo-instance (signature ~ (m TextSpan), MonadIO m) => MethodInfo TextSpanCopyMethodInfo TextSpan signature where-    overloadedMethod _ = textSpanCopy---- method TextSpan::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "TextSpan", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_text_span_free" poppler_text_span_free :: -    Ptr TextSpan ->                         -- _obj : TInterface "Poppler" "TextSpan"-    IO ()---textSpanFree ::-    (MonadIO m) =>-    TextSpan                                -- _obj-    -> m ()                                 -- result-textSpanFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    poppler_text_span_free _obj'-    touchManagedPtr _obj-    return ()--data TextSpanFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo TextSpanFreeMethodInfo TextSpan signature where-    overloadedMethod _ = textSpanFree---- method TextSpan::get_color--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "TextSpan", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Poppler" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_text_span_get_color" poppler_text_span_get_color :: -    Ptr TextSpan ->                         -- _obj : TInterface "Poppler" "TextSpan"-    Ptr Color ->                            -- color : TInterface "Poppler" "Color"-    IO ()---textSpanGetColor ::-    (MonadIO m) =>-    TextSpan                                -- _obj-    -> m (Color)                            -- result-textSpanGetColor _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    color <- callocBoxedBytes 6 :: IO (Ptr Color)-    poppler_text_span_get_color _obj' color-    color' <- (wrapBoxed Color) color-    touchManagedPtr _obj-    return color'--data TextSpanGetColorMethodInfo-instance (signature ~ (m (Color)), MonadIO m) => MethodInfo TextSpanGetColorMethodInfo TextSpan signature where-    overloadedMethod _ = textSpanGetColor---- method TextSpan::get_font_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "TextSpan", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "poppler_text_span_get_font_name" poppler_text_span_get_font_name :: -    Ptr TextSpan ->                         -- _obj : TInterface "Poppler" "TextSpan"-    IO CString---textSpanGetFontName ::-    (MonadIO m) =>-    TextSpan                                -- _obj-    -> m T.Text                             -- result-textSpanGetFontName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- poppler_text_span_get_font_name _obj'-    checkUnexpectedReturnNULL "poppler_text_span_get_font_name" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data TextSpanGetFontNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo TextSpanGetFontNameMethodInfo TextSpan signature where-    overloadedMethod _ = textSpanGetFontName---- method TextSpan::get_text--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "TextSpan", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "poppler_text_span_get_text" poppler_text_span_get_text :: -    Ptr TextSpan ->                         -- _obj : TInterface "Poppler" "TextSpan"-    IO CString---textSpanGetText ::-    (MonadIO m) =>-    TextSpan                                -- _obj-    -> m T.Text                             -- result-textSpanGetText _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- poppler_text_span_get_text _obj'-    checkUnexpectedReturnNULL "poppler_text_span_get_text" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data TextSpanGetTextMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo TextSpanGetTextMethodInfo TextSpan signature where-    overloadedMethod _ = textSpanGetText---- method TextSpan::is_bold_font--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "TextSpan", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "poppler_text_span_is_bold_font" poppler_text_span_is_bold_font :: -    Ptr TextSpan ->                         -- _obj : TInterface "Poppler" "TextSpan"-    IO CInt---textSpanIsBoldFont ::-    (MonadIO m) =>-    TextSpan                                -- _obj-    -> m Bool                               -- result-textSpanIsBoldFont _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- poppler_text_span_is_bold_font _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data TextSpanIsBoldFontMethodInfo-instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextSpanIsBoldFontMethodInfo TextSpan signature where-    overloadedMethod _ = textSpanIsBoldFont---- method TextSpan::is_fixed_width_font--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "TextSpan", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "poppler_text_span_is_fixed_width_font" poppler_text_span_is_fixed_width_font :: -    Ptr TextSpan ->                         -- _obj : TInterface "Poppler" "TextSpan"-    IO CInt---textSpanIsFixedWidthFont ::-    (MonadIO m) =>-    TextSpan                                -- _obj-    -> m Bool                               -- result-textSpanIsFixedWidthFont _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- poppler_text_span_is_fixed_width_font _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data TextSpanIsFixedWidthFontMethodInfo-instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextSpanIsFixedWidthFontMethodInfo TextSpan signature where-    overloadedMethod _ = textSpanIsFixedWidthFont---- method TextSpan::is_serif_font--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "TextSpan", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "poppler_text_span_is_serif_font" poppler_text_span_is_serif_font :: -    Ptr TextSpan ->                         -- _obj : TInterface "Poppler" "TextSpan"-    IO CInt---textSpanIsSerifFont ::-    (MonadIO m) =>-    TextSpan                                -- _obj-    -> m Bool                               -- result-textSpanIsSerifFont _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- poppler_text_span_is_serif_font _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data TextSpanIsSerifFontMethodInfo-instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextSpanIsSerifFontMethodInfo TextSpan signature where-    overloadedMethod _ = textSpanIsSerifFont--type family ResolveTextSpanMethod (t :: Symbol) (o :: *) :: * where-    ResolveTextSpanMethod "copy" o = TextSpanCopyMethodInfo-    ResolveTextSpanMethod "free" o = TextSpanFreeMethodInfo-    ResolveTextSpanMethod "isBoldFont" o = TextSpanIsBoldFontMethodInfo-    ResolveTextSpanMethod "isFixedWidthFont" o = TextSpanIsFixedWidthFontMethodInfo-    ResolveTextSpanMethod "isSerifFont" o = TextSpanIsSerifFontMethodInfo-    ResolveTextSpanMethod "getColor" o = TextSpanGetColorMethodInfo-    ResolveTextSpanMethod "getFontName" o = TextSpanGetFontNameMethodInfo-    ResolveTextSpanMethod "getText" o = TextSpanGetTextMethodInfo-    ResolveTextSpanMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveTextSpanMethod t TextSpan, MethodInfo info TextSpan p) => IsLabelProxy t (TextSpan -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveTextSpanMethod t TextSpan, MethodInfo info TextSpan p) => IsLabel t (TextSpan -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Poppler/Structs/TextSpan.hs-boot 
@@ -1,19 +0,0 @@-module GI.Poppler.Structs.TextSpan where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype TextSpan = TextSpan (ForeignPtr TextSpan)-instance BoxedObject TextSpan where-data TextSpanCopyMethodInfo-data TextSpanFreeMethodInfo-data TextSpanGetColorMethodInfo-data TextSpanGetFontNameMethodInfo-data TextSpanGetTextMethodInfo-data TextSpanIsBoldFontMethodInfo-data TextSpanIsFixedWidthFontMethodInfo-data TextSpanIsSerifFontMethodInfo
− GI/Poppler/Types.hs 
@@ -1,112 +0,0 @@-module GI.Poppler.Types-    (     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,-    module GI.Poppler.Structs.ActionAny     ,-    module GI.Poppler.Structs.ActionGotoDest,-    module GI.Poppler.Structs.ActionGotoRemote,-    module GI.Poppler.Structs.ActionJavascript,-    module GI.Poppler.Structs.ActionLaunch  ,-    module GI.Poppler.Structs.ActionLayer   ,-    module GI.Poppler.Structs.ActionMovie   ,-    module GI.Poppler.Structs.ActionNamed   ,-    module GI.Poppler.Structs.ActionOCGState,-    module GI.Poppler.Structs.ActionRendition,-    module GI.Poppler.Structs.ActionUri     ,-    module GI.Poppler.Structs.AnnotCalloutLine,-    module GI.Poppler.Structs.AnnotMapping  ,-    module GI.Poppler.Structs.Color         ,-    module GI.Poppler.Structs.Dest          ,-    module GI.Poppler.Structs.FontsIter     ,-    module GI.Poppler.Structs.FormFieldMapping,-    module GI.Poppler.Structs.ImageMapping  ,-    module GI.Poppler.Structs.IndexIter     ,-    module GI.Poppler.Structs.LayersIter    ,-    module GI.Poppler.Structs.LinkMapping   ,-    module GI.Poppler.Structs.PageTransition,-    module GI.Poppler.Structs.Point         ,-    module GI.Poppler.Structs.Quadrilateral ,-    module GI.Poppler.Structs.Rectangle     ,-    module GI.Poppler.Structs.StructureElementIter,-    module GI.Poppler.Structs.TextAttributes,-    module GI.Poppler.Structs.TextSpan      ,-    module GI.Poppler.Unions.Action         ,-    module GI.Poppler.Enums                 ,-    module GI.Poppler.Flags                 ,---    ) where---import {-# SOURCE #-} GI.Poppler.Objects.Annot-import {-# SOURCE #-} GI.Poppler.Objects.AnnotCircle-import {-# SOURCE #-} GI.Poppler.Objects.AnnotFileAttachment-import {-# SOURCE #-} GI.Poppler.Objects.AnnotFreeText-import {-# SOURCE #-} GI.Poppler.Objects.AnnotLine-import {-# SOURCE #-} GI.Poppler.Objects.AnnotMarkup-import {-# SOURCE #-} GI.Poppler.Objects.AnnotMovie-import {-# SOURCE #-} GI.Poppler.Objects.AnnotScreen-import {-# SOURCE #-} GI.Poppler.Objects.AnnotSquare-import {-# SOURCE #-} GI.Poppler.Objects.AnnotText-import {-# SOURCE #-} GI.Poppler.Objects.AnnotTextMarkup-import {-# SOURCE #-} GI.Poppler.Objects.Attachment-import {-# SOURCE #-} GI.Poppler.Objects.Document-import {-# SOURCE #-} GI.Poppler.Objects.FontInfo-import {-# SOURCE #-} GI.Poppler.Objects.FormField-import {-# SOURCE #-} GI.Poppler.Objects.Layer-import {-# SOURCE #-} GI.Poppler.Objects.Media-import {-# SOURCE #-} GI.Poppler.Objects.Movie-import {-# SOURCE #-} GI.Poppler.Objects.PSFile-import {-# SOURCE #-} GI.Poppler.Objects.Page-import {-# SOURCE #-} GI.Poppler.Objects.StructureElement-import {-# SOURCE #-} GI.Poppler.Structs.ActionAny-import {-# SOURCE #-} GI.Poppler.Structs.ActionGotoDest-import {-# SOURCE #-} GI.Poppler.Structs.ActionGotoRemote-import {-# SOURCE #-} GI.Poppler.Structs.ActionJavascript-import {-# SOURCE #-} GI.Poppler.Structs.ActionLaunch-import {-# SOURCE #-} GI.Poppler.Structs.ActionLayer-import {-# SOURCE #-} GI.Poppler.Structs.ActionMovie-import {-# SOURCE #-} GI.Poppler.Structs.ActionNamed-import {-# SOURCE #-} GI.Poppler.Structs.ActionOCGState-import {-# SOURCE #-} GI.Poppler.Structs.ActionRendition-import {-# SOURCE #-} GI.Poppler.Structs.ActionUri-import {-# SOURCE #-} GI.Poppler.Structs.AnnotCalloutLine-import {-# SOURCE #-} GI.Poppler.Structs.AnnotMapping-import {-# SOURCE #-} GI.Poppler.Structs.Color-import {-# SOURCE #-} GI.Poppler.Structs.Dest-import {-# SOURCE #-} GI.Poppler.Structs.FontsIter-import {-# SOURCE #-} GI.Poppler.Structs.FormFieldMapping-import {-# SOURCE #-} GI.Poppler.Structs.ImageMapping-import {-# SOURCE #-} GI.Poppler.Structs.IndexIter-import {-# SOURCE #-} GI.Poppler.Structs.LayersIter-import {-# SOURCE #-} GI.Poppler.Structs.LinkMapping-import {-# SOURCE #-} GI.Poppler.Structs.PageTransition-import {-# SOURCE #-} GI.Poppler.Structs.Point-import {-# SOURCE #-} GI.Poppler.Structs.Quadrilateral-import {-# SOURCE #-} GI.Poppler.Structs.Rectangle-import {-# SOURCE #-} GI.Poppler.Structs.StructureElementIter-import {-# SOURCE #-} GI.Poppler.Structs.TextAttributes-import {-# SOURCE #-} GI.Poppler.Structs.TextSpan-import {-# SOURCE #-} GI.Poppler.Unions.Action--import GI.Poppler.Enums-import GI.Poppler.Flags-
− GI/Poppler/Unions.hs 
@@ -1,27 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Poppler.Unions-    (     module GI.Poppler.Unions.Action         ,---    ) where--import GI.Poppler.Unions.Action--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks--
− GI/Poppler/Unions/Action.hs 
@@ -1,563 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Poppler.Unions.Action-    ( ---- * Exported types-    Action(..)                              ,-    newZeroAction                           ,-    noAction                                ,--- -- * Methods--- ** actionCopy-    ActionCopyMethodInfo                    ,-    actionCopy                              ,----- ** actionFree-    ActionFreeMethodInfo                    ,-    actionFree                              ,----- -- * Properties--- ** Any-    actionAny                               ,-    actionClearAny                          ,-    actionReadAny                           ,-    actionWriteAny                          ,----- ** GotoDest-    actionClearGotoDest                     ,-    actionGotoDest                          ,-    actionReadGotoDest                      ,-    actionWriteGotoDest                     ,----- ** GotoRemote-    actionClearGotoRemote                   ,-    actionGotoRemote                        ,-    actionReadGotoRemote                    ,-    actionWriteGotoRemote                   ,----- ** Javascript-    actionClearJavascript                   ,-    actionJavascript                        ,-    actionReadJavascript                    ,-    actionWriteJavascript                   ,----- ** Launch-    actionClearLaunch                       ,-    actionLaunch                            ,-    actionReadLaunch                        ,-    actionWriteLaunch                       ,----- ** Movie-    actionClearMovie                        ,-    actionMovie                             ,-    actionReadMovie                         ,-    actionWriteMovie                        ,----- ** Named-    actionClearNamed                        ,-    actionNamed                             ,-    actionReadNamed                         ,-    actionWriteNamed                        ,----- ** OcgState-    actionClearOcgState                     ,-    actionOcgState                          ,-    actionReadOcgState                      ,-    actionWriteOcgState                     ,----- ** Rendition-    actionClearRendition                    ,-    actionReadRendition                     ,-    actionRendition                         ,-    actionWriteRendition                    ,----- ** Type-    actionReadType                          ,-    actionType                              ,-    actionWriteType                         ,----- ** Uri-    actionClearUri                          ,-    actionReadUri                           ,-    actionUri                               ,-    actionWriteUri                          ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Poppler.Types-import GI.Poppler.Callbacks--newtype Action = Action (ForeignPtr Action)-foreign import ccall "poppler_action_get_type" c_poppler_action_get_type :: -    IO GType--instance BoxedObject Action where-    boxedType _ = c_poppler_action_get_type---- | Construct a `Action` struct initialized to zero.-newZeroAction :: MonadIO m => m Action-newZeroAction = liftIO $ callocBoxedBytes 32 >>= wrapBoxed Action--instance tag ~ 'AttrSet => Constructible Action tag where-    new _ attrs = do-        o <- newZeroAction-        GI.Attributes.set o attrs-        return o---noAction :: Maybe Action-noAction = Nothing--actionReadType :: MonadIO m => Action -> m ActionType-actionReadType s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--actionWriteType :: MonadIO m => Action -> ActionType -> m ()-actionWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 0) (val' :: CUInt)--data ActionTypeFieldInfo-instance AttrInfo ActionTypeFieldInfo where-    type AttrAllowedOps ActionTypeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint ActionTypeFieldInfo = (~) ActionType-    type AttrBaseTypeConstraint ActionTypeFieldInfo = (~) Action-    type AttrGetType ActionTypeFieldInfo = ActionType-    type AttrLabel ActionTypeFieldInfo = "type"-    attrGet _ = actionReadType-    attrSet _ = actionWriteType-    attrConstruct = undefined-    attrClear _ = undefined--actionType :: AttrLabelProxy "type"-actionType = AttrLabelProxy---actionReadAny :: MonadIO m => Action -> m (Maybe ActionAny)-actionReadAny s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr ActionAny)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newPtr ActionAny) val'-        return val''-    return result--actionWriteAny :: MonadIO m => Action -> Ptr ActionAny -> m ()-actionWriteAny s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr ActionAny)--actionClearAny :: MonadIO m => Action -> m ()-actionClearAny s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: Ptr ActionAny)--data ActionAnyFieldInfo-instance AttrInfo ActionAnyFieldInfo where-    type AttrAllowedOps ActionAnyFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ActionAnyFieldInfo = (~) (Ptr ActionAny)-    type AttrBaseTypeConstraint ActionAnyFieldInfo = (~) Action-    type AttrGetType ActionAnyFieldInfo = Maybe ActionAny-    type AttrLabel ActionAnyFieldInfo = "any"-    attrGet _ = actionReadAny-    attrSet _ = actionWriteAny-    attrConstruct = undefined-    attrClear _ = actionClearAny--actionAny :: AttrLabelProxy "any"-actionAny = AttrLabelProxy---actionReadGotoDest :: MonadIO m => Action -> m (Maybe ActionGotoDest)-actionReadGotoDest s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr ActionGotoDest)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newPtr ActionGotoDest) val'-        return val''-    return result--actionWriteGotoDest :: MonadIO m => Action -> Ptr ActionGotoDest -> m ()-actionWriteGotoDest s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr ActionGotoDest)--actionClearGotoDest :: MonadIO m => Action -> m ()-actionClearGotoDest s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: Ptr ActionGotoDest)--data ActionGotoDestFieldInfo-instance AttrInfo ActionGotoDestFieldInfo where-    type AttrAllowedOps ActionGotoDestFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ActionGotoDestFieldInfo = (~) (Ptr ActionGotoDest)-    type AttrBaseTypeConstraint ActionGotoDestFieldInfo = (~) Action-    type AttrGetType ActionGotoDestFieldInfo = Maybe ActionGotoDest-    type AttrLabel ActionGotoDestFieldInfo = "goto_dest"-    attrGet _ = actionReadGotoDest-    attrSet _ = actionWriteGotoDest-    attrConstruct = undefined-    attrClear _ = actionClearGotoDest--actionGotoDest :: AttrLabelProxy "gotoDest"-actionGotoDest = AttrLabelProxy---actionReadGotoRemote :: MonadIO m => Action -> m (Maybe ActionGotoRemote)-actionReadGotoRemote s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr ActionGotoRemote)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newPtr ActionGotoRemote) val'-        return val''-    return result--actionWriteGotoRemote :: MonadIO m => Action -> Ptr ActionGotoRemote -> m ()-actionWriteGotoRemote s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr ActionGotoRemote)--actionClearGotoRemote :: MonadIO m => Action -> m ()-actionClearGotoRemote s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: Ptr ActionGotoRemote)--data ActionGotoRemoteFieldInfo-instance AttrInfo ActionGotoRemoteFieldInfo where-    type AttrAllowedOps ActionGotoRemoteFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ActionGotoRemoteFieldInfo = (~) (Ptr ActionGotoRemote)-    type AttrBaseTypeConstraint ActionGotoRemoteFieldInfo = (~) Action-    type AttrGetType ActionGotoRemoteFieldInfo = Maybe ActionGotoRemote-    type AttrLabel ActionGotoRemoteFieldInfo = "goto_remote"-    attrGet _ = actionReadGotoRemote-    attrSet _ = actionWriteGotoRemote-    attrConstruct = undefined-    attrClear _ = actionClearGotoRemote--actionGotoRemote :: AttrLabelProxy "gotoRemote"-actionGotoRemote = AttrLabelProxy---actionReadLaunch :: MonadIO m => Action -> m (Maybe ActionLaunch)-actionReadLaunch s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr ActionLaunch)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newPtr ActionLaunch) val'-        return val''-    return result--actionWriteLaunch :: MonadIO m => Action -> Ptr ActionLaunch -> m ()-actionWriteLaunch s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr ActionLaunch)--actionClearLaunch :: MonadIO m => Action -> m ()-actionClearLaunch s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: Ptr ActionLaunch)--data ActionLaunchFieldInfo-instance AttrInfo ActionLaunchFieldInfo where-    type AttrAllowedOps ActionLaunchFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ActionLaunchFieldInfo = (~) (Ptr ActionLaunch)-    type AttrBaseTypeConstraint ActionLaunchFieldInfo = (~) Action-    type AttrGetType ActionLaunchFieldInfo = Maybe ActionLaunch-    type AttrLabel ActionLaunchFieldInfo = "launch"-    attrGet _ = actionReadLaunch-    attrSet _ = actionWriteLaunch-    attrConstruct = undefined-    attrClear _ = actionClearLaunch--actionLaunch :: AttrLabelProxy "launch"-actionLaunch = AttrLabelProxy---actionReadUri :: MonadIO m => Action -> m (Maybe ActionUri)-actionReadUri s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr ActionUri)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newPtr ActionUri) val'-        return val''-    return result--actionWriteUri :: MonadIO m => Action -> Ptr ActionUri -> m ()-actionWriteUri s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr ActionUri)--actionClearUri :: MonadIO m => Action -> m ()-actionClearUri s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: Ptr ActionUri)--data ActionUriFieldInfo-instance AttrInfo ActionUriFieldInfo where-    type AttrAllowedOps ActionUriFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ActionUriFieldInfo = (~) (Ptr ActionUri)-    type AttrBaseTypeConstraint ActionUriFieldInfo = (~) Action-    type AttrGetType ActionUriFieldInfo = Maybe ActionUri-    type AttrLabel ActionUriFieldInfo = "uri"-    attrGet _ = actionReadUri-    attrSet _ = actionWriteUri-    attrConstruct = undefined-    attrClear _ = actionClearUri--actionUri :: AttrLabelProxy "uri"-actionUri = AttrLabelProxy---actionReadNamed :: MonadIO m => Action -> m (Maybe ActionNamed)-actionReadNamed s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr ActionNamed)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newPtr ActionNamed) val'-        return val''-    return result--actionWriteNamed :: MonadIO m => Action -> Ptr ActionNamed -> m ()-actionWriteNamed s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr ActionNamed)--actionClearNamed :: MonadIO m => Action -> m ()-actionClearNamed s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: Ptr ActionNamed)--data ActionNamedFieldInfo-instance AttrInfo ActionNamedFieldInfo where-    type AttrAllowedOps ActionNamedFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ActionNamedFieldInfo = (~) (Ptr ActionNamed)-    type AttrBaseTypeConstraint ActionNamedFieldInfo = (~) Action-    type AttrGetType ActionNamedFieldInfo = Maybe ActionNamed-    type AttrLabel ActionNamedFieldInfo = "named"-    attrGet _ = actionReadNamed-    attrSet _ = actionWriteNamed-    attrConstruct = undefined-    attrClear _ = actionClearNamed--actionNamed :: AttrLabelProxy "named"-actionNamed = AttrLabelProxy---actionReadMovie :: MonadIO m => Action -> m (Maybe ActionMovie)-actionReadMovie s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr ActionMovie)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newPtr ActionMovie) val'-        return val''-    return result--actionWriteMovie :: MonadIO m => Action -> Ptr ActionMovie -> m ()-actionWriteMovie s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr ActionMovie)--actionClearMovie :: MonadIO m => Action -> m ()-actionClearMovie s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: Ptr ActionMovie)--data ActionMovieFieldInfo-instance AttrInfo ActionMovieFieldInfo where-    type AttrAllowedOps ActionMovieFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ActionMovieFieldInfo = (~) (Ptr ActionMovie)-    type AttrBaseTypeConstraint ActionMovieFieldInfo = (~) Action-    type AttrGetType ActionMovieFieldInfo = Maybe ActionMovie-    type AttrLabel ActionMovieFieldInfo = "movie"-    attrGet _ = actionReadMovie-    attrSet _ = actionWriteMovie-    attrConstruct = undefined-    attrClear _ = actionClearMovie--actionMovie :: AttrLabelProxy "movie"-actionMovie = AttrLabelProxy---actionReadRendition :: MonadIO m => Action -> m (Maybe ActionRendition)-actionReadRendition s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr ActionRendition)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newPtr ActionRendition) val'-        return val''-    return result--actionWriteRendition :: MonadIO m => Action -> Ptr ActionRendition -> m ()-actionWriteRendition s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr ActionRendition)--actionClearRendition :: MonadIO m => Action -> m ()-actionClearRendition s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: Ptr ActionRendition)--data ActionRenditionFieldInfo-instance AttrInfo ActionRenditionFieldInfo where-    type AttrAllowedOps ActionRenditionFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ActionRenditionFieldInfo = (~) (Ptr ActionRendition)-    type AttrBaseTypeConstraint ActionRenditionFieldInfo = (~) Action-    type AttrGetType ActionRenditionFieldInfo = Maybe ActionRendition-    type AttrLabel ActionRenditionFieldInfo = "rendition"-    attrGet _ = actionReadRendition-    attrSet _ = actionWriteRendition-    attrConstruct = undefined-    attrClear _ = actionClearRendition--actionRendition :: AttrLabelProxy "rendition"-actionRendition = AttrLabelProxy---actionReadOcgState :: MonadIO m => Action -> m (Maybe ActionOCGState)-actionReadOcgState s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr ActionOCGState)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newPtr ActionOCGState) val'-        return val''-    return result--actionWriteOcgState :: MonadIO m => Action -> Ptr ActionOCGState -> m ()-actionWriteOcgState s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr ActionOCGState)--actionClearOcgState :: MonadIO m => Action -> m ()-actionClearOcgState s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: Ptr ActionOCGState)--data ActionOcgStateFieldInfo-instance AttrInfo ActionOcgStateFieldInfo where-    type AttrAllowedOps ActionOcgStateFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ActionOcgStateFieldInfo = (~) (Ptr ActionOCGState)-    type AttrBaseTypeConstraint ActionOcgStateFieldInfo = (~) Action-    type AttrGetType ActionOcgStateFieldInfo = Maybe ActionOCGState-    type AttrLabel ActionOcgStateFieldInfo = "ocg_state"-    attrGet _ = actionReadOcgState-    attrSet _ = actionWriteOcgState-    attrConstruct = undefined-    attrClear _ = actionClearOcgState--actionOcgState :: AttrLabelProxy "ocgState"-actionOcgState = AttrLabelProxy---actionReadJavascript :: MonadIO m => Action -> m (Maybe ActionJavascript)-actionReadJavascript s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr ActionJavascript)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newPtr ActionJavascript) val'-        return val''-    return result--actionWriteJavascript :: MonadIO m => Action -> Ptr ActionJavascript -> m ()-actionWriteJavascript s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr ActionJavascript)--actionClearJavascript :: MonadIO m => Action -> m ()-actionClearJavascript s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: Ptr ActionJavascript)--data ActionJavascriptFieldInfo-instance AttrInfo ActionJavascriptFieldInfo where-    type AttrAllowedOps ActionJavascriptFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ActionJavascriptFieldInfo = (~) (Ptr ActionJavascript)-    type AttrBaseTypeConstraint ActionJavascriptFieldInfo = (~) Action-    type AttrGetType ActionJavascriptFieldInfo = Maybe ActionJavascript-    type AttrLabel ActionJavascriptFieldInfo = "javascript"-    attrGet _ = actionReadJavascript-    attrSet _ = actionWriteJavascript-    attrConstruct = undefined-    attrClear _ = actionClearJavascript--actionJavascript :: AttrLabelProxy "javascript"-actionJavascript = AttrLabelProxy----type instance AttributeList Action = ActionAttributeList-type ActionAttributeList = ('[ '("type", ActionTypeFieldInfo), '("any", ActionAnyFieldInfo), '("gotoDest", ActionGotoDestFieldInfo), '("gotoRemote", ActionGotoRemoteFieldInfo), '("launch", ActionLaunchFieldInfo), '("uri", ActionUriFieldInfo), '("named", ActionNamedFieldInfo), '("movie", ActionMovieFieldInfo), '("rendition", ActionRenditionFieldInfo), '("ocgState", ActionOcgStateFieldInfo), '("javascript", ActionJavascriptFieldInfo)] :: [(Symbol, *)])---- method Action::copy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Poppler" "Action")--- throws : False--- Skip return : False--foreign import ccall "poppler_action_copy" poppler_action_copy :: -    Ptr Action ->                           -- _obj : TInterface "Poppler" "Action"-    IO (Ptr Action)---actionCopy ::-    (MonadIO m) =>-    Action                                  -- _obj-    -> m Action                             -- result-actionCopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- poppler_action_copy _obj'-    checkUnexpectedReturnNULL "poppler_action_copy" result-    result' <- (wrapBoxed Action) result-    touchManagedPtr _obj-    return result'--data ActionCopyMethodInfo-instance (signature ~ (m Action), MonadIO m) => MethodInfo ActionCopyMethodInfo Action signature where-    overloadedMethod _ = actionCopy---- method Action::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "poppler_action_free" poppler_action_free :: -    Ptr Action ->                           -- _obj : TInterface "Poppler" "Action"-    IO ()---actionFree ::-    (MonadIO m) =>-    Action                                  -- _obj-    -> m ()                                 -- result-actionFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    poppler_action_free _obj'-    touchManagedPtr _obj-    return ()--data ActionFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo ActionFreeMethodInfo Action signature where-    overloadedMethod _ = actionFree--type family ResolveActionMethod (t :: Symbol) (o :: *) :: * where-    ResolveActionMethod "copy" o = ActionCopyMethodInfo-    ResolveActionMethod "free" o = ActionFreeMethodInfo-    ResolveActionMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveActionMethod t Action, MethodInfo info Action p) => IsLabelProxy t (Action -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveActionMethod t Action, MethodInfo info Action p) => IsLabel t (Action -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Poppler/Unions/Action.hs-boot 
@@ -1,13 +0,0 @@-module GI.Poppler.Unions.Action where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Action = Action (ForeignPtr Action)-instance BoxedObject Action where-data ActionCopyMethodInfo-data ActionFreeMethodInfo
Setup.hs view
@@ -1,3 +1,12 @@-#!/usr/bin/env runhaskell-import Distribution.Simple-main = defaultMain+{-# LANGUAGE OverloadedStrings #-}++import Distribution.Simple (defaultMainWithHooks)+import Data.GI.CodeGen.CabalHooks (simpleHaskellGIHooks)++main = defaultMainWithHooks (simpleHaskellGIHooks name version verbose+                             overridesFile outputDir)+    where name = "Poppler"+          version = "0.18"+          verbose = False+          overridesFile = Nothing+          outputDir = Nothing
gi-poppler.cabal view
@@ -1,6 +1,5 @@--- Autogenerated, do not edit. name:               gi-poppler-version:            0.0.34.15+version:            0.18.1 synopsis:           Poppler bindings description:        Bindings for Poppler, autogenerated by haskell-gi. homepage:           https://github.com/haskell-gi/haskell-gi@@ -9,82 +8,28 @@ author:             Will Thompson, Iñaki García Etxebarria and Jonas Platte maintainer:         Iñaki García Etxebarria (garetxe@gmail.com) category:           Bindings-build-type:         Simple-cabal-version:      >=1.10+build-type:         Custom+cabal-version:      >= 1.24 +custom-setup+  setup-depends: base >= 4.7,+                 Cabal >= 1.24,+                 haskell-gi >= 0.15+ library     default-language:   Haskell2010     default-extensions: NoImplicitPrelude, ScopedTypeVariables, CPP, OverloadedStrings, NegativeLiterals, ConstraintKinds, TypeFamilies, MultiParamTypeClasses, KindSignatures, FlexibleInstances, UndecidableInstances, DataKinds, FlexibleContexts     other-extensions:   PatternSynonyms ViewPatterns     ghc-options:        -fno-warn-unused-imports -fno-warn-warnings-deprecations-    exposed-modules:    GI.Poppler.Types-                        GI.Poppler-                        GI.Poppler.Callbacks-                        GI.Poppler.Constants-                        GI.Poppler.Enums-                        GI.Poppler.Flags-                        GI.Poppler.Functions-                        GI.Poppler.Objects-                        GI.Poppler.Objects.Annot-                        GI.Poppler.Objects.AnnotCircle-                        GI.Poppler.Objects.AnnotFileAttachment-                        GI.Poppler.Objects.AnnotFreeText-                        GI.Poppler.Objects.AnnotLine-                        GI.Poppler.Objects.AnnotMarkup-                        GI.Poppler.Objects.AnnotMovie-                        GI.Poppler.Objects.AnnotScreen-                        GI.Poppler.Objects.AnnotSquare-                        GI.Poppler.Objects.AnnotText-                        GI.Poppler.Objects.AnnotTextMarkup-                        GI.Poppler.Objects.Attachment-                        GI.Poppler.Objects.Document-                        GI.Poppler.Objects.FontInfo-                        GI.Poppler.Objects.FormField-                        GI.Poppler.Objects.Layer-                        GI.Poppler.Objects.Media-                        GI.Poppler.Objects.Movie-                        GI.Poppler.Objects.PSFile-                        GI.Poppler.Objects.Page-                        GI.Poppler.Objects.StructureElement-                        GI.Poppler.Structs-                        GI.Poppler.Structs.ActionAny-                        GI.Poppler.Structs.ActionGotoDest-                        GI.Poppler.Structs.ActionGotoRemote-                        GI.Poppler.Structs.ActionJavascript-                        GI.Poppler.Structs.ActionLaunch-                        GI.Poppler.Structs.ActionLayer-                        GI.Poppler.Structs.ActionMovie-                        GI.Poppler.Structs.ActionNamed-                        GI.Poppler.Structs.ActionOCGState-                        GI.Poppler.Structs.ActionRendition-                        GI.Poppler.Structs.ActionUri-                        GI.Poppler.Structs.AnnotCalloutLine-                        GI.Poppler.Structs.AnnotMapping-                        GI.Poppler.Structs.Color-                        GI.Poppler.Structs.Dest-                        GI.Poppler.Structs.FontsIter-                        GI.Poppler.Structs.FormFieldMapping-                        GI.Poppler.Structs.ImageMapping-                        GI.Poppler.Structs.IndexIter-                        GI.Poppler.Structs.LayersIter-                        GI.Poppler.Structs.LinkMapping-                        GI.Poppler.Structs.PageTransition-                        GI.Poppler.Structs.Point-                        GI.Poppler.Structs.Quadrilateral-                        GI.Poppler.Structs.Rectangle-                        GI.Poppler.Structs.StructureElementIter-                        GI.Poppler.Structs.TextAttributes-                        GI.Poppler.Structs.TextSpan-                        GI.Poppler.Unions-                        GI.Poppler.Unions.Action-    pkgconfig-depends:  poppler-glib >= 0.34++    pkgconfig-depends:  poppler-glib >= 0.18 && < 1     build-depends: base >= 4.7 && <5,         haskell-gi-base >= 0.15 && < 1,-        gi-glib >= 0.2.46.15 && < 0.2.47,-        gi-gobject >= 0.2.46.15 && < 0.2.47,-        gi-gio >= 0.2.46.15 && < 0.2.47,-        gi-cairo >= 0.1.14.15 && < 0.1.15,+        gi-glib == 2.0.*,+        gi-gobject == 2.0.*,+        gi-gio == 2.0.*,+        gi-cairo == 1.0.*,         bytestring >= 0.10,         containers >= 0.5,         text >= 1.0,-        transformers >= 0.3+        transformers >= 0.5