#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.Ggit.Objects.DiffFindOptions
(
DiffFindOptions(..) ,
IsDiffFindOptions ,
toDiffFindOptions ,
noDiffFindOptions ,
#if ENABLE_OVERLOADING
DiffFindOptionsGetCopyThresholdMethodInfo,
#endif
diffFindOptionsGetCopyThreshold ,
#if ENABLE_OVERLOADING
DiffFindOptionsGetFlagsMethodInfo ,
#endif
diffFindOptionsGetFlags ,
#if ENABLE_OVERLOADING
DiffFindOptionsGetMetricMethodInfo ,
#endif
diffFindOptionsGetMetric ,
#if ENABLE_OVERLOADING
DiffFindOptionsGetRenameFromRewriteThresholdMethodInfo,
#endif
diffFindOptionsGetRenameFromRewriteThreshold,
#if ENABLE_OVERLOADING
DiffFindOptionsGetRenameLimitMethodInfo ,
#endif
diffFindOptionsGetRenameLimit ,
#if ENABLE_OVERLOADING
DiffFindOptionsGetRenameThresholdMethodInfo,
#endif
diffFindOptionsGetRenameThreshold ,
diffFindOptionsNew ,
#if ENABLE_OVERLOADING
DiffFindOptionsSetCopyThresholdMethodInfo,
#endif
diffFindOptionsSetCopyThreshold ,
#if ENABLE_OVERLOADING
DiffFindOptionsSetFlagsMethodInfo ,
#endif
diffFindOptionsSetFlags ,
#if ENABLE_OVERLOADING
DiffFindOptionsSetMetricMethodInfo ,
#endif
diffFindOptionsSetMetric ,
#if ENABLE_OVERLOADING
DiffFindOptionsSetRenameFromRewriteThresholdMethodInfo,
#endif
diffFindOptionsSetRenameFromRewriteThreshold,
#if ENABLE_OVERLOADING
DiffFindOptionsSetRenameLimitMethodInfo ,
#endif
diffFindOptionsSetRenameLimit ,
#if ENABLE_OVERLOADING
DiffFindOptionsSetRenameThresholdMethodInfo,
#endif
diffFindOptionsSetRenameThreshold ,
#if ENABLE_OVERLOADING
DiffFindOptionsCopyThresholdPropertyInfo,
#endif
constructDiffFindOptionsCopyThreshold ,
#if ENABLE_OVERLOADING
diffFindOptionsCopyThreshold ,
#endif
getDiffFindOptionsCopyThreshold ,
setDiffFindOptionsCopyThreshold ,
#if ENABLE_OVERLOADING
DiffFindOptionsFlagsPropertyInfo ,
#endif
constructDiffFindOptionsFlags ,
#if ENABLE_OVERLOADING
diffFindOptionsFlags ,
#endif
getDiffFindOptionsFlags ,
setDiffFindOptionsFlags ,
#if ENABLE_OVERLOADING
DiffFindOptionsMetricPropertyInfo ,
#endif
constructDiffFindOptionsMetric ,
#if ENABLE_OVERLOADING
diffFindOptionsMetric ,
#endif
getDiffFindOptionsMetric ,
setDiffFindOptionsMetric ,
#if ENABLE_OVERLOADING
DiffFindOptionsRenameFromRewriteThresholdPropertyInfo,
#endif
constructDiffFindOptionsRenameFromRewriteThreshold,
#if ENABLE_OVERLOADING
diffFindOptionsRenameFromRewriteThreshold,
#endif
getDiffFindOptionsRenameFromRewriteThreshold,
setDiffFindOptionsRenameFromRewriteThreshold,
#if ENABLE_OVERLOADING
DiffFindOptionsRenameLimitPropertyInfo ,
#endif
constructDiffFindOptionsRenameLimit ,
#if ENABLE_OVERLOADING
diffFindOptionsRenameLimit ,
#endif
getDiffFindOptionsRenameLimit ,
setDiffFindOptionsRenameLimit ,
#if ENABLE_OVERLOADING
DiffFindOptionsRenameThresholdPropertyInfo,
#endif
constructDiffFindOptionsRenameThreshold ,
#if 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.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)
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
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 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 "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 (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy 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 ENABLE_OVERLOADING
data DiffFindOptionsCopyThresholdPropertyInfo
instance AttrInfo DiffFindOptionsCopyThresholdPropertyInfo where
type AttrAllowedOps DiffFindOptionsCopyThresholdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DiffFindOptionsCopyThresholdPropertyInfo = (~) Word32
type AttrBaseTypeConstraint DiffFindOptionsCopyThresholdPropertyInfo = IsDiffFindOptions
type AttrGetType DiffFindOptionsCopyThresholdPropertyInfo = Word32
type AttrLabel DiffFindOptionsCopyThresholdPropertyInfo = "copy-threshold"
type AttrOrigin DiffFindOptionsCopyThresholdPropertyInfo = DiffFindOptions
attrGet _ = getDiffFindOptionsCopyThreshold
attrSet _ = setDiffFindOptionsCopyThreshold
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 ENABLE_OVERLOADING
data DiffFindOptionsFlagsPropertyInfo
instance AttrInfo DiffFindOptionsFlagsPropertyInfo where
type AttrAllowedOps DiffFindOptionsFlagsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DiffFindOptionsFlagsPropertyInfo = (~) [Ggit.Flags.DiffFindFlags]
type AttrBaseTypeConstraint DiffFindOptionsFlagsPropertyInfo = IsDiffFindOptions
type AttrGetType DiffFindOptionsFlagsPropertyInfo = [Ggit.Flags.DiffFindFlags]
type AttrLabel DiffFindOptionsFlagsPropertyInfo = "flags"
type AttrOrigin DiffFindOptionsFlagsPropertyInfo = DiffFindOptions
attrGet _ = getDiffFindOptionsFlags
attrSet _ = setDiffFindOptionsFlags
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 ENABLE_OVERLOADING
data DiffFindOptionsMetricPropertyInfo
instance AttrInfo DiffFindOptionsMetricPropertyInfo where
type AttrAllowedOps DiffFindOptionsMetricPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DiffFindOptionsMetricPropertyInfo = (~) Ggit.DiffSimilarityMetric.DiffSimilarityMetric
type AttrBaseTypeConstraint DiffFindOptionsMetricPropertyInfo = IsDiffFindOptions
type AttrGetType DiffFindOptionsMetricPropertyInfo = (Maybe Ggit.DiffSimilarityMetric.DiffSimilarityMetric)
type AttrLabel DiffFindOptionsMetricPropertyInfo = "metric"
type AttrOrigin DiffFindOptionsMetricPropertyInfo = DiffFindOptions
attrGet _ = getDiffFindOptionsMetric
attrSet _ = setDiffFindOptionsMetric
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 ENABLE_OVERLOADING
data DiffFindOptionsRenameFromRewriteThresholdPropertyInfo
instance AttrInfo DiffFindOptionsRenameFromRewriteThresholdPropertyInfo where
type AttrAllowedOps DiffFindOptionsRenameFromRewriteThresholdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DiffFindOptionsRenameFromRewriteThresholdPropertyInfo = (~) Word32
type AttrBaseTypeConstraint DiffFindOptionsRenameFromRewriteThresholdPropertyInfo = IsDiffFindOptions
type AttrGetType DiffFindOptionsRenameFromRewriteThresholdPropertyInfo = Word32
type AttrLabel DiffFindOptionsRenameFromRewriteThresholdPropertyInfo = "rename-from-rewrite-threshold"
type AttrOrigin DiffFindOptionsRenameFromRewriteThresholdPropertyInfo = DiffFindOptions
attrGet _ = getDiffFindOptionsRenameFromRewriteThreshold
attrSet _ = setDiffFindOptionsRenameFromRewriteThreshold
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 ENABLE_OVERLOADING
data DiffFindOptionsRenameLimitPropertyInfo
instance AttrInfo DiffFindOptionsRenameLimitPropertyInfo where
type AttrAllowedOps DiffFindOptionsRenameLimitPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DiffFindOptionsRenameLimitPropertyInfo = (~) Word32
type AttrBaseTypeConstraint DiffFindOptionsRenameLimitPropertyInfo = IsDiffFindOptions
type AttrGetType DiffFindOptionsRenameLimitPropertyInfo = Word32
type AttrLabel DiffFindOptionsRenameLimitPropertyInfo = "rename-limit"
type AttrOrigin DiffFindOptionsRenameLimitPropertyInfo = DiffFindOptions
attrGet _ = getDiffFindOptionsRenameLimit
attrSet _ = setDiffFindOptionsRenameLimit
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 ENABLE_OVERLOADING
data DiffFindOptionsRenameThresholdPropertyInfo
instance AttrInfo DiffFindOptionsRenameThresholdPropertyInfo where
type AttrAllowedOps DiffFindOptionsRenameThresholdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DiffFindOptionsRenameThresholdPropertyInfo = (~) Word32
type AttrBaseTypeConstraint DiffFindOptionsRenameThresholdPropertyInfo = IsDiffFindOptions
type AttrGetType DiffFindOptionsRenameThresholdPropertyInfo = Word32
type AttrLabel DiffFindOptionsRenameThresholdPropertyInfo = "rename-threshold"
type AttrOrigin DiffFindOptionsRenameThresholdPropertyInfo = DiffFindOptions
attrGet _ = getDiffFindOptionsRenameThreshold
attrSet _ = setDiffFindOptionsRenameThreshold
attrConstruct _ = constructDiffFindOptionsRenameThreshold
attrClear _ = undefined
#endif
#if 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 ENABLE_OVERLOADING
data DiffFindOptionsSetRenameThresholdMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsDiffFindOptions a) => O.MethodInfo DiffFindOptionsSetRenameThresholdMethodInfo a signature where
overloadedMethod _ = diffFindOptionsSetRenameThreshold
#endif