#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.Ggit.Structs.DiffFile
(
DiffFile(..) ,
noDiffFile ,
#if ENABLE_OVERLOADING
DiffFileGetFlagsMethodInfo ,
#endif
diffFileGetFlags ,
#if ENABLE_OVERLOADING
DiffFileGetModeMethodInfo ,
#endif
diffFileGetMode ,
#if ENABLE_OVERLOADING
DiffFileGetOidMethodInfo ,
#endif
diffFileGetOid ,
#if ENABLE_OVERLOADING
DiffFileGetPathMethodInfo ,
#endif
diffFileGetPath ,
#if ENABLE_OVERLOADING
DiffFileGetSizeMethodInfo ,
#endif
diffFileGetSize ,
#if ENABLE_OVERLOADING
DiffFileRefMethodInfo ,
#endif
diffFileRef ,
#if 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.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)
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
noDiffFile :: Maybe DiffFile
noDiffFile = Nothing
#if 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 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 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 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 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 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 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 ENABLE_OVERLOADING
data DiffFileUnrefMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.MethodInfo DiffFileUnrefMethodInfo DiffFile signature where
overloadedMethod _ = diffFileUnref
#endif
#if 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 (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif