{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Ggit.Objects.DiffFindOptions
(
DiffFindOptions(..) ,
IsDiffFindOptions ,
toDiffFindOptions ,
noDiffFindOptions ,
#if defined(ENABLE_OVERLOADING)
ResolveDiffFindOptionsMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
DiffFindOptionsGetCopyThresholdMethodInfo,
#endif
diffFindOptionsGetCopyThreshold ,
#if defined(ENABLE_OVERLOADING)
DiffFindOptionsGetFlagsMethodInfo ,
#endif
diffFindOptionsGetFlags ,
#if defined(ENABLE_OVERLOADING)
DiffFindOptionsGetMetricMethodInfo ,
#endif
diffFindOptionsGetMetric ,
#if defined(ENABLE_OVERLOADING)
DiffFindOptionsGetRenameFromRewriteThresholdMethodInfo,
#endif
diffFindOptionsGetRenameFromRewriteThreshold,
#if defined(ENABLE_OVERLOADING)
DiffFindOptionsGetRenameLimitMethodInfo ,
#endif
diffFindOptionsGetRenameLimit ,
#if defined(ENABLE_OVERLOADING)
DiffFindOptionsGetRenameThresholdMethodInfo,
#endif
diffFindOptionsGetRenameThreshold ,
diffFindOptionsNew ,
#if defined(ENABLE_OVERLOADING)
DiffFindOptionsSetCopyThresholdMethodInfo,
#endif
diffFindOptionsSetCopyThreshold ,
#if defined(ENABLE_OVERLOADING)
DiffFindOptionsSetFlagsMethodInfo ,
#endif
diffFindOptionsSetFlags ,
#if defined(ENABLE_OVERLOADING)
DiffFindOptionsSetMetricMethodInfo ,
#endif
diffFindOptionsSetMetric ,
#if defined(ENABLE_OVERLOADING)
DiffFindOptionsSetRenameFromRewriteThresholdMethodInfo,
#endif
diffFindOptionsSetRenameFromRewriteThreshold,
#if defined(ENABLE_OVERLOADING)
DiffFindOptionsSetRenameLimitMethodInfo ,
#endif
diffFindOptionsSetRenameLimit ,
#if defined(ENABLE_OVERLOADING)
DiffFindOptionsSetRenameThresholdMethodInfo,
#endif
diffFindOptionsSetRenameThreshold ,
#if defined(ENABLE_OVERLOADING)
DiffFindOptionsCopyThresholdPropertyInfo,
#endif
constructDiffFindOptionsCopyThreshold ,
#if defined(ENABLE_OVERLOADING)
diffFindOptionsCopyThreshold ,
#endif
getDiffFindOptionsCopyThreshold ,
setDiffFindOptionsCopyThreshold ,
#if defined(ENABLE_OVERLOADING)
DiffFindOptionsFlagsPropertyInfo ,
#endif
constructDiffFindOptionsFlags ,
#if defined(ENABLE_OVERLOADING)
diffFindOptionsFlags ,
#endif
getDiffFindOptionsFlags ,
setDiffFindOptionsFlags ,
#if defined(ENABLE_OVERLOADING)
DiffFindOptionsMetricPropertyInfo ,
#endif
constructDiffFindOptionsMetric ,
#if defined(ENABLE_OVERLOADING)
diffFindOptionsMetric ,
#endif
getDiffFindOptionsMetric ,
setDiffFindOptionsMetric ,
#if defined(ENABLE_OVERLOADING)
DiffFindOptionsRenameFromRewriteThresholdPropertyInfo,
#endif
constructDiffFindOptionsRenameFromRewriteThreshold,
#if defined(ENABLE_OVERLOADING)
diffFindOptionsRenameFromRewriteThreshold,
#endif
getDiffFindOptionsRenameFromRewriteThreshold,
setDiffFindOptionsRenameFromRewriteThreshold,
#if defined(ENABLE_OVERLOADING)
DiffFindOptionsRenameLimitPropertyInfo ,
#endif
constructDiffFindOptionsRenameLimit ,
#if defined(ENABLE_OVERLOADING)
diffFindOptionsRenameLimit ,
#endif
getDiffFindOptionsRenameLimit ,
setDiffFindOptionsRenameLimit ,
#if defined(ENABLE_OVERLOADING)
DiffFindOptionsRenameThresholdPropertyInfo,
#endif
constructDiffFindOptionsRenameThreshold ,
#if defined(ENABLE_OVERLOADING)
diffFindOptionsRenameThreshold ,
#endif
getDiffFindOptionsRenameThreshold ,
setDiffFindOptionsRenameThreshold ,
) 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.Structs.DiffSimilarityMetric as Ggit.DiffSimilarityMetric
newtype DiffFindOptions = DiffFindOptions (ManagedPtr DiffFindOptions)
deriving (Eq)
foreign import ccall "ggit_diff_find_options_get_type"
c_ggit_diff_find_options_get_type :: IO GType
instance GObject DiffFindOptions where
gobjectType = c_ggit_diff_find_options_get_type
instance B.GValue.IsGValue DiffFindOptions where
toGValue o = do
gtype <- c_ggit_diff_find_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 DiffFindOptions)
B.ManagedPtr.newObject DiffFindOptions ptr
class (GObject o, O.IsDescendantOf DiffFindOptions o) => IsDiffFindOptions o
instance (GObject o, O.IsDescendantOf DiffFindOptions o) => IsDiffFindOptions o
instance O.HasParentTypes DiffFindOptions
type instance O.ParentTypes DiffFindOptions = '[GObject.Object.Object]
toDiffFindOptions :: (MonadIO m, IsDiffFindOptions o) => o -> m DiffFindOptions
toDiffFindOptions = liftIO . unsafeCastTo DiffFindOptions
noDiffFindOptions :: Maybe DiffFindOptions
noDiffFindOptions = Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveDiffFindOptionsMethod (t :: Symbol) (o :: *) :: * where
ResolveDiffFindOptionsMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDiffFindOptionsMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDiffFindOptionsMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDiffFindOptionsMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDiffFindOptionsMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveDiffFindOptionsMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDiffFindOptionsMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDiffFindOptionsMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDiffFindOptionsMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDiffFindOptionsMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDiffFindOptionsMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDiffFindOptionsMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDiffFindOptionsMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDiffFindOptionsMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDiffFindOptionsMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDiffFindOptionsMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDiffFindOptionsMethod "getCopyThreshold" o = DiffFindOptionsGetCopyThresholdMethodInfo
ResolveDiffFindOptionsMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDiffFindOptionsMethod "getFlags" o = DiffFindOptionsGetFlagsMethodInfo
ResolveDiffFindOptionsMethod "getMetric" o = DiffFindOptionsGetMetricMethodInfo
ResolveDiffFindOptionsMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDiffFindOptionsMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDiffFindOptionsMethod "getRenameFromRewriteThreshold" o = DiffFindOptionsGetRenameFromRewriteThresholdMethodInfo
ResolveDiffFindOptionsMethod "getRenameLimit" o = DiffFindOptionsGetRenameLimitMethodInfo
ResolveDiffFindOptionsMethod "getRenameThreshold" o = DiffFindOptionsGetRenameThresholdMethodInfo
ResolveDiffFindOptionsMethod "setCopyThreshold" o = DiffFindOptionsSetCopyThresholdMethodInfo
ResolveDiffFindOptionsMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDiffFindOptionsMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveDiffFindOptionsMethod "setFlags" o = DiffFindOptionsSetFlagsMethodInfo
ResolveDiffFindOptionsMethod "setMetric" o = DiffFindOptionsSetMetricMethodInfo
ResolveDiffFindOptionsMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDiffFindOptionsMethod "setRenameFromRewriteThreshold" o = DiffFindOptionsSetRenameFromRewriteThresholdMethodInfo
ResolveDiffFindOptionsMethod "setRenameLimit" o = DiffFindOptionsSetRenameLimitMethodInfo
ResolveDiffFindOptionsMethod "setRenameThreshold" o = DiffFindOptionsSetRenameThresholdMethodInfo
ResolveDiffFindOptionsMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDiffFindOptionsMethod t DiffFindOptions, O.MethodInfo info DiffFindOptions p) => OL.IsLabel t (DiffFindOptions -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
getDiffFindOptionsCopyThreshold :: (MonadIO m, IsDiffFindOptions o) => o -> m Word32
getDiffFindOptionsCopyThreshold obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "copy-threshold"
setDiffFindOptionsCopyThreshold :: (MonadIO m, IsDiffFindOptions o) => o -> Word32 -> m ()
setDiffFindOptionsCopyThreshold obj val = liftIO $ B.Properties.setObjectPropertyUInt32 obj "copy-threshold" val
constructDiffFindOptionsCopyThreshold :: (IsDiffFindOptions o) => Word32 -> IO (GValueConstruct o)
constructDiffFindOptionsCopyThreshold val = B.Properties.constructObjectPropertyUInt32 "copy-threshold" val
#if defined(ENABLE_OVERLOADING)
data DiffFindOptionsCopyThresholdPropertyInfo
instance AttrInfo DiffFindOptionsCopyThresholdPropertyInfo where
type AttrAllowedOps DiffFindOptionsCopyThresholdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DiffFindOptionsCopyThresholdPropertyInfo = IsDiffFindOptions
type AttrSetTypeConstraint DiffFindOptionsCopyThresholdPropertyInfo = (~) Word32
type AttrTransferTypeConstraint DiffFindOptionsCopyThresholdPropertyInfo = (~) Word32
type AttrTransferType DiffFindOptionsCopyThresholdPropertyInfo = Word32
type AttrGetType DiffFindOptionsCopyThresholdPropertyInfo = Word32
type AttrLabel DiffFindOptionsCopyThresholdPropertyInfo = "copy-threshold"
type AttrOrigin DiffFindOptionsCopyThresholdPropertyInfo = DiffFindOptions
attrGet = getDiffFindOptionsCopyThreshold
attrSet = setDiffFindOptionsCopyThreshold
attrTransfer _ v = do
return v
attrConstruct = constructDiffFindOptionsCopyThreshold
attrClear = undefined
#endif
getDiffFindOptionsFlags :: (MonadIO m, IsDiffFindOptions o) => o -> m [Ggit.Flags.DiffFindFlags]
getDiffFindOptionsFlags obj = liftIO $ B.Properties.getObjectPropertyFlags obj "flags"
setDiffFindOptionsFlags :: (MonadIO m, IsDiffFindOptions o) => o -> [Ggit.Flags.DiffFindFlags] -> m ()
setDiffFindOptionsFlags obj val = liftIO $ B.Properties.setObjectPropertyFlags obj "flags" val
constructDiffFindOptionsFlags :: (IsDiffFindOptions o) => [Ggit.Flags.DiffFindFlags] -> IO (GValueConstruct o)
constructDiffFindOptionsFlags val = B.Properties.constructObjectPropertyFlags "flags" val
#if defined(ENABLE_OVERLOADING)
data DiffFindOptionsFlagsPropertyInfo
instance AttrInfo DiffFindOptionsFlagsPropertyInfo where
type AttrAllowedOps DiffFindOptionsFlagsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DiffFindOptionsFlagsPropertyInfo = IsDiffFindOptions
type AttrSetTypeConstraint DiffFindOptionsFlagsPropertyInfo = (~) [Ggit.Flags.DiffFindFlags]
type AttrTransferTypeConstraint DiffFindOptionsFlagsPropertyInfo = (~) [Ggit.Flags.DiffFindFlags]
type AttrTransferType DiffFindOptionsFlagsPropertyInfo = [Ggit.Flags.DiffFindFlags]
type AttrGetType DiffFindOptionsFlagsPropertyInfo = [Ggit.Flags.DiffFindFlags]
type AttrLabel DiffFindOptionsFlagsPropertyInfo = "flags"
type AttrOrigin DiffFindOptionsFlagsPropertyInfo = DiffFindOptions
attrGet = getDiffFindOptionsFlags
attrSet = setDiffFindOptionsFlags
attrTransfer _ v = do
return v
attrConstruct = constructDiffFindOptionsFlags
attrClear = undefined
#endif
getDiffFindOptionsMetric :: (MonadIO m, IsDiffFindOptions o) => o -> m (Maybe Ggit.DiffSimilarityMetric.DiffSimilarityMetric)
getDiffFindOptionsMetric obj = liftIO $ B.Properties.getObjectPropertyBoxed obj "metric" Ggit.DiffSimilarityMetric.DiffSimilarityMetric
setDiffFindOptionsMetric :: (MonadIO m, IsDiffFindOptions o) => o -> Ggit.DiffSimilarityMetric.DiffSimilarityMetric -> m ()
setDiffFindOptionsMetric obj val = liftIO $ B.Properties.setObjectPropertyBoxed obj "metric" (Just val)
constructDiffFindOptionsMetric :: (IsDiffFindOptions o) => Ggit.DiffSimilarityMetric.DiffSimilarityMetric -> IO (GValueConstruct o)
constructDiffFindOptionsMetric val = B.Properties.constructObjectPropertyBoxed "metric" (Just val)
#if defined(ENABLE_OVERLOADING)
data DiffFindOptionsMetricPropertyInfo
instance AttrInfo DiffFindOptionsMetricPropertyInfo where
type AttrAllowedOps DiffFindOptionsMetricPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DiffFindOptionsMetricPropertyInfo = IsDiffFindOptions
type AttrSetTypeConstraint DiffFindOptionsMetricPropertyInfo = (~) Ggit.DiffSimilarityMetric.DiffSimilarityMetric
type AttrTransferTypeConstraint DiffFindOptionsMetricPropertyInfo = (~) Ggit.DiffSimilarityMetric.DiffSimilarityMetric
type AttrTransferType DiffFindOptionsMetricPropertyInfo = Ggit.DiffSimilarityMetric.DiffSimilarityMetric
type AttrGetType DiffFindOptionsMetricPropertyInfo = (Maybe Ggit.DiffSimilarityMetric.DiffSimilarityMetric)
type AttrLabel DiffFindOptionsMetricPropertyInfo = "metric"
type AttrOrigin DiffFindOptionsMetricPropertyInfo = DiffFindOptions
attrGet = getDiffFindOptionsMetric
attrSet = setDiffFindOptionsMetric
attrTransfer _ v = do
return v
attrConstruct = constructDiffFindOptionsMetric
attrClear = undefined
#endif
getDiffFindOptionsRenameFromRewriteThreshold :: (MonadIO m, IsDiffFindOptions o) => o -> m Word32
getDiffFindOptionsRenameFromRewriteThreshold obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "rename-from-rewrite-threshold"
setDiffFindOptionsRenameFromRewriteThreshold :: (MonadIO m, IsDiffFindOptions o) => o -> Word32 -> m ()
setDiffFindOptionsRenameFromRewriteThreshold obj val = liftIO $ B.Properties.setObjectPropertyUInt32 obj "rename-from-rewrite-threshold" val
constructDiffFindOptionsRenameFromRewriteThreshold :: (IsDiffFindOptions o) => Word32 -> IO (GValueConstruct o)
constructDiffFindOptionsRenameFromRewriteThreshold val = B.Properties.constructObjectPropertyUInt32 "rename-from-rewrite-threshold" val
#if defined(ENABLE_OVERLOADING)
data DiffFindOptionsRenameFromRewriteThresholdPropertyInfo
instance AttrInfo DiffFindOptionsRenameFromRewriteThresholdPropertyInfo where
type AttrAllowedOps DiffFindOptionsRenameFromRewriteThresholdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DiffFindOptionsRenameFromRewriteThresholdPropertyInfo = IsDiffFindOptions
type AttrSetTypeConstraint DiffFindOptionsRenameFromRewriteThresholdPropertyInfo = (~) Word32
type AttrTransferTypeConstraint DiffFindOptionsRenameFromRewriteThresholdPropertyInfo = (~) Word32
type AttrTransferType DiffFindOptionsRenameFromRewriteThresholdPropertyInfo = Word32
type AttrGetType DiffFindOptionsRenameFromRewriteThresholdPropertyInfo = Word32
type AttrLabel DiffFindOptionsRenameFromRewriteThresholdPropertyInfo = "rename-from-rewrite-threshold"
type AttrOrigin DiffFindOptionsRenameFromRewriteThresholdPropertyInfo = DiffFindOptions
attrGet = getDiffFindOptionsRenameFromRewriteThreshold
attrSet = setDiffFindOptionsRenameFromRewriteThreshold
attrTransfer _ v = do
return v
attrConstruct = constructDiffFindOptionsRenameFromRewriteThreshold
attrClear = undefined
#endif
getDiffFindOptionsRenameLimit :: (MonadIO m, IsDiffFindOptions o) => o -> m Word32
getDiffFindOptionsRenameLimit obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "rename-limit"
setDiffFindOptionsRenameLimit :: (MonadIO m, IsDiffFindOptions o) => o -> Word32 -> m ()
setDiffFindOptionsRenameLimit obj val = liftIO $ B.Properties.setObjectPropertyUInt32 obj "rename-limit" val
constructDiffFindOptionsRenameLimit :: (IsDiffFindOptions o) => Word32 -> IO (GValueConstruct o)
constructDiffFindOptionsRenameLimit val = B.Properties.constructObjectPropertyUInt32 "rename-limit" val
#if defined(ENABLE_OVERLOADING)
data DiffFindOptionsRenameLimitPropertyInfo
instance AttrInfo DiffFindOptionsRenameLimitPropertyInfo where
type AttrAllowedOps DiffFindOptionsRenameLimitPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DiffFindOptionsRenameLimitPropertyInfo = IsDiffFindOptions
type AttrSetTypeConstraint DiffFindOptionsRenameLimitPropertyInfo = (~) Word32
type AttrTransferTypeConstraint DiffFindOptionsRenameLimitPropertyInfo = (~) Word32
type AttrTransferType DiffFindOptionsRenameLimitPropertyInfo = Word32
type AttrGetType DiffFindOptionsRenameLimitPropertyInfo = Word32
type AttrLabel DiffFindOptionsRenameLimitPropertyInfo = "rename-limit"
type AttrOrigin DiffFindOptionsRenameLimitPropertyInfo = DiffFindOptions
attrGet = getDiffFindOptionsRenameLimit
attrSet = setDiffFindOptionsRenameLimit
attrTransfer _ v = do
return v
attrConstruct = constructDiffFindOptionsRenameLimit
attrClear = undefined
#endif
getDiffFindOptionsRenameThreshold :: (MonadIO m, IsDiffFindOptions o) => o -> m Word32
getDiffFindOptionsRenameThreshold obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "rename-threshold"
setDiffFindOptionsRenameThreshold :: (MonadIO m, IsDiffFindOptions o) => o -> Word32 -> m ()
setDiffFindOptionsRenameThreshold obj val = liftIO $ B.Properties.setObjectPropertyUInt32 obj "rename-threshold" val
constructDiffFindOptionsRenameThreshold :: (IsDiffFindOptions o) => Word32 -> IO (GValueConstruct o)
constructDiffFindOptionsRenameThreshold val = B.Properties.constructObjectPropertyUInt32 "rename-threshold" val
#if defined(ENABLE_OVERLOADING)
data DiffFindOptionsRenameThresholdPropertyInfo
instance AttrInfo DiffFindOptionsRenameThresholdPropertyInfo where
type AttrAllowedOps DiffFindOptionsRenameThresholdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DiffFindOptionsRenameThresholdPropertyInfo = IsDiffFindOptions
type AttrSetTypeConstraint DiffFindOptionsRenameThresholdPropertyInfo = (~) Word32
type AttrTransferTypeConstraint DiffFindOptionsRenameThresholdPropertyInfo = (~) Word32
type AttrTransferType DiffFindOptionsRenameThresholdPropertyInfo = Word32
type AttrGetType DiffFindOptionsRenameThresholdPropertyInfo = Word32
type AttrLabel DiffFindOptionsRenameThresholdPropertyInfo = "rename-threshold"
type AttrOrigin DiffFindOptionsRenameThresholdPropertyInfo = DiffFindOptions
attrGet = getDiffFindOptionsRenameThreshold
attrSet = setDiffFindOptionsRenameThreshold
attrTransfer _ v = do
return v
attrConstruct = constructDiffFindOptionsRenameThreshold
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList DiffFindOptions
type instance O.AttributeList DiffFindOptions = DiffFindOptionsAttributeList
type DiffFindOptionsAttributeList = ('[ '("copyThreshold", DiffFindOptionsCopyThresholdPropertyInfo), '("flags", DiffFindOptionsFlagsPropertyInfo), '("metric", DiffFindOptionsMetricPropertyInfo), '("renameFromRewriteThreshold", DiffFindOptionsRenameFromRewriteThresholdPropertyInfo), '("renameLimit", DiffFindOptionsRenameLimitPropertyInfo), '("renameThreshold", DiffFindOptionsRenameThresholdPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
diffFindOptionsCopyThreshold :: AttrLabelProxy "copyThreshold"
diffFindOptionsCopyThreshold = AttrLabelProxy
diffFindOptionsFlags :: AttrLabelProxy "flags"
diffFindOptionsFlags = AttrLabelProxy
diffFindOptionsMetric :: AttrLabelProxy "metric"
diffFindOptionsMetric = AttrLabelProxy
diffFindOptionsRenameFromRewriteThreshold :: AttrLabelProxy "renameFromRewriteThreshold"
diffFindOptionsRenameFromRewriteThreshold = AttrLabelProxy
diffFindOptionsRenameLimit :: AttrLabelProxy "renameLimit"
diffFindOptionsRenameLimit = AttrLabelProxy
diffFindOptionsRenameThreshold :: AttrLabelProxy "renameThreshold"
diffFindOptionsRenameThreshold = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList DiffFindOptions = DiffFindOptionsSignalList
type DiffFindOptionsSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "ggit_diff_find_options_new" ggit_diff_find_options_new ::
IO (Ptr DiffFindOptions)
diffFindOptionsNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m (Maybe DiffFindOptions)
diffFindOptionsNew = liftIO $ do
result <- ggit_diff_find_options_new
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (wrapObject DiffFindOptions) result'
return result''
return maybeResult
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "ggit_diff_find_options_get_copy_threshold" ggit_diff_find_options_get_copy_threshold ::
Ptr DiffFindOptions ->
IO Word32
diffFindOptionsGetCopyThreshold ::
(B.CallStack.HasCallStack, MonadIO m, IsDiffFindOptions a) =>
a
-> m Word32
diffFindOptionsGetCopyThreshold options = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
result <- ggit_diff_find_options_get_copy_threshold options'
touchManagedPtr options
return result
#if defined(ENABLE_OVERLOADING)
data DiffFindOptionsGetCopyThresholdMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsDiffFindOptions a) => O.MethodInfo DiffFindOptionsGetCopyThresholdMethodInfo a signature where
overloadedMethod = diffFindOptionsGetCopyThreshold
#endif
foreign import ccall "ggit_diff_find_options_get_flags" ggit_diff_find_options_get_flags ::
Ptr DiffFindOptions ->
IO CUInt
diffFindOptionsGetFlags ::
(B.CallStack.HasCallStack, MonadIO m, IsDiffFindOptions a) =>
a
-> m [Ggit.Flags.DiffFindFlags]
diffFindOptionsGetFlags options = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
result <- ggit_diff_find_options_get_flags options'
let result' = wordToGFlags result
touchManagedPtr options
return result'
#if defined(ENABLE_OVERLOADING)
data DiffFindOptionsGetFlagsMethodInfo
instance (signature ~ (m [Ggit.Flags.DiffFindFlags]), MonadIO m, IsDiffFindOptions a) => O.MethodInfo DiffFindOptionsGetFlagsMethodInfo a signature where
overloadedMethod = diffFindOptionsGetFlags
#endif
foreign import ccall "ggit_diff_find_options_get_metric" ggit_diff_find_options_get_metric ::
Ptr DiffFindOptions ->
IO (Ptr Ggit.DiffSimilarityMetric.DiffSimilarityMetric)
diffFindOptionsGetMetric ::
(B.CallStack.HasCallStack, MonadIO m, IsDiffFindOptions a) =>
a
-> m (Maybe Ggit.DiffSimilarityMetric.DiffSimilarityMetric)
diffFindOptionsGetMetric options = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
result <- ggit_diff_find_options_get_metric options'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newBoxed Ggit.DiffSimilarityMetric.DiffSimilarityMetric) result'
return result''
touchManagedPtr options
return maybeResult
#if defined(ENABLE_OVERLOADING)
data DiffFindOptionsGetMetricMethodInfo
instance (signature ~ (m (Maybe Ggit.DiffSimilarityMetric.DiffSimilarityMetric)), MonadIO m, IsDiffFindOptions a) => O.MethodInfo DiffFindOptionsGetMetricMethodInfo a signature where
overloadedMethod = diffFindOptionsGetMetric
#endif
foreign import ccall "ggit_diff_find_options_get_rename_from_rewrite_threshold" ggit_diff_find_options_get_rename_from_rewrite_threshold ::
Ptr DiffFindOptions ->
IO Word32
diffFindOptionsGetRenameFromRewriteThreshold ::
(B.CallStack.HasCallStack, MonadIO m, IsDiffFindOptions a) =>
a
-> m Word32
diffFindOptionsGetRenameFromRewriteThreshold options = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
result <- ggit_diff_find_options_get_rename_from_rewrite_threshold options'
touchManagedPtr options
return result
#if defined(ENABLE_OVERLOADING)
data DiffFindOptionsGetRenameFromRewriteThresholdMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsDiffFindOptions a) => O.MethodInfo DiffFindOptionsGetRenameFromRewriteThresholdMethodInfo a signature where
overloadedMethod = diffFindOptionsGetRenameFromRewriteThreshold
#endif
foreign import ccall "ggit_diff_find_options_get_rename_limit" ggit_diff_find_options_get_rename_limit ::
Ptr DiffFindOptions ->
IO Word64
diffFindOptionsGetRenameLimit ::
(B.CallStack.HasCallStack, MonadIO m, IsDiffFindOptions a) =>
a
-> m Word64
diffFindOptionsGetRenameLimit options = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
result <- ggit_diff_find_options_get_rename_limit options'
touchManagedPtr options
return result
#if defined(ENABLE_OVERLOADING)
data DiffFindOptionsGetRenameLimitMethodInfo
instance (signature ~ (m Word64), MonadIO m, IsDiffFindOptions a) => O.MethodInfo DiffFindOptionsGetRenameLimitMethodInfo a signature where
overloadedMethod = diffFindOptionsGetRenameLimit
#endif
foreign import ccall "ggit_diff_find_options_get_rename_threshold" ggit_diff_find_options_get_rename_threshold ::
Ptr DiffFindOptions ->
IO Word32
diffFindOptionsGetRenameThreshold ::
(B.CallStack.HasCallStack, MonadIO m, IsDiffFindOptions a) =>
a
-> m Word32
diffFindOptionsGetRenameThreshold options = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
result <- ggit_diff_find_options_get_rename_threshold options'
touchManagedPtr options
return result
#if defined(ENABLE_OVERLOADING)
data DiffFindOptionsGetRenameThresholdMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsDiffFindOptions a) => O.MethodInfo DiffFindOptionsGetRenameThresholdMethodInfo a signature where
overloadedMethod = diffFindOptionsGetRenameThreshold
#endif
foreign import ccall "ggit_diff_find_options_set_copy_threshold" ggit_diff_find_options_set_copy_threshold ::
Ptr DiffFindOptions ->
Word32 ->
IO ()
diffFindOptionsSetCopyThreshold ::
(B.CallStack.HasCallStack, MonadIO m, IsDiffFindOptions a) =>
a
-> Word32
-> m ()
diffFindOptionsSetCopyThreshold options threshold = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
ggit_diff_find_options_set_copy_threshold options' threshold
touchManagedPtr options
return ()
#if defined(ENABLE_OVERLOADING)
data DiffFindOptionsSetCopyThresholdMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsDiffFindOptions a) => O.MethodInfo DiffFindOptionsSetCopyThresholdMethodInfo a signature where
overloadedMethod = diffFindOptionsSetCopyThreshold
#endif
foreign import ccall "ggit_diff_find_options_set_flags" ggit_diff_find_options_set_flags ::
Ptr DiffFindOptions ->
CUInt ->
IO ()
diffFindOptionsSetFlags ::
(B.CallStack.HasCallStack, MonadIO m, IsDiffFindOptions a) =>
a
-> [Ggit.Flags.DiffFindFlags]
-> m ()
diffFindOptionsSetFlags options flags = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
let flags' = gflagsToWord flags
ggit_diff_find_options_set_flags options' flags'
touchManagedPtr options
return ()
#if defined(ENABLE_OVERLOADING)
data DiffFindOptionsSetFlagsMethodInfo
instance (signature ~ ([Ggit.Flags.DiffFindFlags] -> m ()), MonadIO m, IsDiffFindOptions a) => O.MethodInfo DiffFindOptionsSetFlagsMethodInfo a signature where
overloadedMethod = diffFindOptionsSetFlags
#endif
foreign import ccall "ggit_diff_find_options_set_metric" ggit_diff_find_options_set_metric ::
Ptr DiffFindOptions ->
Ptr Ggit.DiffSimilarityMetric.DiffSimilarityMetric ->
IO ()
diffFindOptionsSetMetric ::
(B.CallStack.HasCallStack, MonadIO m, IsDiffFindOptions a) =>
a
-> Ggit.DiffSimilarityMetric.DiffSimilarityMetric
-> m ()
diffFindOptionsSetMetric options metric = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
metric' <- unsafeManagedPtrGetPtr metric
ggit_diff_find_options_set_metric options' metric'
touchManagedPtr options
touchManagedPtr metric
return ()
#if defined(ENABLE_OVERLOADING)
data DiffFindOptionsSetMetricMethodInfo
instance (signature ~ (Ggit.DiffSimilarityMetric.DiffSimilarityMetric -> m ()), MonadIO m, IsDiffFindOptions a) => O.MethodInfo DiffFindOptionsSetMetricMethodInfo a signature where
overloadedMethod = diffFindOptionsSetMetric
#endif
foreign import ccall "ggit_diff_find_options_set_rename_from_rewrite_threshold" ggit_diff_find_options_set_rename_from_rewrite_threshold ::
Ptr DiffFindOptions ->
Word32 ->
IO ()
diffFindOptionsSetRenameFromRewriteThreshold ::
(B.CallStack.HasCallStack, MonadIO m, IsDiffFindOptions a) =>
a
-> Word32
-> m ()
diffFindOptionsSetRenameFromRewriteThreshold options threshold = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
ggit_diff_find_options_set_rename_from_rewrite_threshold options' threshold
touchManagedPtr options
return ()
#if defined(ENABLE_OVERLOADING)
data DiffFindOptionsSetRenameFromRewriteThresholdMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsDiffFindOptions a) => O.MethodInfo DiffFindOptionsSetRenameFromRewriteThresholdMethodInfo a signature where
overloadedMethod = diffFindOptionsSetRenameFromRewriteThreshold
#endif
foreign import ccall "ggit_diff_find_options_set_rename_limit" ggit_diff_find_options_set_rename_limit ::
Ptr DiffFindOptions ->
Word64 ->
IO ()
diffFindOptionsSetRenameLimit ::
(B.CallStack.HasCallStack, MonadIO m, IsDiffFindOptions a) =>
a
-> Word64
-> m ()
diffFindOptionsSetRenameLimit options limit = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
ggit_diff_find_options_set_rename_limit options' limit
touchManagedPtr options
return ()
#if defined(ENABLE_OVERLOADING)
data DiffFindOptionsSetRenameLimitMethodInfo
instance (signature ~ (Word64 -> m ()), MonadIO m, IsDiffFindOptions a) => O.MethodInfo DiffFindOptionsSetRenameLimitMethodInfo a signature where
overloadedMethod = diffFindOptionsSetRenameLimit
#endif
foreign import ccall "ggit_diff_find_options_set_rename_threshold" ggit_diff_find_options_set_rename_threshold ::
Ptr DiffFindOptions ->
Word32 ->
IO ()
diffFindOptionsSetRenameThreshold ::
(B.CallStack.HasCallStack, MonadIO m, IsDiffFindOptions a) =>
a
-> Word32
-> m ()
diffFindOptionsSetRenameThreshold options threshold = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
ggit_diff_find_options_set_rename_threshold options' threshold
touchManagedPtr options
return ()
#if defined(ENABLE_OVERLOADING)
data DiffFindOptionsSetRenameThresholdMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsDiffFindOptions a) => O.MethodInfo DiffFindOptionsSetRenameThresholdMethodInfo a signature where
overloadedMethod = diffFindOptionsSetRenameThreshold
#endif