{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Ggit.Structs.MergeOptions
(
MergeOptions(..) ,
#if defined(ENABLE_OVERLOADING)
ResolveMergeOptionsMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
MergeOptionsCopyMethodInfo ,
#endif
mergeOptionsCopy ,
#if defined(ENABLE_OVERLOADING)
MergeOptionsFreeMethodInfo ,
#endif
mergeOptionsFree ,
#if defined(ENABLE_OVERLOADING)
MergeOptionsGetFileFavorMethodInfo ,
#endif
mergeOptionsGetFileFavor ,
#if defined(ENABLE_OVERLOADING)
MergeOptionsGetFileFlagsMethodInfo ,
#endif
mergeOptionsGetFileFlags ,
#if defined(ENABLE_OVERLOADING)
MergeOptionsGetFlagsMethodInfo ,
#endif
mergeOptionsGetFlags ,
#if defined(ENABLE_OVERLOADING)
MergeOptionsGetRenameThresholdMethodInfo,
#endif
mergeOptionsGetRenameThreshold ,
#if defined(ENABLE_OVERLOADING)
MergeOptionsGetSimilarityMetricMethodInfo,
#endif
mergeOptionsGetSimilarityMetric ,
#if defined(ENABLE_OVERLOADING)
MergeOptionsGetTargetLimitMethodInfo ,
#endif
mergeOptionsGetTargetLimit ,
mergeOptionsNew ,
#if defined(ENABLE_OVERLOADING)
MergeOptionsSetFileFavorMethodInfo ,
#endif
mergeOptionsSetFileFavor ,
#if defined(ENABLE_OVERLOADING)
MergeOptionsSetFileFlagsMethodInfo ,
#endif
mergeOptionsSetFileFlags ,
#if defined(ENABLE_OVERLOADING)
MergeOptionsSetFlagsMethodInfo ,
#endif
mergeOptionsSetFlags ,
#if defined(ENABLE_OVERLOADING)
MergeOptionsSetRenameThresholdMethodInfo,
#endif
mergeOptionsSetRenameThreshold ,
#if defined(ENABLE_OVERLOADING)
MergeOptionsSetSimilarityMetricMethodInfo,
#endif
mergeOptionsSetSimilarityMetric ,
#if defined(ENABLE_OVERLOADING)
MergeOptionsSetTargetLimitMethodInfo ,
#endif
mergeOptionsSetTargetLimit ,
) 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.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
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 Control.Monad.IO.Class as MIO
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 GHC.Records as R
import {-# SOURCE #-} qualified GI.Ggit.Enums as Ggit.Enums
import {-# SOURCE #-} qualified GI.Ggit.Flags as Ggit.Flags
import {-# SOURCE #-} qualified GI.Ggit.Structs.DiffSimilarityMetric as Ggit.DiffSimilarityMetric
newtype MergeOptions = MergeOptions (SP.ManagedPtr MergeOptions)
deriving (MergeOptions -> MergeOptions -> Bool
(MergeOptions -> MergeOptions -> Bool)
-> (MergeOptions -> MergeOptions -> Bool) -> Eq MergeOptions
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MergeOptions -> MergeOptions -> Bool
$c/= :: MergeOptions -> MergeOptions -> Bool
== :: MergeOptions -> MergeOptions -> Bool
$c== :: MergeOptions -> MergeOptions -> Bool
Eq)
instance SP.ManagedPtrNewtype MergeOptions where
toManagedPtr :: MergeOptions -> ManagedPtr MergeOptions
toManagedPtr (MergeOptions ManagedPtr MergeOptions
p) = ManagedPtr MergeOptions
p
foreign import ccall "ggit_merge_options_get_type" c_ggit_merge_options_get_type ::
IO GType
type instance O.ParentTypes MergeOptions = '[]
instance O.HasParentTypes MergeOptions
instance B.Types.TypedObject MergeOptions where
glibType :: IO GType
glibType = IO GType
c_ggit_merge_options_get_type
instance B.Types.GBoxed MergeOptions
instance B.GValue.IsGValue (Maybe MergeOptions) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_ggit_merge_options_get_type
gvalueSet_ :: Ptr GValue -> Maybe MergeOptions -> IO ()
gvalueSet_ Ptr GValue
gv Maybe MergeOptions
P.Nothing = Ptr GValue -> Ptr MergeOptions -> IO ()
forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv (Ptr MergeOptions
forall a. Ptr a
FP.nullPtr :: FP.Ptr MergeOptions)
gvalueSet_ Ptr GValue
gv (P.Just MergeOptions
obj) = MergeOptions -> (Ptr MergeOptions -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr MergeOptions
obj (Ptr GValue -> Ptr MergeOptions -> IO ()
forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe MergeOptions)
gvalueGet_ Ptr GValue
gv = do
Ptr MergeOptions
ptr <- Ptr GValue -> IO (Ptr MergeOptions)
forall b. Ptr GValue -> IO (Ptr b)
B.GValue.get_boxed Ptr GValue
gv :: IO (Ptr MergeOptions)
if Ptr MergeOptions
ptr Ptr MergeOptions -> Ptr MergeOptions -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr MergeOptions
forall a. Ptr a
FP.nullPtr
then MergeOptions -> Maybe MergeOptions
forall a. a -> Maybe a
P.Just (MergeOptions -> Maybe MergeOptions)
-> IO MergeOptions -> IO (Maybe MergeOptions)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr MergeOptions -> MergeOptions)
-> Ptr MergeOptions -> IO MergeOptions
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
B.ManagedPtr.newBoxed ManagedPtr MergeOptions -> MergeOptions
MergeOptions Ptr MergeOptions
ptr
else Maybe MergeOptions -> IO (Maybe MergeOptions)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe MergeOptions
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList MergeOptions
type instance O.AttributeList MergeOptions = MergeOptionsAttributeList
type MergeOptionsAttributeList = ('[ ] :: [(Symbol, *)])
#endif
foreign import ccall "ggit_merge_options_new" ggit_merge_options_new ::
IO (Ptr MergeOptions)
mergeOptionsNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m MergeOptions
mergeOptionsNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m MergeOptions
mergeOptionsNew = IO MergeOptions -> m MergeOptions
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO MergeOptions -> m MergeOptions)
-> IO MergeOptions -> m MergeOptions
forall a b. (a -> b) -> a -> b
$ do
Ptr MergeOptions
result <- IO (Ptr MergeOptions)
ggit_merge_options_new
Text -> Ptr MergeOptions -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"mergeOptionsNew" Ptr MergeOptions
result
MergeOptions
result' <- ((ManagedPtr MergeOptions -> MergeOptions)
-> Ptr MergeOptions -> IO MergeOptions
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr MergeOptions -> MergeOptions
MergeOptions) Ptr MergeOptions
result
MergeOptions -> IO MergeOptions
forall (m :: * -> *) a. Monad m => a -> m a
return MergeOptions
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "ggit_merge_options_copy" ggit_merge_options_copy ::
Ptr MergeOptions ->
IO (Ptr MergeOptions)
mergeOptionsCopy ::
(B.CallStack.HasCallStack, MonadIO m) =>
MergeOptions
-> m (Maybe MergeOptions)
mergeOptionsCopy :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
MergeOptions -> m (Maybe MergeOptions)
mergeOptionsCopy MergeOptions
mergeOptions = IO (Maybe MergeOptions) -> m (Maybe MergeOptions)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe MergeOptions) -> m (Maybe MergeOptions))
-> IO (Maybe MergeOptions) -> m (Maybe MergeOptions)
forall a b. (a -> b) -> a -> b
$ do
Ptr MergeOptions
mergeOptions' <- MergeOptions -> IO (Ptr MergeOptions)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MergeOptions
mergeOptions
Ptr MergeOptions
result <- Ptr MergeOptions -> IO (Ptr MergeOptions)
ggit_merge_options_copy Ptr MergeOptions
mergeOptions'
Maybe MergeOptions
maybeResult <- Ptr MergeOptions
-> (Ptr MergeOptions -> IO MergeOptions) -> IO (Maybe MergeOptions)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr MergeOptions
result ((Ptr MergeOptions -> IO MergeOptions) -> IO (Maybe MergeOptions))
-> (Ptr MergeOptions -> IO MergeOptions) -> IO (Maybe MergeOptions)
forall a b. (a -> b) -> a -> b
$ \Ptr MergeOptions
result' -> do
MergeOptions
result'' <- ((ManagedPtr MergeOptions -> MergeOptions)
-> Ptr MergeOptions -> IO MergeOptions
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr MergeOptions -> MergeOptions
MergeOptions) Ptr MergeOptions
result'
MergeOptions -> IO MergeOptions
forall (m :: * -> *) a. Monad m => a -> m a
return MergeOptions
result''
MergeOptions -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MergeOptions
mergeOptions
Maybe MergeOptions -> IO (Maybe MergeOptions)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe MergeOptions
maybeResult
#if defined(ENABLE_OVERLOADING)
data MergeOptionsCopyMethodInfo
instance (signature ~ (m (Maybe MergeOptions)), MonadIO m) => O.OverloadedMethod MergeOptionsCopyMethodInfo MergeOptions signature where
overloadedMethod = mergeOptionsCopy
instance O.OverloadedMethodInfo MergeOptionsCopyMethodInfo MergeOptions where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Ggit.Structs.MergeOptions.mergeOptionsCopy",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-ggit-1.0.10/docs/GI-Ggit-Structs-MergeOptions.html#v:mergeOptionsCopy"
}
#endif
foreign import ccall "ggit_merge_options_free" ggit_merge_options_free ::
Ptr MergeOptions ->
IO ()
mergeOptionsFree ::
(B.CallStack.HasCallStack, MonadIO m) =>
MergeOptions
-> m ()
mergeOptionsFree :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
MergeOptions -> m ()
mergeOptionsFree MergeOptions
mergeOptions = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr MergeOptions
mergeOptions' <- MergeOptions -> IO (Ptr MergeOptions)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MergeOptions
mergeOptions
Ptr MergeOptions -> IO ()
ggit_merge_options_free Ptr MergeOptions
mergeOptions'
MergeOptions -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MergeOptions
mergeOptions
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MergeOptionsFreeMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.OverloadedMethod MergeOptionsFreeMethodInfo MergeOptions signature where
overloadedMethod = mergeOptionsFree
instance O.OverloadedMethodInfo MergeOptionsFreeMethodInfo MergeOptions where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Ggit.Structs.MergeOptions.mergeOptionsFree",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-ggit-1.0.10/docs/GI-Ggit-Structs-MergeOptions.html#v:mergeOptionsFree"
}
#endif
foreign import ccall "ggit_merge_options_get_file_favor" ggit_merge_options_get_file_favor ::
Ptr MergeOptions ->
IO CUInt
mergeOptionsGetFileFavor ::
(B.CallStack.HasCallStack, MonadIO m) =>
MergeOptions
-> m Ggit.Enums.MergeFileFavor
mergeOptionsGetFileFavor :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
MergeOptions -> m MergeFileFavor
mergeOptionsGetFileFavor MergeOptions
mergeOptions = IO MergeFileFavor -> m MergeFileFavor
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO MergeFileFavor -> m MergeFileFavor)
-> IO MergeFileFavor -> m MergeFileFavor
forall a b. (a -> b) -> a -> b
$ do
Ptr MergeOptions
mergeOptions' <- MergeOptions -> IO (Ptr MergeOptions)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MergeOptions
mergeOptions
CUInt
result <- Ptr MergeOptions -> IO CUInt
ggit_merge_options_get_file_favor Ptr MergeOptions
mergeOptions'
let result' :: MergeFileFavor
result' = (Int -> MergeFileFavor
forall a. Enum a => Int -> a
toEnum (Int -> MergeFileFavor)
-> (CUInt -> Int) -> CUInt -> MergeFileFavor
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
MergeOptions -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MergeOptions
mergeOptions
MergeFileFavor -> IO MergeFileFavor
forall (m :: * -> *) a. Monad m => a -> m a
return MergeFileFavor
result'
#if defined(ENABLE_OVERLOADING)
data MergeOptionsGetFileFavorMethodInfo
instance (signature ~ (m Ggit.Enums.MergeFileFavor), MonadIO m) => O.OverloadedMethod MergeOptionsGetFileFavorMethodInfo MergeOptions signature where
overloadedMethod = mergeOptionsGetFileFavor
instance O.OverloadedMethodInfo MergeOptionsGetFileFavorMethodInfo MergeOptions where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Ggit.Structs.MergeOptions.mergeOptionsGetFileFavor",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-ggit-1.0.10/docs/GI-Ggit-Structs-MergeOptions.html#v:mergeOptionsGetFileFavor"
}
#endif
foreign import ccall "ggit_merge_options_get_file_flags" ggit_merge_options_get_file_flags ::
Ptr MergeOptions ->
IO CUInt
mergeOptionsGetFileFlags ::
(B.CallStack.HasCallStack, MonadIO m) =>
MergeOptions
-> m [Ggit.Flags.MergeFileFlags]
mergeOptionsGetFileFlags :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
MergeOptions -> m [MergeFileFlags]
mergeOptionsGetFileFlags MergeOptions
mergeOptions = IO [MergeFileFlags] -> m [MergeFileFlags]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [MergeFileFlags] -> m [MergeFileFlags])
-> IO [MergeFileFlags] -> m [MergeFileFlags]
forall a b. (a -> b) -> a -> b
$ do
Ptr MergeOptions
mergeOptions' <- MergeOptions -> IO (Ptr MergeOptions)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MergeOptions
mergeOptions
CUInt
result <- Ptr MergeOptions -> IO CUInt
ggit_merge_options_get_file_flags Ptr MergeOptions
mergeOptions'
let result' :: [MergeFileFlags]
result' = CUInt -> [MergeFileFlags]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
result
MergeOptions -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MergeOptions
mergeOptions
[MergeFileFlags] -> IO [MergeFileFlags]
forall (m :: * -> *) a. Monad m => a -> m a
return [MergeFileFlags]
result'
#if defined(ENABLE_OVERLOADING)
data MergeOptionsGetFileFlagsMethodInfo
instance (signature ~ (m [Ggit.Flags.MergeFileFlags]), MonadIO m) => O.OverloadedMethod MergeOptionsGetFileFlagsMethodInfo MergeOptions signature where
overloadedMethod = mergeOptionsGetFileFlags
instance O.OverloadedMethodInfo MergeOptionsGetFileFlagsMethodInfo MergeOptions where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Ggit.Structs.MergeOptions.mergeOptionsGetFileFlags",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-ggit-1.0.10/docs/GI-Ggit-Structs-MergeOptions.html#v:mergeOptionsGetFileFlags"
}
#endif
foreign import ccall "ggit_merge_options_get_flags" ggit_merge_options_get_flags ::
Ptr MergeOptions ->
IO CUInt
mergeOptionsGetFlags ::
(B.CallStack.HasCallStack, MonadIO m) =>
MergeOptions
-> m [Ggit.Flags.MergeFlags]
mergeOptionsGetFlags :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
MergeOptions -> m [MergeFlags]
mergeOptionsGetFlags MergeOptions
mergeOptions = IO [MergeFlags] -> m [MergeFlags]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [MergeFlags] -> m [MergeFlags])
-> IO [MergeFlags] -> m [MergeFlags]
forall a b. (a -> b) -> a -> b
$ do
Ptr MergeOptions
mergeOptions' <- MergeOptions -> IO (Ptr MergeOptions)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MergeOptions
mergeOptions
CUInt
result <- Ptr MergeOptions -> IO CUInt
ggit_merge_options_get_flags Ptr MergeOptions
mergeOptions'
let result' :: [MergeFlags]
result' = CUInt -> [MergeFlags]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
result
MergeOptions -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MergeOptions
mergeOptions
[MergeFlags] -> IO [MergeFlags]
forall (m :: * -> *) a. Monad m => a -> m a
return [MergeFlags]
result'
#if defined(ENABLE_OVERLOADING)
data MergeOptionsGetFlagsMethodInfo
instance (signature ~ (m [Ggit.Flags.MergeFlags]), MonadIO m) => O.OverloadedMethod MergeOptionsGetFlagsMethodInfo MergeOptions signature where
overloadedMethod = mergeOptionsGetFlags
instance O.OverloadedMethodInfo MergeOptionsGetFlagsMethodInfo MergeOptions where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Ggit.Structs.MergeOptions.mergeOptionsGetFlags",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-ggit-1.0.10/docs/GI-Ggit-Structs-MergeOptions.html#v:mergeOptionsGetFlags"
}
#endif
foreign import ccall "ggit_merge_options_get_rename_threshold" ggit_merge_options_get_rename_threshold ::
Ptr MergeOptions ->
IO Word32
mergeOptionsGetRenameThreshold ::
(B.CallStack.HasCallStack, MonadIO m) =>
MergeOptions
-> m Word32
mergeOptionsGetRenameThreshold :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
MergeOptions -> m Word32
mergeOptionsGetRenameThreshold MergeOptions
mergeOptions = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr MergeOptions
mergeOptions' <- MergeOptions -> IO (Ptr MergeOptions)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MergeOptions
mergeOptions
Word32
result <- Ptr MergeOptions -> IO Word32
ggit_merge_options_get_rename_threshold Ptr MergeOptions
mergeOptions'
MergeOptions -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MergeOptions
mergeOptions
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data MergeOptionsGetRenameThresholdMethodInfo
instance (signature ~ (m Word32), MonadIO m) => O.OverloadedMethod MergeOptionsGetRenameThresholdMethodInfo MergeOptions signature where
overloadedMethod = mergeOptionsGetRenameThreshold
instance O.OverloadedMethodInfo MergeOptionsGetRenameThresholdMethodInfo MergeOptions where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Ggit.Structs.MergeOptions.mergeOptionsGetRenameThreshold",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-ggit-1.0.10/docs/GI-Ggit-Structs-MergeOptions.html#v:mergeOptionsGetRenameThreshold"
}
#endif
foreign import ccall "ggit_merge_options_get_similarity_metric" ggit_merge_options_get_similarity_metric ::
Ptr MergeOptions ->
IO (Ptr Ggit.DiffSimilarityMetric.DiffSimilarityMetric)
mergeOptionsGetSimilarityMetric ::
(B.CallStack.HasCallStack, MonadIO m) =>
MergeOptions
-> m (Maybe Ggit.DiffSimilarityMetric.DiffSimilarityMetric)
mergeOptionsGetSimilarityMetric :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
MergeOptions -> m (Maybe DiffSimilarityMetric)
mergeOptionsGetSimilarityMetric MergeOptions
mergeOptions = IO (Maybe DiffSimilarityMetric) -> m (Maybe DiffSimilarityMetric)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe DiffSimilarityMetric) -> m (Maybe DiffSimilarityMetric))
-> IO (Maybe DiffSimilarityMetric)
-> m (Maybe DiffSimilarityMetric)
forall a b. (a -> b) -> a -> b
$ do
Ptr MergeOptions
mergeOptions' <- MergeOptions -> IO (Ptr MergeOptions)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MergeOptions
mergeOptions
Ptr DiffSimilarityMetric
result <- Ptr MergeOptions -> IO (Ptr DiffSimilarityMetric)
ggit_merge_options_get_similarity_metric Ptr MergeOptions
mergeOptions'
Maybe DiffSimilarityMetric
maybeResult <- Ptr DiffSimilarityMetric
-> (Ptr DiffSimilarityMetric -> IO DiffSimilarityMetric)
-> IO (Maybe DiffSimilarityMetric)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr DiffSimilarityMetric
result ((Ptr DiffSimilarityMetric -> IO DiffSimilarityMetric)
-> IO (Maybe DiffSimilarityMetric))
-> (Ptr DiffSimilarityMetric -> IO DiffSimilarityMetric)
-> IO (Maybe DiffSimilarityMetric)
forall a b. (a -> b) -> a -> b
$ \Ptr DiffSimilarityMetric
result' -> do
DiffSimilarityMetric
result'' <- ((ManagedPtr DiffSimilarityMetric -> DiffSimilarityMetric)
-> Ptr DiffSimilarityMetric -> IO DiffSimilarityMetric
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr DiffSimilarityMetric -> DiffSimilarityMetric
Ggit.DiffSimilarityMetric.DiffSimilarityMetric) Ptr DiffSimilarityMetric
result'
DiffSimilarityMetric -> IO DiffSimilarityMetric
forall (m :: * -> *) a. Monad m => a -> m a
return DiffSimilarityMetric
result''
MergeOptions -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MergeOptions
mergeOptions
Maybe DiffSimilarityMetric -> IO (Maybe DiffSimilarityMetric)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe DiffSimilarityMetric
maybeResult
#if defined(ENABLE_OVERLOADING)
data MergeOptionsGetSimilarityMetricMethodInfo
instance (signature ~ (m (Maybe Ggit.DiffSimilarityMetric.DiffSimilarityMetric)), MonadIO m) => O.OverloadedMethod MergeOptionsGetSimilarityMetricMethodInfo MergeOptions signature where
overloadedMethod = mergeOptionsGetSimilarityMetric
instance O.OverloadedMethodInfo MergeOptionsGetSimilarityMetricMethodInfo MergeOptions where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Ggit.Structs.MergeOptions.mergeOptionsGetSimilarityMetric",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-ggit-1.0.10/docs/GI-Ggit-Structs-MergeOptions.html#v:mergeOptionsGetSimilarityMetric"
}
#endif
foreign import ccall "ggit_merge_options_get_target_limit" ggit_merge_options_get_target_limit ::
Ptr MergeOptions ->
IO Word32
mergeOptionsGetTargetLimit ::
(B.CallStack.HasCallStack, MonadIO m) =>
MergeOptions
-> m Word32
mergeOptionsGetTargetLimit :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
MergeOptions -> m Word32
mergeOptionsGetTargetLimit MergeOptions
mergeOptions = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr MergeOptions
mergeOptions' <- MergeOptions -> IO (Ptr MergeOptions)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MergeOptions
mergeOptions
Word32
result <- Ptr MergeOptions -> IO Word32
ggit_merge_options_get_target_limit Ptr MergeOptions
mergeOptions'
MergeOptions -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MergeOptions
mergeOptions
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data MergeOptionsGetTargetLimitMethodInfo
instance (signature ~ (m Word32), MonadIO m) => O.OverloadedMethod MergeOptionsGetTargetLimitMethodInfo MergeOptions signature where
overloadedMethod = mergeOptionsGetTargetLimit
instance O.OverloadedMethodInfo MergeOptionsGetTargetLimitMethodInfo MergeOptions where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Ggit.Structs.MergeOptions.mergeOptionsGetTargetLimit",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-ggit-1.0.10/docs/GI-Ggit-Structs-MergeOptions.html#v:mergeOptionsGetTargetLimit"
}
#endif
foreign import ccall "ggit_merge_options_set_file_favor" ggit_merge_options_set_file_favor ::
Ptr MergeOptions ->
CUInt ->
IO ()
mergeOptionsSetFileFavor ::
(B.CallStack.HasCallStack, MonadIO m) =>
MergeOptions
-> Ggit.Enums.MergeFileFavor
-> m ()
mergeOptionsSetFileFavor :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
MergeOptions -> MergeFileFavor -> m ()
mergeOptionsSetFileFavor MergeOptions
mergeOptions MergeFileFavor
fileFavor = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr MergeOptions
mergeOptions' <- MergeOptions -> IO (Ptr MergeOptions)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MergeOptions
mergeOptions
let fileFavor' :: CUInt
fileFavor' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (MergeFileFavor -> Int) -> MergeFileFavor -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. MergeFileFavor -> Int
forall a. Enum a => a -> Int
fromEnum) MergeFileFavor
fileFavor
Ptr MergeOptions -> CUInt -> IO ()
ggit_merge_options_set_file_favor Ptr MergeOptions
mergeOptions' CUInt
fileFavor'
MergeOptions -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MergeOptions
mergeOptions
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MergeOptionsSetFileFavorMethodInfo
instance (signature ~ (Ggit.Enums.MergeFileFavor -> m ()), MonadIO m) => O.OverloadedMethod MergeOptionsSetFileFavorMethodInfo MergeOptions signature where
overloadedMethod = mergeOptionsSetFileFavor
instance O.OverloadedMethodInfo MergeOptionsSetFileFavorMethodInfo MergeOptions where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Ggit.Structs.MergeOptions.mergeOptionsSetFileFavor",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-ggit-1.0.10/docs/GI-Ggit-Structs-MergeOptions.html#v:mergeOptionsSetFileFavor"
}
#endif
foreign import ccall "ggit_merge_options_set_file_flags" ggit_merge_options_set_file_flags ::
Ptr MergeOptions ->
CUInt ->
IO ()
mergeOptionsSetFileFlags ::
(B.CallStack.HasCallStack, MonadIO m) =>
MergeOptions
-> [Ggit.Flags.MergeFileFlags]
-> m ()
mergeOptionsSetFileFlags :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
MergeOptions -> [MergeFileFlags] -> m ()
mergeOptionsSetFileFlags MergeOptions
mergeOptions [MergeFileFlags]
fileFlags = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr MergeOptions
mergeOptions' <- MergeOptions -> IO (Ptr MergeOptions)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MergeOptions
mergeOptions
let fileFlags' :: CUInt
fileFlags' = [MergeFileFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [MergeFileFlags]
fileFlags
Ptr MergeOptions -> CUInt -> IO ()
ggit_merge_options_set_file_flags Ptr MergeOptions
mergeOptions' CUInt
fileFlags'
MergeOptions -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MergeOptions
mergeOptions
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MergeOptionsSetFileFlagsMethodInfo
instance (signature ~ ([Ggit.Flags.MergeFileFlags] -> m ()), MonadIO m) => O.OverloadedMethod MergeOptionsSetFileFlagsMethodInfo MergeOptions signature where
overloadedMethod = mergeOptionsSetFileFlags
instance O.OverloadedMethodInfo MergeOptionsSetFileFlagsMethodInfo MergeOptions where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Ggit.Structs.MergeOptions.mergeOptionsSetFileFlags",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-ggit-1.0.10/docs/GI-Ggit-Structs-MergeOptions.html#v:mergeOptionsSetFileFlags"
}
#endif
foreign import ccall "ggit_merge_options_set_flags" ggit_merge_options_set_flags ::
Ptr MergeOptions ->
CUInt ->
IO ()
mergeOptionsSetFlags ::
(B.CallStack.HasCallStack, MonadIO m) =>
MergeOptions
-> [Ggit.Flags.MergeFlags]
-> m ()
mergeOptionsSetFlags :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
MergeOptions -> [MergeFlags] -> m ()
mergeOptionsSetFlags MergeOptions
mergeOptions [MergeFlags]
flags = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr MergeOptions
mergeOptions' <- MergeOptions -> IO (Ptr MergeOptions)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MergeOptions
mergeOptions
let flags' :: CUInt
flags' = [MergeFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [MergeFlags]
flags
Ptr MergeOptions -> CUInt -> IO ()
ggit_merge_options_set_flags Ptr MergeOptions
mergeOptions' CUInt
flags'
MergeOptions -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MergeOptions
mergeOptions
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MergeOptionsSetFlagsMethodInfo
instance (signature ~ ([Ggit.Flags.MergeFlags] -> m ()), MonadIO m) => O.OverloadedMethod MergeOptionsSetFlagsMethodInfo MergeOptions signature where
overloadedMethod = mergeOptionsSetFlags
instance O.OverloadedMethodInfo MergeOptionsSetFlagsMethodInfo MergeOptions where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Ggit.Structs.MergeOptions.mergeOptionsSetFlags",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-ggit-1.0.10/docs/GI-Ggit-Structs-MergeOptions.html#v:mergeOptionsSetFlags"
}
#endif
foreign import ccall "ggit_merge_options_set_rename_threshold" ggit_merge_options_set_rename_threshold ::
Ptr MergeOptions ->
Word32 ->
IO ()
mergeOptionsSetRenameThreshold ::
(B.CallStack.HasCallStack, MonadIO m) =>
MergeOptions
-> Word32
-> m ()
mergeOptionsSetRenameThreshold :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
MergeOptions -> Word32 -> m ()
mergeOptionsSetRenameThreshold MergeOptions
mergeOptions Word32
renameThreshold = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr MergeOptions
mergeOptions' <- MergeOptions -> IO (Ptr MergeOptions)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MergeOptions
mergeOptions
Ptr MergeOptions -> Word32 -> IO ()
ggit_merge_options_set_rename_threshold Ptr MergeOptions
mergeOptions' Word32
renameThreshold
MergeOptions -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MergeOptions
mergeOptions
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MergeOptionsSetRenameThresholdMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m) => O.OverloadedMethod MergeOptionsSetRenameThresholdMethodInfo MergeOptions signature where
overloadedMethod = mergeOptionsSetRenameThreshold
instance O.OverloadedMethodInfo MergeOptionsSetRenameThresholdMethodInfo MergeOptions where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Ggit.Structs.MergeOptions.mergeOptionsSetRenameThreshold",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-ggit-1.0.10/docs/GI-Ggit-Structs-MergeOptions.html#v:mergeOptionsSetRenameThreshold"
}
#endif
foreign import ccall "ggit_merge_options_set_similarity_metric" ggit_merge_options_set_similarity_metric ::
Ptr MergeOptions ->
Ptr Ggit.DiffSimilarityMetric.DiffSimilarityMetric ->
IO ()
mergeOptionsSetSimilarityMetric ::
(B.CallStack.HasCallStack, MonadIO m) =>
MergeOptions
-> Ggit.DiffSimilarityMetric.DiffSimilarityMetric
-> m ()
mergeOptionsSetSimilarityMetric :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
MergeOptions -> DiffSimilarityMetric -> m ()
mergeOptionsSetSimilarityMetric MergeOptions
mergeOptions DiffSimilarityMetric
metric = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr MergeOptions
mergeOptions' <- MergeOptions -> IO (Ptr MergeOptions)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MergeOptions
mergeOptions
Ptr DiffSimilarityMetric
metric' <- DiffSimilarityMetric -> IO (Ptr DiffSimilarityMetric)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr DiffSimilarityMetric
metric
Ptr MergeOptions -> Ptr DiffSimilarityMetric -> IO ()
ggit_merge_options_set_similarity_metric Ptr MergeOptions
mergeOptions' Ptr DiffSimilarityMetric
metric'
MergeOptions -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MergeOptions
mergeOptions
DiffSimilarityMetric -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr DiffSimilarityMetric
metric
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MergeOptionsSetSimilarityMetricMethodInfo
instance (signature ~ (Ggit.DiffSimilarityMetric.DiffSimilarityMetric -> m ()), MonadIO m) => O.OverloadedMethod MergeOptionsSetSimilarityMetricMethodInfo MergeOptions signature where
overloadedMethod = mergeOptionsSetSimilarityMetric
instance O.OverloadedMethodInfo MergeOptionsSetSimilarityMetricMethodInfo MergeOptions where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Ggit.Structs.MergeOptions.mergeOptionsSetSimilarityMetric",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-ggit-1.0.10/docs/GI-Ggit-Structs-MergeOptions.html#v:mergeOptionsSetSimilarityMetric"
}
#endif
foreign import ccall "ggit_merge_options_set_target_limit" ggit_merge_options_set_target_limit ::
Ptr MergeOptions ->
Word32 ->
IO ()
mergeOptionsSetTargetLimit ::
(B.CallStack.HasCallStack, MonadIO m) =>
MergeOptions
-> Word32
-> m ()
mergeOptionsSetTargetLimit :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
MergeOptions -> Word32 -> m ()
mergeOptionsSetTargetLimit MergeOptions
mergeOptions Word32
targetLimit = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr MergeOptions
mergeOptions' <- MergeOptions -> IO (Ptr MergeOptions)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MergeOptions
mergeOptions
Ptr MergeOptions -> Word32 -> IO ()
ggit_merge_options_set_target_limit Ptr MergeOptions
mergeOptions' Word32
targetLimit
MergeOptions -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MergeOptions
mergeOptions
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MergeOptionsSetTargetLimitMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m) => O.OverloadedMethod MergeOptionsSetTargetLimitMethodInfo MergeOptions signature where
overloadedMethod = mergeOptionsSetTargetLimit
instance O.OverloadedMethodInfo MergeOptionsSetTargetLimitMethodInfo MergeOptions where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Ggit.Structs.MergeOptions.mergeOptionsSetTargetLimit",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-ggit-1.0.10/docs/GI-Ggit-Structs-MergeOptions.html#v:mergeOptionsSetTargetLimit"
}
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveMergeOptionsMethod (t :: Symbol) (o :: *) :: * where
ResolveMergeOptionsMethod "copy" o = MergeOptionsCopyMethodInfo
ResolveMergeOptionsMethod "free" o = MergeOptionsFreeMethodInfo
ResolveMergeOptionsMethod "getFileFavor" o = MergeOptionsGetFileFavorMethodInfo
ResolveMergeOptionsMethod "getFileFlags" o = MergeOptionsGetFileFlagsMethodInfo
ResolveMergeOptionsMethod "getFlags" o = MergeOptionsGetFlagsMethodInfo
ResolveMergeOptionsMethod "getRenameThreshold" o = MergeOptionsGetRenameThresholdMethodInfo
ResolveMergeOptionsMethod "getSimilarityMetric" o = MergeOptionsGetSimilarityMetricMethodInfo
ResolveMergeOptionsMethod "getTargetLimit" o = MergeOptionsGetTargetLimitMethodInfo
ResolveMergeOptionsMethod "setFileFavor" o = MergeOptionsSetFileFavorMethodInfo
ResolveMergeOptionsMethod "setFileFlags" o = MergeOptionsSetFileFlagsMethodInfo
ResolveMergeOptionsMethod "setFlags" o = MergeOptionsSetFlagsMethodInfo
ResolveMergeOptionsMethod "setRenameThreshold" o = MergeOptionsSetRenameThresholdMethodInfo
ResolveMergeOptionsMethod "setSimilarityMetric" o = MergeOptionsSetSimilarityMetricMethodInfo
ResolveMergeOptionsMethod "setTargetLimit" o = MergeOptionsSetTargetLimitMethodInfo
ResolveMergeOptionsMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveMergeOptionsMethod t MergeOptions, O.OverloadedMethod info MergeOptions p) => OL.IsLabel t (MergeOptions -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveMergeOptionsMethod t MergeOptions, O.OverloadedMethod info MergeOptions p, R.HasField t MergeOptions p) => R.HasField t MergeOptions p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveMergeOptionsMethod t MergeOptions, O.OverloadedMethodInfo info MergeOptions) => OL.IsLabel t (O.MethodProxy info MergeOptions) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif