{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Ggit.Structs.DiffFile
(
DiffFile(..) ,
noDiffFile ,
#if defined(ENABLE_OVERLOADING)
ResolveDiffFileMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
DiffFileGetFlagsMethodInfo ,
#endif
diffFileGetFlags ,
#if defined(ENABLE_OVERLOADING)
DiffFileGetModeMethodInfo ,
#endif
diffFileGetMode ,
#if defined(ENABLE_OVERLOADING)
DiffFileGetOidMethodInfo ,
#endif
diffFileGetOid ,
#if defined(ENABLE_OVERLOADING)
DiffFileGetPathMethodInfo ,
#endif
diffFileGetPath ,
#if defined(ENABLE_OVERLOADING)
DiffFileGetSizeMethodInfo ,
#endif
diffFileGetSize ,
#if defined(ENABLE_OVERLOADING)
DiffFileRefMethodInfo ,
#endif
diffFileRef ,
#if defined(ENABLE_OVERLOADING)
DiffFileUnrefMethodInfo ,
#endif
diffFileUnref ,
) 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 {-# SOURCE #-} qualified GI.Ggit.Flags as Ggit.Flags
import {-# SOURCE #-} qualified GI.Ggit.Structs.OId as Ggit.OId
newtype DiffFile = DiffFile (ManagedPtr DiffFile)
deriving (Eq)
foreign import ccall "ggit_diff_file_get_type" c_ggit_diff_file_get_type ::
IO GType
instance BoxedObject DiffFile where
boxedType _ = c_ggit_diff_file_get_type
instance B.GValue.IsGValue DiffFile where
toGValue o = do
gtype <- c_ggit_diff_file_get_type
B.ManagedPtr.withManagedPtr o (B.GValue.buildGValue gtype B.GValue.set_boxed)
fromGValue gv = do
ptr <- B.GValue.get_boxed gv :: IO (Ptr DiffFile)
B.ManagedPtr.newBoxed DiffFile ptr
noDiffFile :: Maybe DiffFile
noDiffFile = Nothing
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList DiffFile
type instance O.AttributeList DiffFile = DiffFileAttributeList
type DiffFileAttributeList = ('[ ] :: [(Symbol, *)])
#endif
foreign import ccall "ggit_diff_file_get_flags" ggit_diff_file_get_flags ::
Ptr DiffFile ->
IO CUInt
diffFileGetFlags ::
(B.CallStack.HasCallStack, MonadIO m) =>
DiffFile
-> m [Ggit.Flags.DiffFlag]
diffFileGetFlags file = liftIO $ do
file' <- unsafeManagedPtrGetPtr file
result <- ggit_diff_file_get_flags file'
let result' = wordToGFlags result
touchManagedPtr file
return result'
#if defined(ENABLE_OVERLOADING)
data DiffFileGetFlagsMethodInfo
instance (signature ~ (m [Ggit.Flags.DiffFlag]), MonadIO m) => O.MethodInfo DiffFileGetFlagsMethodInfo DiffFile signature where
overloadedMethod = diffFileGetFlags
#endif
foreign import ccall "ggit_diff_file_get_mode" ggit_diff_file_get_mode ::
Ptr DiffFile ->
IO Word16
diffFileGetMode ::
(B.CallStack.HasCallStack, MonadIO m) =>
DiffFile
-> m Word16
diffFileGetMode file = liftIO $ do
file' <- unsafeManagedPtrGetPtr file
result <- ggit_diff_file_get_mode file'
touchManagedPtr file
return result
#if defined(ENABLE_OVERLOADING)
data DiffFileGetModeMethodInfo
instance (signature ~ (m Word16), MonadIO m) => O.MethodInfo DiffFileGetModeMethodInfo DiffFile signature where
overloadedMethod = diffFileGetMode
#endif
foreign import ccall "ggit_diff_file_get_oid" ggit_diff_file_get_oid ::
Ptr DiffFile ->
IO (Ptr Ggit.OId.OId)
diffFileGetOid ::
(B.CallStack.HasCallStack, MonadIO m) =>
DiffFile
-> m (Maybe Ggit.OId.OId)
diffFileGetOid file = liftIO $ do
file' <- unsafeManagedPtrGetPtr file
result <- ggit_diff_file_get_oid file'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newBoxed Ggit.OId.OId) result'
return result''
touchManagedPtr file
return maybeResult
#if defined(ENABLE_OVERLOADING)
data DiffFileGetOidMethodInfo
instance (signature ~ (m (Maybe Ggit.OId.OId)), MonadIO m) => O.MethodInfo DiffFileGetOidMethodInfo DiffFile signature where
overloadedMethod = diffFileGetOid
#endif
foreign import ccall "ggit_diff_file_get_path" ggit_diff_file_get_path ::
Ptr DiffFile ->
IO CString
diffFileGetPath ::
(B.CallStack.HasCallStack, MonadIO m) =>
DiffFile
-> m (Maybe T.Text)
diffFileGetPath file = liftIO $ do
file' <- unsafeManagedPtrGetPtr file
result <- ggit_diff_file_get_path file'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- cstringToText result'
return result''
touchManagedPtr file
return maybeResult
#if defined(ENABLE_OVERLOADING)
data DiffFileGetPathMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m) => O.MethodInfo DiffFileGetPathMethodInfo DiffFile signature where
overloadedMethod = diffFileGetPath
#endif
foreign import ccall "ggit_diff_file_get_size" ggit_diff_file_get_size ::
Ptr DiffFile ->
IO Int64
diffFileGetSize ::
(B.CallStack.HasCallStack, MonadIO m) =>
DiffFile
-> m Int64
diffFileGetSize file = liftIO $ do
file' <- unsafeManagedPtrGetPtr file
result <- ggit_diff_file_get_size file'
touchManagedPtr file
return result
#if defined(ENABLE_OVERLOADING)
data DiffFileGetSizeMethodInfo
instance (signature ~ (m Int64), MonadIO m) => O.MethodInfo DiffFileGetSizeMethodInfo DiffFile signature where
overloadedMethod = diffFileGetSize
#endif
foreign import ccall "ggit_diff_file_ref" ggit_diff_file_ref ::
Ptr DiffFile ->
IO (Ptr DiffFile)
diffFileRef ::
(B.CallStack.HasCallStack, MonadIO m) =>
DiffFile
-> m (Maybe DiffFile)
diffFileRef file = liftIO $ do
file' <- unsafeManagedPtrGetPtr file
result <- ggit_diff_file_ref file'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newBoxed DiffFile) result'
return result''
touchManagedPtr file
return maybeResult
#if defined(ENABLE_OVERLOADING)
data DiffFileRefMethodInfo
instance (signature ~ (m (Maybe DiffFile)), MonadIO m) => O.MethodInfo DiffFileRefMethodInfo DiffFile signature where
overloadedMethod = diffFileRef
#endif
foreign import ccall "ggit_diff_file_unref" ggit_diff_file_unref ::
Ptr DiffFile ->
IO ()
diffFileUnref ::
(B.CallStack.HasCallStack, MonadIO m) =>
DiffFile
-> m ()
diffFileUnref file = liftIO $ do
file' <- unsafeManagedPtrGetPtr file
ggit_diff_file_unref file'
touchManagedPtr file
return ()
#if defined(ENABLE_OVERLOADING)
data DiffFileUnrefMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.MethodInfo DiffFileUnrefMethodInfo DiffFile signature where
overloadedMethod = diffFileUnref
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveDiffFileMethod (t :: Symbol) (o :: *) :: * where
ResolveDiffFileMethod "ref" o = DiffFileRefMethodInfo
ResolveDiffFileMethod "unref" o = DiffFileUnrefMethodInfo
ResolveDiffFileMethod "getFlags" o = DiffFileGetFlagsMethodInfo
ResolveDiffFileMethod "getMode" o = DiffFileGetModeMethodInfo
ResolveDiffFileMethod "getOid" o = DiffFileGetOidMethodInfo
ResolveDiffFileMethod "getPath" o = DiffFileGetPathMethodInfo
ResolveDiffFileMethod "getSize" o = DiffFileGetSizeMethodInfo
ResolveDiffFileMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDiffFileMethod t DiffFile, O.MethodInfo info DiffFile p) => OL.IsLabel t (DiffFile -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif