{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Ggit.Objects.DiffFormatEmailOptions
(
DiffFormatEmailOptions(..) ,
IsDiffFormatEmailOptions ,
toDiffFormatEmailOptions ,
noDiffFormatEmailOptions ,
#if defined(ENABLE_OVERLOADING)
ResolveDiffFormatEmailOptionsMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
DiffFormatEmailOptionsGetAuthorMethodInfo,
#endif
diffFormatEmailOptionsGetAuthor ,
#if defined(ENABLE_OVERLOADING)
DiffFormatEmailOptionsGetBodyMethodInfo ,
#endif
diffFormatEmailOptionsGetBody ,
#if defined(ENABLE_OVERLOADING)
DiffFormatEmailOptionsGetFlagsMethodInfo,
#endif
diffFormatEmailOptionsGetFlags ,
#if defined(ENABLE_OVERLOADING)
DiffFormatEmailOptionsGetIdMethodInfo ,
#endif
diffFormatEmailOptionsGetId ,
#if defined(ENABLE_OVERLOADING)
DiffFormatEmailOptionsGetPatchNumberMethodInfo,
#endif
diffFormatEmailOptionsGetPatchNumber ,
#if defined(ENABLE_OVERLOADING)
DiffFormatEmailOptionsGetSummaryMethodInfo,
#endif
diffFormatEmailOptionsGetSummary ,
#if defined(ENABLE_OVERLOADING)
DiffFormatEmailOptionsGetTotalPatchesMethodInfo,
#endif
diffFormatEmailOptionsGetTotalPatches ,
diffFormatEmailOptionsNew ,
#if defined(ENABLE_OVERLOADING)
DiffFormatEmailOptionsSetAuthorMethodInfo,
#endif
diffFormatEmailOptionsSetAuthor ,
#if defined(ENABLE_OVERLOADING)
DiffFormatEmailOptionsSetBodyMethodInfo ,
#endif
diffFormatEmailOptionsSetBody ,
#if defined(ENABLE_OVERLOADING)
DiffFormatEmailOptionsSetFlagsMethodInfo,
#endif
diffFormatEmailOptionsSetFlags ,
#if defined(ENABLE_OVERLOADING)
DiffFormatEmailOptionsSetIdMethodInfo ,
#endif
diffFormatEmailOptionsSetId ,
#if defined(ENABLE_OVERLOADING)
DiffFormatEmailOptionsSetPatchNumberMethodInfo,
#endif
diffFormatEmailOptionsSetPatchNumber ,
#if defined(ENABLE_OVERLOADING)
DiffFormatEmailOptionsSetSummaryMethodInfo,
#endif
diffFormatEmailOptionsSetSummary ,
#if defined(ENABLE_OVERLOADING)
DiffFormatEmailOptionsSetTotalPatchesMethodInfo,
#endif
diffFormatEmailOptionsSetTotalPatches ,
#if defined(ENABLE_OVERLOADING)
DiffFormatEmailOptionsAuthorPropertyInfo,
#endif
clearDiffFormatEmailOptionsAuthor ,
constructDiffFormatEmailOptionsAuthor ,
#if defined(ENABLE_OVERLOADING)
diffFormatEmailOptionsAuthor ,
#endif
getDiffFormatEmailOptionsAuthor ,
setDiffFormatEmailOptionsAuthor ,
#if defined(ENABLE_OVERLOADING)
DiffFormatEmailOptionsBodyPropertyInfo ,
#endif
clearDiffFormatEmailOptionsBody ,
constructDiffFormatEmailOptionsBody ,
#if defined(ENABLE_OVERLOADING)
diffFormatEmailOptionsBody ,
#endif
getDiffFormatEmailOptionsBody ,
setDiffFormatEmailOptionsBody ,
#if defined(ENABLE_OVERLOADING)
DiffFormatEmailOptionsFlagsPropertyInfo ,
#endif
constructDiffFormatEmailOptionsFlags ,
#if defined(ENABLE_OVERLOADING)
diffFormatEmailOptionsFlags ,
#endif
getDiffFormatEmailOptionsFlags ,
setDiffFormatEmailOptionsFlags ,
#if defined(ENABLE_OVERLOADING)
DiffFormatEmailOptionsIdPropertyInfo ,
#endif
clearDiffFormatEmailOptionsId ,
constructDiffFormatEmailOptionsId ,
#if defined(ENABLE_OVERLOADING)
diffFormatEmailOptionsId ,
#endif
getDiffFormatEmailOptionsId ,
setDiffFormatEmailOptionsId ,
#if defined(ENABLE_OVERLOADING)
DiffFormatEmailOptionsPatchNumberPropertyInfo,
#endif
constructDiffFormatEmailOptionsPatchNumber,
#if defined(ENABLE_OVERLOADING)
diffFormatEmailOptionsPatchNumber ,
#endif
getDiffFormatEmailOptionsPatchNumber ,
setDiffFormatEmailOptionsPatchNumber ,
#if defined(ENABLE_OVERLOADING)
DiffFormatEmailOptionsSummaryPropertyInfo,
#endif
clearDiffFormatEmailOptionsSummary ,
constructDiffFormatEmailOptionsSummary ,
#if defined(ENABLE_OVERLOADING)
diffFormatEmailOptionsSummary ,
#endif
getDiffFormatEmailOptionsSummary ,
setDiffFormatEmailOptionsSummary ,
#if defined(ENABLE_OVERLOADING)
DiffFormatEmailOptionsTotalPatchesPropertyInfo,
#endif
constructDiffFormatEmailOptionsTotalPatches,
#if defined(ENABLE_OVERLOADING)
diffFormatEmailOptionsTotalPatches ,
#endif
getDiffFormatEmailOptionsTotalPatches ,
setDiffFormatEmailOptionsTotalPatches ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Ggit.Flags as Ggit.Flags
import {-# SOURCE #-} qualified GI.Ggit.Objects.Signature as Ggit.Signature
import {-# SOURCE #-} qualified GI.Ggit.Structs.OId as Ggit.OId
newtype DiffFormatEmailOptions = DiffFormatEmailOptions (ManagedPtr DiffFormatEmailOptions)
deriving (Eq)
foreign import ccall "ggit_diff_format_email_options_get_type"
c_ggit_diff_format_email_options_get_type :: IO GType
instance GObject DiffFormatEmailOptions where
gobjectType = c_ggit_diff_format_email_options_get_type
instance B.GValue.IsGValue DiffFormatEmailOptions where
toGValue o = do
gtype <- c_ggit_diff_format_email_options_get_type
B.ManagedPtr.withManagedPtr o (B.GValue.buildGValue gtype B.GValue.set_object)
fromGValue gv = do
ptr <- B.GValue.get_object gv :: IO (Ptr DiffFormatEmailOptions)
B.ManagedPtr.newObject DiffFormatEmailOptions ptr
class (GObject o, O.IsDescendantOf DiffFormatEmailOptions o) => IsDiffFormatEmailOptions o
instance (GObject o, O.IsDescendantOf DiffFormatEmailOptions o) => IsDiffFormatEmailOptions o
instance O.HasParentTypes DiffFormatEmailOptions
type instance O.ParentTypes DiffFormatEmailOptions = '[GObject.Object.Object]
toDiffFormatEmailOptions :: (MonadIO m, IsDiffFormatEmailOptions o) => o -> m DiffFormatEmailOptions
toDiffFormatEmailOptions = liftIO . unsafeCastTo DiffFormatEmailOptions
noDiffFormatEmailOptions :: Maybe DiffFormatEmailOptions
noDiffFormatEmailOptions = Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveDiffFormatEmailOptionsMethod (t :: Symbol) (o :: *) :: * where
ResolveDiffFormatEmailOptionsMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDiffFormatEmailOptionsMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDiffFormatEmailOptionsMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDiffFormatEmailOptionsMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDiffFormatEmailOptionsMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveDiffFormatEmailOptionsMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDiffFormatEmailOptionsMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDiffFormatEmailOptionsMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDiffFormatEmailOptionsMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDiffFormatEmailOptionsMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDiffFormatEmailOptionsMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDiffFormatEmailOptionsMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDiffFormatEmailOptionsMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDiffFormatEmailOptionsMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDiffFormatEmailOptionsMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDiffFormatEmailOptionsMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDiffFormatEmailOptionsMethod "getAuthor" o = DiffFormatEmailOptionsGetAuthorMethodInfo
ResolveDiffFormatEmailOptionsMethod "getBody" o = DiffFormatEmailOptionsGetBodyMethodInfo
ResolveDiffFormatEmailOptionsMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDiffFormatEmailOptionsMethod "getFlags" o = DiffFormatEmailOptionsGetFlagsMethodInfo
ResolveDiffFormatEmailOptionsMethod "getId" o = DiffFormatEmailOptionsGetIdMethodInfo
ResolveDiffFormatEmailOptionsMethod "getPatchNumber" o = DiffFormatEmailOptionsGetPatchNumberMethodInfo
ResolveDiffFormatEmailOptionsMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDiffFormatEmailOptionsMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDiffFormatEmailOptionsMethod "getSummary" o = DiffFormatEmailOptionsGetSummaryMethodInfo
ResolveDiffFormatEmailOptionsMethod "getTotalPatches" o = DiffFormatEmailOptionsGetTotalPatchesMethodInfo
ResolveDiffFormatEmailOptionsMethod "setAuthor" o = DiffFormatEmailOptionsSetAuthorMethodInfo
ResolveDiffFormatEmailOptionsMethod "setBody" o = DiffFormatEmailOptionsSetBodyMethodInfo
ResolveDiffFormatEmailOptionsMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDiffFormatEmailOptionsMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveDiffFormatEmailOptionsMethod "setFlags" o = DiffFormatEmailOptionsSetFlagsMethodInfo
ResolveDiffFormatEmailOptionsMethod "setId" o = DiffFormatEmailOptionsSetIdMethodInfo
ResolveDiffFormatEmailOptionsMethod "setPatchNumber" o = DiffFormatEmailOptionsSetPatchNumberMethodInfo
ResolveDiffFormatEmailOptionsMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDiffFormatEmailOptionsMethod "setSummary" o = DiffFormatEmailOptionsSetSummaryMethodInfo
ResolveDiffFormatEmailOptionsMethod "setTotalPatches" o = DiffFormatEmailOptionsSetTotalPatchesMethodInfo
ResolveDiffFormatEmailOptionsMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDiffFormatEmailOptionsMethod t DiffFormatEmailOptions, O.MethodInfo info DiffFormatEmailOptions p) => OL.IsLabel t (DiffFormatEmailOptions -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
getDiffFormatEmailOptionsAuthor :: (MonadIO m, IsDiffFormatEmailOptions o) => o -> m (Maybe Ggit.Signature.Signature)
getDiffFormatEmailOptionsAuthor obj = liftIO $ B.Properties.getObjectPropertyObject obj "author" Ggit.Signature.Signature
setDiffFormatEmailOptionsAuthor :: (MonadIO m, IsDiffFormatEmailOptions o, Ggit.Signature.IsSignature a) => o -> a -> m ()
setDiffFormatEmailOptionsAuthor obj val = liftIO $ B.Properties.setObjectPropertyObject obj "author" (Just val)
constructDiffFormatEmailOptionsAuthor :: (IsDiffFormatEmailOptions o, Ggit.Signature.IsSignature a) => a -> IO (GValueConstruct o)
constructDiffFormatEmailOptionsAuthor val = B.Properties.constructObjectPropertyObject "author" (Just val)
clearDiffFormatEmailOptionsAuthor :: (MonadIO m, IsDiffFormatEmailOptions o) => o -> m ()
clearDiffFormatEmailOptionsAuthor obj = liftIO $ B.Properties.setObjectPropertyObject obj "author" (Nothing :: Maybe Ggit.Signature.Signature)
#if defined(ENABLE_OVERLOADING)
data DiffFormatEmailOptionsAuthorPropertyInfo
instance AttrInfo DiffFormatEmailOptionsAuthorPropertyInfo where
type AttrAllowedOps DiffFormatEmailOptionsAuthorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DiffFormatEmailOptionsAuthorPropertyInfo = IsDiffFormatEmailOptions
type AttrSetTypeConstraint DiffFormatEmailOptionsAuthorPropertyInfo = Ggit.Signature.IsSignature
type AttrTransferTypeConstraint DiffFormatEmailOptionsAuthorPropertyInfo = Ggit.Signature.IsSignature
type AttrTransferType DiffFormatEmailOptionsAuthorPropertyInfo = Ggit.Signature.Signature
type AttrGetType DiffFormatEmailOptionsAuthorPropertyInfo = (Maybe Ggit.Signature.Signature)
type AttrLabel DiffFormatEmailOptionsAuthorPropertyInfo = "author"
type AttrOrigin DiffFormatEmailOptionsAuthorPropertyInfo = DiffFormatEmailOptions
attrGet = getDiffFormatEmailOptionsAuthor
attrSet = setDiffFormatEmailOptionsAuthor
attrTransfer _ v = do
unsafeCastTo Ggit.Signature.Signature v
attrConstruct = constructDiffFormatEmailOptionsAuthor
attrClear = clearDiffFormatEmailOptionsAuthor
#endif
getDiffFormatEmailOptionsBody :: (MonadIO m, IsDiffFormatEmailOptions o) => o -> m (Maybe T.Text)
getDiffFormatEmailOptionsBody obj = liftIO $ B.Properties.getObjectPropertyString obj "body"
setDiffFormatEmailOptionsBody :: (MonadIO m, IsDiffFormatEmailOptions o) => o -> T.Text -> m ()
setDiffFormatEmailOptionsBody obj val = liftIO $ B.Properties.setObjectPropertyString obj "body" (Just val)
constructDiffFormatEmailOptionsBody :: (IsDiffFormatEmailOptions o) => T.Text -> IO (GValueConstruct o)
constructDiffFormatEmailOptionsBody val = B.Properties.constructObjectPropertyString "body" (Just val)
clearDiffFormatEmailOptionsBody :: (MonadIO m, IsDiffFormatEmailOptions o) => o -> m ()
clearDiffFormatEmailOptionsBody obj = liftIO $ B.Properties.setObjectPropertyString obj "body" (Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data DiffFormatEmailOptionsBodyPropertyInfo
instance AttrInfo DiffFormatEmailOptionsBodyPropertyInfo where
type AttrAllowedOps DiffFormatEmailOptionsBodyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DiffFormatEmailOptionsBodyPropertyInfo = IsDiffFormatEmailOptions
type AttrSetTypeConstraint DiffFormatEmailOptionsBodyPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint DiffFormatEmailOptionsBodyPropertyInfo = (~) T.Text
type AttrTransferType DiffFormatEmailOptionsBodyPropertyInfo = T.Text
type AttrGetType DiffFormatEmailOptionsBodyPropertyInfo = (Maybe T.Text)
type AttrLabel DiffFormatEmailOptionsBodyPropertyInfo = "body"
type AttrOrigin DiffFormatEmailOptionsBodyPropertyInfo = DiffFormatEmailOptions
attrGet = getDiffFormatEmailOptionsBody
attrSet = setDiffFormatEmailOptionsBody
attrTransfer _ v = do
return v
attrConstruct = constructDiffFormatEmailOptionsBody
attrClear = clearDiffFormatEmailOptionsBody
#endif
getDiffFormatEmailOptionsFlags :: (MonadIO m, IsDiffFormatEmailOptions o) => o -> m [Ggit.Flags.DiffFormatEmailFlags]
getDiffFormatEmailOptionsFlags obj = liftIO $ B.Properties.getObjectPropertyFlags obj "flags"
setDiffFormatEmailOptionsFlags :: (MonadIO m, IsDiffFormatEmailOptions o) => o -> [Ggit.Flags.DiffFormatEmailFlags] -> m ()
setDiffFormatEmailOptionsFlags obj val = liftIO $ B.Properties.setObjectPropertyFlags obj "flags" val
constructDiffFormatEmailOptionsFlags :: (IsDiffFormatEmailOptions o) => [Ggit.Flags.DiffFormatEmailFlags] -> IO (GValueConstruct o)
constructDiffFormatEmailOptionsFlags val = B.Properties.constructObjectPropertyFlags "flags" val
#if defined(ENABLE_OVERLOADING)
data DiffFormatEmailOptionsFlagsPropertyInfo
instance AttrInfo DiffFormatEmailOptionsFlagsPropertyInfo where
type AttrAllowedOps DiffFormatEmailOptionsFlagsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DiffFormatEmailOptionsFlagsPropertyInfo = IsDiffFormatEmailOptions
type AttrSetTypeConstraint DiffFormatEmailOptionsFlagsPropertyInfo = (~) [Ggit.Flags.DiffFormatEmailFlags]
type AttrTransferTypeConstraint DiffFormatEmailOptionsFlagsPropertyInfo = (~) [Ggit.Flags.DiffFormatEmailFlags]
type AttrTransferType DiffFormatEmailOptionsFlagsPropertyInfo = [Ggit.Flags.DiffFormatEmailFlags]
type AttrGetType DiffFormatEmailOptionsFlagsPropertyInfo = [Ggit.Flags.DiffFormatEmailFlags]
type AttrLabel DiffFormatEmailOptionsFlagsPropertyInfo = "flags"
type AttrOrigin DiffFormatEmailOptionsFlagsPropertyInfo = DiffFormatEmailOptions
attrGet = getDiffFormatEmailOptionsFlags
attrSet = setDiffFormatEmailOptionsFlags
attrTransfer _ v = do
return v
attrConstruct = constructDiffFormatEmailOptionsFlags
attrClear = undefined
#endif
getDiffFormatEmailOptionsId :: (MonadIO m, IsDiffFormatEmailOptions o) => o -> m (Maybe Ggit.OId.OId)
getDiffFormatEmailOptionsId obj = liftIO $ B.Properties.getObjectPropertyBoxed obj "id" Ggit.OId.OId
setDiffFormatEmailOptionsId :: (MonadIO m, IsDiffFormatEmailOptions o) => o -> Ggit.OId.OId -> m ()
setDiffFormatEmailOptionsId obj val = liftIO $ B.Properties.setObjectPropertyBoxed obj "id" (Just val)
constructDiffFormatEmailOptionsId :: (IsDiffFormatEmailOptions o) => Ggit.OId.OId -> IO (GValueConstruct o)
constructDiffFormatEmailOptionsId val = B.Properties.constructObjectPropertyBoxed "id" (Just val)
clearDiffFormatEmailOptionsId :: (MonadIO m, IsDiffFormatEmailOptions o) => o -> m ()
clearDiffFormatEmailOptionsId obj = liftIO $ B.Properties.setObjectPropertyBoxed obj "id" (Nothing :: Maybe Ggit.OId.OId)
#if defined(ENABLE_OVERLOADING)
data DiffFormatEmailOptionsIdPropertyInfo
instance AttrInfo DiffFormatEmailOptionsIdPropertyInfo where
type AttrAllowedOps DiffFormatEmailOptionsIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DiffFormatEmailOptionsIdPropertyInfo = IsDiffFormatEmailOptions
type AttrSetTypeConstraint DiffFormatEmailOptionsIdPropertyInfo = (~) Ggit.OId.OId
type AttrTransferTypeConstraint DiffFormatEmailOptionsIdPropertyInfo = (~) Ggit.OId.OId
type AttrTransferType DiffFormatEmailOptionsIdPropertyInfo = Ggit.OId.OId
type AttrGetType DiffFormatEmailOptionsIdPropertyInfo = (Maybe Ggit.OId.OId)
type AttrLabel DiffFormatEmailOptionsIdPropertyInfo = "id"
type AttrOrigin DiffFormatEmailOptionsIdPropertyInfo = DiffFormatEmailOptions
attrGet = getDiffFormatEmailOptionsId
attrSet = setDiffFormatEmailOptionsId
attrTransfer _ v = do
return v
attrConstruct = constructDiffFormatEmailOptionsId
attrClear = clearDiffFormatEmailOptionsId
#endif
getDiffFormatEmailOptionsPatchNumber :: (MonadIO m, IsDiffFormatEmailOptions o) => o -> m Word64
getDiffFormatEmailOptionsPatchNumber obj = liftIO $ B.Properties.getObjectPropertyUInt64 obj "patch-number"
setDiffFormatEmailOptionsPatchNumber :: (MonadIO m, IsDiffFormatEmailOptions o) => o -> Word64 -> m ()
setDiffFormatEmailOptionsPatchNumber obj val = liftIO $ B.Properties.setObjectPropertyUInt64 obj "patch-number" val
constructDiffFormatEmailOptionsPatchNumber :: (IsDiffFormatEmailOptions o) => Word64 -> IO (GValueConstruct o)
constructDiffFormatEmailOptionsPatchNumber val = B.Properties.constructObjectPropertyUInt64 "patch-number" val
#if defined(ENABLE_OVERLOADING)
data DiffFormatEmailOptionsPatchNumberPropertyInfo
instance AttrInfo DiffFormatEmailOptionsPatchNumberPropertyInfo where
type AttrAllowedOps DiffFormatEmailOptionsPatchNumberPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DiffFormatEmailOptionsPatchNumberPropertyInfo = IsDiffFormatEmailOptions
type AttrSetTypeConstraint DiffFormatEmailOptionsPatchNumberPropertyInfo = (~) Word64
type AttrTransferTypeConstraint DiffFormatEmailOptionsPatchNumberPropertyInfo = (~) Word64
type AttrTransferType DiffFormatEmailOptionsPatchNumberPropertyInfo = Word64
type AttrGetType DiffFormatEmailOptionsPatchNumberPropertyInfo = Word64
type AttrLabel DiffFormatEmailOptionsPatchNumberPropertyInfo = "patch-number"
type AttrOrigin DiffFormatEmailOptionsPatchNumberPropertyInfo = DiffFormatEmailOptions
attrGet = getDiffFormatEmailOptionsPatchNumber
attrSet = setDiffFormatEmailOptionsPatchNumber
attrTransfer _ v = do
return v
attrConstruct = constructDiffFormatEmailOptionsPatchNumber
attrClear = undefined
#endif
getDiffFormatEmailOptionsSummary :: (MonadIO m, IsDiffFormatEmailOptions o) => o -> m (Maybe T.Text)
getDiffFormatEmailOptionsSummary obj = liftIO $ B.Properties.getObjectPropertyString obj "summary"
setDiffFormatEmailOptionsSummary :: (MonadIO m, IsDiffFormatEmailOptions o) => o -> T.Text -> m ()
setDiffFormatEmailOptionsSummary obj val = liftIO $ B.Properties.setObjectPropertyString obj "summary" (Just val)
constructDiffFormatEmailOptionsSummary :: (IsDiffFormatEmailOptions o) => T.Text -> IO (GValueConstruct o)
constructDiffFormatEmailOptionsSummary val = B.Properties.constructObjectPropertyString "summary" (Just val)
clearDiffFormatEmailOptionsSummary :: (MonadIO m, IsDiffFormatEmailOptions o) => o -> m ()
clearDiffFormatEmailOptionsSummary obj = liftIO $ B.Properties.setObjectPropertyString obj "summary" (Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data DiffFormatEmailOptionsSummaryPropertyInfo
instance AttrInfo DiffFormatEmailOptionsSummaryPropertyInfo where
type AttrAllowedOps DiffFormatEmailOptionsSummaryPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DiffFormatEmailOptionsSummaryPropertyInfo = IsDiffFormatEmailOptions
type AttrSetTypeConstraint DiffFormatEmailOptionsSummaryPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint DiffFormatEmailOptionsSummaryPropertyInfo = (~) T.Text
type AttrTransferType DiffFormatEmailOptionsSummaryPropertyInfo = T.Text
type AttrGetType DiffFormatEmailOptionsSummaryPropertyInfo = (Maybe T.Text)
type AttrLabel DiffFormatEmailOptionsSummaryPropertyInfo = "summary"
type AttrOrigin DiffFormatEmailOptionsSummaryPropertyInfo = DiffFormatEmailOptions
attrGet = getDiffFormatEmailOptionsSummary
attrSet = setDiffFormatEmailOptionsSummary
attrTransfer _ v = do
return v
attrConstruct = constructDiffFormatEmailOptionsSummary
attrClear = clearDiffFormatEmailOptionsSummary
#endif
getDiffFormatEmailOptionsTotalPatches :: (MonadIO m, IsDiffFormatEmailOptions o) => o -> m Word64
getDiffFormatEmailOptionsTotalPatches obj = liftIO $ B.Properties.getObjectPropertyUInt64 obj "total-patches"
setDiffFormatEmailOptionsTotalPatches :: (MonadIO m, IsDiffFormatEmailOptions o) => o -> Word64 -> m ()
setDiffFormatEmailOptionsTotalPatches obj val = liftIO $ B.Properties.setObjectPropertyUInt64 obj "total-patches" val
constructDiffFormatEmailOptionsTotalPatches :: (IsDiffFormatEmailOptions o) => Word64 -> IO (GValueConstruct o)
constructDiffFormatEmailOptionsTotalPatches val = B.Properties.constructObjectPropertyUInt64 "total-patches" val
#if defined(ENABLE_OVERLOADING)
data DiffFormatEmailOptionsTotalPatchesPropertyInfo
instance AttrInfo DiffFormatEmailOptionsTotalPatchesPropertyInfo where
type AttrAllowedOps DiffFormatEmailOptionsTotalPatchesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DiffFormatEmailOptionsTotalPatchesPropertyInfo = IsDiffFormatEmailOptions
type AttrSetTypeConstraint DiffFormatEmailOptionsTotalPatchesPropertyInfo = (~) Word64
type AttrTransferTypeConstraint DiffFormatEmailOptionsTotalPatchesPropertyInfo = (~) Word64
type AttrTransferType DiffFormatEmailOptionsTotalPatchesPropertyInfo = Word64
type AttrGetType DiffFormatEmailOptionsTotalPatchesPropertyInfo = Word64
type AttrLabel DiffFormatEmailOptionsTotalPatchesPropertyInfo = "total-patches"
type AttrOrigin DiffFormatEmailOptionsTotalPatchesPropertyInfo = DiffFormatEmailOptions
attrGet = getDiffFormatEmailOptionsTotalPatches
attrSet = setDiffFormatEmailOptionsTotalPatches
attrTransfer _ v = do
return v
attrConstruct = constructDiffFormatEmailOptionsTotalPatches
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList DiffFormatEmailOptions
type instance O.AttributeList DiffFormatEmailOptions = DiffFormatEmailOptionsAttributeList
type DiffFormatEmailOptionsAttributeList = ('[ '("author", DiffFormatEmailOptionsAuthorPropertyInfo), '("body", DiffFormatEmailOptionsBodyPropertyInfo), '("flags", DiffFormatEmailOptionsFlagsPropertyInfo), '("id", DiffFormatEmailOptionsIdPropertyInfo), '("patchNumber", DiffFormatEmailOptionsPatchNumberPropertyInfo), '("summary", DiffFormatEmailOptionsSummaryPropertyInfo), '("totalPatches", DiffFormatEmailOptionsTotalPatchesPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
diffFormatEmailOptionsAuthor :: AttrLabelProxy "author"
diffFormatEmailOptionsAuthor = AttrLabelProxy
diffFormatEmailOptionsBody :: AttrLabelProxy "body"
diffFormatEmailOptionsBody = AttrLabelProxy
diffFormatEmailOptionsFlags :: AttrLabelProxy "flags"
diffFormatEmailOptionsFlags = AttrLabelProxy
diffFormatEmailOptionsId :: AttrLabelProxy "id"
diffFormatEmailOptionsId = AttrLabelProxy
diffFormatEmailOptionsPatchNumber :: AttrLabelProxy "patchNumber"
diffFormatEmailOptionsPatchNumber = AttrLabelProxy
diffFormatEmailOptionsSummary :: AttrLabelProxy "summary"
diffFormatEmailOptionsSummary = AttrLabelProxy
diffFormatEmailOptionsTotalPatches :: AttrLabelProxy "totalPatches"
diffFormatEmailOptionsTotalPatches = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList DiffFormatEmailOptions = DiffFormatEmailOptionsSignalList
type DiffFormatEmailOptionsSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "ggit_diff_format_email_options_new" ggit_diff_format_email_options_new ::
IO (Ptr DiffFormatEmailOptions)
diffFormatEmailOptionsNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m (Maybe DiffFormatEmailOptions)
diffFormatEmailOptionsNew = liftIO $ do
result <- ggit_diff_format_email_options_new
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (wrapObject DiffFormatEmailOptions) result'
return result''
return maybeResult
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "ggit_diff_format_email_options_get_author" ggit_diff_format_email_options_get_author ::
Ptr DiffFormatEmailOptions ->
IO (Ptr Ggit.Signature.Signature)
diffFormatEmailOptionsGetAuthor ::
(B.CallStack.HasCallStack, MonadIO m, IsDiffFormatEmailOptions a) =>
a
-> m (Maybe Ggit.Signature.Signature)
diffFormatEmailOptionsGetAuthor options = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
result <- ggit_diff_format_email_options_get_author options'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newObject Ggit.Signature.Signature) result'
return result''
touchManagedPtr options
return maybeResult
#if defined(ENABLE_OVERLOADING)
data DiffFormatEmailOptionsGetAuthorMethodInfo
instance (signature ~ (m (Maybe Ggit.Signature.Signature)), MonadIO m, IsDiffFormatEmailOptions a) => O.MethodInfo DiffFormatEmailOptionsGetAuthorMethodInfo a signature where
overloadedMethod = diffFormatEmailOptionsGetAuthor
#endif
foreign import ccall "ggit_diff_format_email_options_get_body" ggit_diff_format_email_options_get_body ::
Ptr DiffFormatEmailOptions ->
IO CString
diffFormatEmailOptionsGetBody ::
(B.CallStack.HasCallStack, MonadIO m, IsDiffFormatEmailOptions a) =>
a
-> m (Maybe T.Text)
diffFormatEmailOptionsGetBody options = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
result <- ggit_diff_format_email_options_get_body options'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- cstringToText result'
return result''
touchManagedPtr options
return maybeResult
#if defined(ENABLE_OVERLOADING)
data DiffFormatEmailOptionsGetBodyMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsDiffFormatEmailOptions a) => O.MethodInfo DiffFormatEmailOptionsGetBodyMethodInfo a signature where
overloadedMethod = diffFormatEmailOptionsGetBody
#endif
foreign import ccall "ggit_diff_format_email_options_get_flags" ggit_diff_format_email_options_get_flags ::
Ptr DiffFormatEmailOptions ->
IO CUInt
diffFormatEmailOptionsGetFlags ::
(B.CallStack.HasCallStack, MonadIO m, IsDiffFormatEmailOptions a) =>
a
-> m [Ggit.Flags.DiffFormatEmailFlags]
diffFormatEmailOptionsGetFlags options = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
result <- ggit_diff_format_email_options_get_flags options'
let result' = wordToGFlags result
touchManagedPtr options
return result'
#if defined(ENABLE_OVERLOADING)
data DiffFormatEmailOptionsGetFlagsMethodInfo
instance (signature ~ (m [Ggit.Flags.DiffFormatEmailFlags]), MonadIO m, IsDiffFormatEmailOptions a) => O.MethodInfo DiffFormatEmailOptionsGetFlagsMethodInfo a signature where
overloadedMethod = diffFormatEmailOptionsGetFlags
#endif
foreign import ccall "ggit_diff_format_email_options_get_id" ggit_diff_format_email_options_get_id ::
Ptr DiffFormatEmailOptions ->
IO (Ptr Ggit.OId.OId)
diffFormatEmailOptionsGetId ::
(B.CallStack.HasCallStack, MonadIO m, IsDiffFormatEmailOptions a) =>
a
-> m (Maybe Ggit.OId.OId)
diffFormatEmailOptionsGetId options = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
result <- ggit_diff_format_email_options_get_id options'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newBoxed Ggit.OId.OId) result'
return result''
touchManagedPtr options
return maybeResult
#if defined(ENABLE_OVERLOADING)
data DiffFormatEmailOptionsGetIdMethodInfo
instance (signature ~ (m (Maybe Ggit.OId.OId)), MonadIO m, IsDiffFormatEmailOptions a) => O.MethodInfo DiffFormatEmailOptionsGetIdMethodInfo a signature where
overloadedMethod = diffFormatEmailOptionsGetId
#endif
foreign import ccall "ggit_diff_format_email_options_get_patch_number" ggit_diff_format_email_options_get_patch_number ::
Ptr DiffFormatEmailOptions ->
IO Word32
diffFormatEmailOptionsGetPatchNumber ::
(B.CallStack.HasCallStack, MonadIO m, IsDiffFormatEmailOptions a) =>
a
-> m Word32
diffFormatEmailOptionsGetPatchNumber options = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
result <- ggit_diff_format_email_options_get_patch_number options'
touchManagedPtr options
return result
#if defined(ENABLE_OVERLOADING)
data DiffFormatEmailOptionsGetPatchNumberMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsDiffFormatEmailOptions a) => O.MethodInfo DiffFormatEmailOptionsGetPatchNumberMethodInfo a signature where
overloadedMethod = diffFormatEmailOptionsGetPatchNumber
#endif
foreign import ccall "ggit_diff_format_email_options_get_summary" ggit_diff_format_email_options_get_summary ::
Ptr DiffFormatEmailOptions ->
IO CString
diffFormatEmailOptionsGetSummary ::
(B.CallStack.HasCallStack, MonadIO m, IsDiffFormatEmailOptions a) =>
a
-> m (Maybe T.Text)
diffFormatEmailOptionsGetSummary options = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
result <- ggit_diff_format_email_options_get_summary options'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- cstringToText result'
return result''
touchManagedPtr options
return maybeResult
#if defined(ENABLE_OVERLOADING)
data DiffFormatEmailOptionsGetSummaryMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsDiffFormatEmailOptions a) => O.MethodInfo DiffFormatEmailOptionsGetSummaryMethodInfo a signature where
overloadedMethod = diffFormatEmailOptionsGetSummary
#endif
foreign import ccall "ggit_diff_format_email_options_get_total_patches" ggit_diff_format_email_options_get_total_patches ::
Ptr DiffFormatEmailOptions ->
IO Word32
diffFormatEmailOptionsGetTotalPatches ::
(B.CallStack.HasCallStack, MonadIO m, IsDiffFormatEmailOptions a) =>
a
-> m Word32
diffFormatEmailOptionsGetTotalPatches options = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
result <- ggit_diff_format_email_options_get_total_patches options'
touchManagedPtr options
return result
#if defined(ENABLE_OVERLOADING)
data DiffFormatEmailOptionsGetTotalPatchesMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsDiffFormatEmailOptions a) => O.MethodInfo DiffFormatEmailOptionsGetTotalPatchesMethodInfo a signature where
overloadedMethod = diffFormatEmailOptionsGetTotalPatches
#endif
foreign import ccall "ggit_diff_format_email_options_set_author" ggit_diff_format_email_options_set_author ::
Ptr DiffFormatEmailOptions ->
Ptr Ggit.Signature.Signature ->
IO ()
diffFormatEmailOptionsSetAuthor ::
(B.CallStack.HasCallStack, MonadIO m, IsDiffFormatEmailOptions a, Ggit.Signature.IsSignature b) =>
a
-> Maybe (b)
-> m ()
diffFormatEmailOptionsSetAuthor options author = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
maybeAuthor <- case author of
Nothing -> return nullPtr
Just jAuthor -> do
jAuthor' <- unsafeManagedPtrCastPtr jAuthor
return jAuthor'
ggit_diff_format_email_options_set_author options' maybeAuthor
touchManagedPtr options
whenJust author touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING)
data DiffFormatEmailOptionsSetAuthorMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsDiffFormatEmailOptions a, Ggit.Signature.IsSignature b) => O.MethodInfo DiffFormatEmailOptionsSetAuthorMethodInfo a signature where
overloadedMethod = diffFormatEmailOptionsSetAuthor
#endif
foreign import ccall "ggit_diff_format_email_options_set_body" ggit_diff_format_email_options_set_body ::
Ptr DiffFormatEmailOptions ->
CString ->
IO ()
diffFormatEmailOptionsSetBody ::
(B.CallStack.HasCallStack, MonadIO m, IsDiffFormatEmailOptions a) =>
a
-> Maybe (T.Text)
-> m ()
diffFormatEmailOptionsSetBody options body = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
maybeBody <- case body of
Nothing -> return nullPtr
Just jBody -> do
jBody' <- textToCString jBody
return jBody'
ggit_diff_format_email_options_set_body options' maybeBody
touchManagedPtr options
freeMem maybeBody
return ()
#if defined(ENABLE_OVERLOADING)
data DiffFormatEmailOptionsSetBodyMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsDiffFormatEmailOptions a) => O.MethodInfo DiffFormatEmailOptionsSetBodyMethodInfo a signature where
overloadedMethod = diffFormatEmailOptionsSetBody
#endif
foreign import ccall "ggit_diff_format_email_options_set_flags" ggit_diff_format_email_options_set_flags ::
Ptr DiffFormatEmailOptions ->
CUInt ->
IO ()
diffFormatEmailOptionsSetFlags ::
(B.CallStack.HasCallStack, MonadIO m, IsDiffFormatEmailOptions a) =>
a
-> [Ggit.Flags.DiffFormatEmailFlags]
-> m ()
diffFormatEmailOptionsSetFlags options flags = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
let flags' = gflagsToWord flags
ggit_diff_format_email_options_set_flags options' flags'
touchManagedPtr options
return ()
#if defined(ENABLE_OVERLOADING)
data DiffFormatEmailOptionsSetFlagsMethodInfo
instance (signature ~ ([Ggit.Flags.DiffFormatEmailFlags] -> m ()), MonadIO m, IsDiffFormatEmailOptions a) => O.MethodInfo DiffFormatEmailOptionsSetFlagsMethodInfo a signature where
overloadedMethod = diffFormatEmailOptionsSetFlags
#endif
foreign import ccall "ggit_diff_format_email_options_set_id" ggit_diff_format_email_options_set_id ::
Ptr DiffFormatEmailOptions ->
Ptr Ggit.OId.OId ->
IO ()
diffFormatEmailOptionsSetId ::
(B.CallStack.HasCallStack, MonadIO m, IsDiffFormatEmailOptions a) =>
a
-> Maybe (Ggit.OId.OId)
-> m ()
diffFormatEmailOptionsSetId options id = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
maybeId <- case id of
Nothing -> return nullPtr
Just jId -> do
jId' <- unsafeManagedPtrGetPtr jId
return jId'
ggit_diff_format_email_options_set_id options' maybeId
touchManagedPtr options
whenJust id touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING)
data DiffFormatEmailOptionsSetIdMethodInfo
instance (signature ~ (Maybe (Ggit.OId.OId) -> m ()), MonadIO m, IsDiffFormatEmailOptions a) => O.MethodInfo DiffFormatEmailOptionsSetIdMethodInfo a signature where
overloadedMethod = diffFormatEmailOptionsSetId
#endif
foreign import ccall "ggit_diff_format_email_options_set_patch_number" ggit_diff_format_email_options_set_patch_number ::
Ptr DiffFormatEmailOptions ->
Word32 ->
IO ()
diffFormatEmailOptionsSetPatchNumber ::
(B.CallStack.HasCallStack, MonadIO m, IsDiffFormatEmailOptions a) =>
a
-> Word32
-> m ()
diffFormatEmailOptionsSetPatchNumber options number = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
ggit_diff_format_email_options_set_patch_number options' number
touchManagedPtr options
return ()
#if defined(ENABLE_OVERLOADING)
data DiffFormatEmailOptionsSetPatchNumberMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsDiffFormatEmailOptions a) => O.MethodInfo DiffFormatEmailOptionsSetPatchNumberMethodInfo a signature where
overloadedMethod = diffFormatEmailOptionsSetPatchNumber
#endif
foreign import ccall "ggit_diff_format_email_options_set_summary" ggit_diff_format_email_options_set_summary ::
Ptr DiffFormatEmailOptions ->
CString ->
IO ()
diffFormatEmailOptionsSetSummary ::
(B.CallStack.HasCallStack, MonadIO m, IsDiffFormatEmailOptions a) =>
a
-> Maybe (T.Text)
-> m ()
diffFormatEmailOptionsSetSummary options summary = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
maybeSummary <- case summary of
Nothing -> return nullPtr
Just jSummary -> do
jSummary' <- textToCString jSummary
return jSummary'
ggit_diff_format_email_options_set_summary options' maybeSummary
touchManagedPtr options
freeMem maybeSummary
return ()
#if defined(ENABLE_OVERLOADING)
data DiffFormatEmailOptionsSetSummaryMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsDiffFormatEmailOptions a) => O.MethodInfo DiffFormatEmailOptionsSetSummaryMethodInfo a signature where
overloadedMethod = diffFormatEmailOptionsSetSummary
#endif
foreign import ccall "ggit_diff_format_email_options_set_total_patches" ggit_diff_format_email_options_set_total_patches ::
Ptr DiffFormatEmailOptions ->
Word32 ->
IO ()
diffFormatEmailOptionsSetTotalPatches ::
(B.CallStack.HasCallStack, MonadIO m, IsDiffFormatEmailOptions a) =>
a
-> Word32
-> m ()
diffFormatEmailOptionsSetTotalPatches options patches = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
ggit_diff_format_email_options_set_total_patches options' patches
touchManagedPtr options
return ()
#if defined(ENABLE_OVERLOADING)
data DiffFormatEmailOptionsSetTotalPatchesMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsDiffFormatEmailOptions a) => O.MethodInfo DiffFormatEmailOptionsSetTotalPatchesMethodInfo a signature where
overloadedMethod = diffFormatEmailOptionsSetTotalPatches
#endif