{-# LANGUAGE TypeApplications #-}


-- | Copyright  : Will Thompson and Iñaki García Etxebarria
-- License    : LGPL-2.1
-- Maintainer : Iñaki García Etxebarria
-- 
-- Represents a blob stream object.

#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif

module GI.Ggit.Objects.BlobOutputStream
    ( 

-- * Exported types
    BlobOutputStream(..)                    ,
    IsBlobOutputStream                      ,
    toBlobOutputStream                      ,


 -- * Methods
-- | 
-- 
--  === __Click to display all available methods, including inherited ones__
-- ==== Methods
-- [bindProperty]("GI.GObject.Objects.Object#g:method:bindProperty"), [bindPropertyFull]("GI.GObject.Objects.Object#g:method:bindPropertyFull"), [clearPending]("GI.Gio.Objects.OutputStream#g:method:clearPending"), [close]("GI.Gio.Objects.OutputStream#g:method:close"), [closeAsync]("GI.Gio.Objects.OutputStream#g:method:closeAsync"), [closeFinish]("GI.Gio.Objects.OutputStream#g:method:closeFinish"), [flush]("GI.Gio.Objects.OutputStream#g:method:flush"), [flushAsync]("GI.Gio.Objects.OutputStream#g:method:flushAsync"), [flushFinish]("GI.Gio.Objects.OutputStream#g:method:flushFinish"), [forceFloating]("GI.GObject.Objects.Object#g:method:forceFloating"), [freezeNotify]("GI.GObject.Objects.Object#g:method:freezeNotify"), [getv]("GI.GObject.Objects.Object#g:method:getv"), [hasPending]("GI.Gio.Objects.OutputStream#g:method:hasPending"), [isClosed]("GI.Gio.Objects.OutputStream#g:method:isClosed"), [isClosing]("GI.Gio.Objects.OutputStream#g:method:isClosing"), [isFloating]("GI.GObject.Objects.Object#g:method:isFloating"), [notify]("GI.GObject.Objects.Object#g:method:notify"), [notifyByPspec]("GI.GObject.Objects.Object#g:method:notifyByPspec"), [ref]("GI.GObject.Objects.Object#g:method:ref"), [refSink]("GI.GObject.Objects.Object#g:method:refSink"), [runDispose]("GI.GObject.Objects.Object#g:method:runDispose"), [splice]("GI.Gio.Objects.OutputStream#g:method:splice"), [spliceAsync]("GI.Gio.Objects.OutputStream#g:method:spliceAsync"), [spliceFinish]("GI.Gio.Objects.OutputStream#g:method:spliceFinish"), [stealData]("GI.GObject.Objects.Object#g:method:stealData"), [stealQdata]("GI.GObject.Objects.Object#g:method:stealQdata"), [thawNotify]("GI.GObject.Objects.Object#g:method:thawNotify"), [unref]("GI.GObject.Objects.Object#g:method:unref"), [watchClosure]("GI.GObject.Objects.Object#g:method:watchClosure"), [write]("GI.Gio.Objects.OutputStream#g:method:write"), [writeAll]("GI.Gio.Objects.OutputStream#g:method:writeAll"), [writeAllAsync]("GI.Gio.Objects.OutputStream#g:method:writeAllAsync"), [writeAllFinish]("GI.Gio.Objects.OutputStream#g:method:writeAllFinish"), [writeAsync]("GI.Gio.Objects.OutputStream#g:method:writeAsync"), [writeBytes]("GI.Gio.Objects.OutputStream#g:method:writeBytes"), [writeBytesAsync]("GI.Gio.Objects.OutputStream#g:method:writeBytesAsync"), [writeBytesFinish]("GI.Gio.Objects.OutputStream#g:method:writeBytesFinish"), [writeFinish]("GI.Gio.Objects.OutputStream#g:method:writeFinish"), [writev]("GI.Gio.Objects.OutputStream#g:method:writev"), [writevAll]("GI.Gio.Objects.OutputStream#g:method:writevAll"), [writevAllAsync]("GI.Gio.Objects.OutputStream#g:method:writevAllAsync"), [writevAllFinish]("GI.Gio.Objects.OutputStream#g:method:writevAllFinish"), [writevAsync]("GI.Gio.Objects.OutputStream#g:method:writevAsync"), [writevFinish]("GI.Gio.Objects.OutputStream#g:method:writevFinish").
-- 
-- ==== Getters
-- [getData]("GI.GObject.Objects.Object#g:method:getData"), [getId]("GI.Ggit.Objects.BlobOutputStream#g:method:getId"), [getProperty]("GI.GObject.Objects.Object#g:method:getProperty"), [getQdata]("GI.GObject.Objects.Object#g:method:getQdata").
-- 
-- ==== Setters
-- [setData]("GI.GObject.Objects.Object#g:method:setData"), [setDataFull]("GI.GObject.Objects.Object#g:method:setDataFull"), [setPending]("GI.Gio.Objects.OutputStream#g:method:setPending"), [setProperty]("GI.GObject.Objects.Object#g:method:setProperty").

#if defined(ENABLE_OVERLOADING)
    ResolveBlobOutputStreamMethod           ,
#endif

-- ** getId #method:getId#

#if defined(ENABLE_OVERLOADING)
    BlobOutputStreamGetIdMethodInfo         ,
#endif
    blobOutputStreamGetId                   ,




 -- * Properties


-- ** repository #attr:repository#
-- | /No description available in the introspection data./

#if defined(ENABLE_OVERLOADING)
    BlobOutputStreamRepositoryPropertyInfo  ,
#endif
#if defined(ENABLE_OVERLOADING)
    blobOutputStreamRepository              ,
#endif
    constructBlobOutputStreamRepository     ,




    ) 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.GHashTable as B.GHT
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.Coerce as Coerce
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 qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Ggit.Objects.Repository as Ggit.Repository
import {-# SOURCE #-} qualified GI.Ggit.Structs.OId as Ggit.OId
import qualified GI.Gio.Objects.OutputStream as Gio.OutputStream

-- | Memory-managed wrapper type.
newtype BlobOutputStream = BlobOutputStream (SP.ManagedPtr BlobOutputStream)
    deriving (BlobOutputStream -> BlobOutputStream -> Bool
(BlobOutputStream -> BlobOutputStream -> Bool)
-> (BlobOutputStream -> BlobOutputStream -> Bool)
-> Eq BlobOutputStream
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: BlobOutputStream -> BlobOutputStream -> Bool
== :: BlobOutputStream -> BlobOutputStream -> Bool
$c/= :: BlobOutputStream -> BlobOutputStream -> Bool
/= :: BlobOutputStream -> BlobOutputStream -> Bool
Eq)

instance SP.ManagedPtrNewtype BlobOutputStream where
    toManagedPtr :: BlobOutputStream -> ManagedPtr BlobOutputStream
toManagedPtr (BlobOutputStream ManagedPtr BlobOutputStream
p) = ManagedPtr BlobOutputStream
p

foreign import ccall "ggit_blob_output_stream_get_type"
    c_ggit_blob_output_stream_get_type :: IO B.Types.GType

instance B.Types.TypedObject BlobOutputStream where
    glibType :: IO GType
glibType = IO GType
c_ggit_blob_output_stream_get_type

instance B.Types.GObject BlobOutputStream

-- | Type class for types which can be safely cast to `BlobOutputStream`, for instance with `toBlobOutputStream`.
class (SP.GObject o, O.IsDescendantOf BlobOutputStream o) => IsBlobOutputStream o
instance (SP.GObject o, O.IsDescendantOf BlobOutputStream o) => IsBlobOutputStream o

instance O.HasParentTypes BlobOutputStream
type instance O.ParentTypes BlobOutputStream = '[Gio.OutputStream.OutputStream, GObject.Object.Object]

-- | Cast to `BlobOutputStream`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.
toBlobOutputStream :: (MIO.MonadIO m, IsBlobOutputStream o) => o -> m BlobOutputStream
toBlobOutputStream :: forall (m :: * -> *) o.
(MonadIO m, IsBlobOutputStream o) =>
o -> m BlobOutputStream
toBlobOutputStream = IO BlobOutputStream -> m BlobOutputStream
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO BlobOutputStream -> m BlobOutputStream)
-> (o -> IO BlobOutputStream) -> o -> m BlobOutputStream
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr BlobOutputStream -> BlobOutputStream)
-> o -> IO BlobOutputStream
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
 ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr BlobOutputStream -> BlobOutputStream
BlobOutputStream

-- | Convert 'BlobOutputStream' to and from 'Data.GI.Base.GValue.GValue'. See 'Data.GI.Base.GValue.toGValue' and 'Data.GI.Base.GValue.fromGValue'.
instance B.GValue.IsGValue (Maybe BlobOutputStream) where
    gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_ggit_blob_output_stream_get_type
    gvalueSet_ :: Ptr GValue -> Maybe BlobOutputStream -> IO ()
gvalueSet_ Ptr GValue
gv Maybe BlobOutputStream
P.Nothing = Ptr GValue -> Ptr BlobOutputStream -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr BlobOutputStream
forall a. Ptr a
FP.nullPtr :: FP.Ptr BlobOutputStream)
    gvalueSet_ Ptr GValue
gv (P.Just BlobOutputStream
obj) = BlobOutputStream -> (Ptr BlobOutputStream -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr BlobOutputStream
obj (Ptr GValue -> Ptr BlobOutputStream -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
    gvalueGet_ :: Ptr GValue -> IO (Maybe BlobOutputStream)
gvalueGet_ Ptr GValue
gv = do
        Ptr BlobOutputStream
ptr <- Ptr GValue -> IO (Ptr BlobOutputStream)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr BlobOutputStream)
        if Ptr BlobOutputStream
ptr Ptr BlobOutputStream -> Ptr BlobOutputStream -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr BlobOutputStream
forall a. Ptr a
FP.nullPtr
        then BlobOutputStream -> Maybe BlobOutputStream
forall a. a -> Maybe a
P.Just (BlobOutputStream -> Maybe BlobOutputStream)
-> IO BlobOutputStream -> IO (Maybe BlobOutputStream)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr BlobOutputStream -> BlobOutputStream)
-> Ptr BlobOutputStream -> IO BlobOutputStream
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr BlobOutputStream -> BlobOutputStream
BlobOutputStream Ptr BlobOutputStream
ptr
        else Maybe BlobOutputStream -> IO (Maybe BlobOutputStream)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe BlobOutputStream
forall a. Maybe a
P.Nothing
        
    

#if defined(ENABLE_OVERLOADING)
type family ResolveBlobOutputStreamMethod (t :: Symbol) (o :: *) :: * where
    ResolveBlobOutputStreamMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
    ResolveBlobOutputStreamMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
    ResolveBlobOutputStreamMethod "clearPending" o = Gio.OutputStream.OutputStreamClearPendingMethodInfo
    ResolveBlobOutputStreamMethod "close" o = Gio.OutputStream.OutputStreamCloseMethodInfo
    ResolveBlobOutputStreamMethod "closeAsync" o = Gio.OutputStream.OutputStreamCloseAsyncMethodInfo
    ResolveBlobOutputStreamMethod "closeFinish" o = Gio.OutputStream.OutputStreamCloseFinishMethodInfo
    ResolveBlobOutputStreamMethod "flush" o = Gio.OutputStream.OutputStreamFlushMethodInfo
    ResolveBlobOutputStreamMethod "flushAsync" o = Gio.OutputStream.OutputStreamFlushAsyncMethodInfo
    ResolveBlobOutputStreamMethod "flushFinish" o = Gio.OutputStream.OutputStreamFlushFinishMethodInfo
    ResolveBlobOutputStreamMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
    ResolveBlobOutputStreamMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
    ResolveBlobOutputStreamMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
    ResolveBlobOutputStreamMethod "hasPending" o = Gio.OutputStream.OutputStreamHasPendingMethodInfo
    ResolveBlobOutputStreamMethod "isClosed" o = Gio.OutputStream.OutputStreamIsClosedMethodInfo
    ResolveBlobOutputStreamMethod "isClosing" o = Gio.OutputStream.OutputStreamIsClosingMethodInfo
    ResolveBlobOutputStreamMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
    ResolveBlobOutputStreamMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
    ResolveBlobOutputStreamMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
    ResolveBlobOutputStreamMethod "ref" o = GObject.Object.ObjectRefMethodInfo
    ResolveBlobOutputStreamMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
    ResolveBlobOutputStreamMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
    ResolveBlobOutputStreamMethod "splice" o = Gio.OutputStream.OutputStreamSpliceMethodInfo
    ResolveBlobOutputStreamMethod "spliceAsync" o = Gio.OutputStream.OutputStreamSpliceAsyncMethodInfo
    ResolveBlobOutputStreamMethod "spliceFinish" o = Gio.OutputStream.OutputStreamSpliceFinishMethodInfo
    ResolveBlobOutputStreamMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
    ResolveBlobOutputStreamMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
    ResolveBlobOutputStreamMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
    ResolveBlobOutputStreamMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
    ResolveBlobOutputStreamMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
    ResolveBlobOutputStreamMethod "write" o = Gio.OutputStream.OutputStreamWriteMethodInfo
    ResolveBlobOutputStreamMethod "writeAll" o = Gio.OutputStream.OutputStreamWriteAllMethodInfo
    ResolveBlobOutputStreamMethod "writeAllAsync" o = Gio.OutputStream.OutputStreamWriteAllAsyncMethodInfo
    ResolveBlobOutputStreamMethod "writeAllFinish" o = Gio.OutputStream.OutputStreamWriteAllFinishMethodInfo
    ResolveBlobOutputStreamMethod "writeAsync" o = Gio.OutputStream.OutputStreamWriteAsyncMethodInfo
    ResolveBlobOutputStreamMethod "writeBytes" o = Gio.OutputStream.OutputStreamWriteBytesMethodInfo
    ResolveBlobOutputStreamMethod "writeBytesAsync" o = Gio.OutputStream.OutputStreamWriteBytesAsyncMethodInfo
    ResolveBlobOutputStreamMethod "writeBytesFinish" o = Gio.OutputStream.OutputStreamWriteBytesFinishMethodInfo
    ResolveBlobOutputStreamMethod "writeFinish" o = Gio.OutputStream.OutputStreamWriteFinishMethodInfo
    ResolveBlobOutputStreamMethod "writev" o = Gio.OutputStream.OutputStreamWritevMethodInfo
    ResolveBlobOutputStreamMethod "writevAll" o = Gio.OutputStream.OutputStreamWritevAllMethodInfo
    ResolveBlobOutputStreamMethod "writevAllAsync" o = Gio.OutputStream.OutputStreamWritevAllAsyncMethodInfo
    ResolveBlobOutputStreamMethod "writevAllFinish" o = Gio.OutputStream.OutputStreamWritevAllFinishMethodInfo
    ResolveBlobOutputStreamMethod "writevAsync" o = Gio.OutputStream.OutputStreamWritevAsyncMethodInfo
    ResolveBlobOutputStreamMethod "writevFinish" o = Gio.OutputStream.OutputStreamWritevFinishMethodInfo
    ResolveBlobOutputStreamMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
    ResolveBlobOutputStreamMethod "getId" o = BlobOutputStreamGetIdMethodInfo
    ResolveBlobOutputStreamMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
    ResolveBlobOutputStreamMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
    ResolveBlobOutputStreamMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
    ResolveBlobOutputStreamMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
    ResolveBlobOutputStreamMethod "setPending" o = Gio.OutputStream.OutputStreamSetPendingMethodInfo
    ResolveBlobOutputStreamMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
    ResolveBlobOutputStreamMethod l o = O.MethodResolutionFailed l o

instance (info ~ ResolveBlobOutputStreamMethod t BlobOutputStream, O.OverloadedMethod info BlobOutputStream p) => OL.IsLabel t (BlobOutputStream -> 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 ~ ResolveBlobOutputStreamMethod t BlobOutputStream, O.OverloadedMethod info BlobOutputStream p, R.HasField t BlobOutputStream p) => R.HasField t BlobOutputStream p where
    getField = O.overloadedMethod @info

#endif

instance (info ~ ResolveBlobOutputStreamMethod t BlobOutputStream, O.OverloadedMethodInfo info BlobOutputStream) => OL.IsLabel t (O.MethodProxy info BlobOutputStream) where
#if MIN_VERSION_base(4,10,0)
    fromLabel = O.MethodProxy
#else
    fromLabel _ = O.MethodProxy
#endif

#endif

-- VVV Prop "repository"
   -- Type: TInterface (Name {namespace = "Ggit", name = "Repository"})
   -- Flags: [PropertyWritable,PropertyConstructOnly]
   -- Nullable: (Nothing,Nothing)

-- | Construct a `GValueConstruct` with valid value for the “@repository@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.
constructBlobOutputStreamRepository :: (IsBlobOutputStream o, MIO.MonadIO m, Ggit.Repository.IsRepository a) => a -> m (GValueConstruct o)
constructBlobOutputStreamRepository :: forall o (m :: * -> *) a.
(IsBlobOutputStream o, MonadIO m, IsRepository a) =>
a -> m (GValueConstruct o)
constructBlobOutputStreamRepository a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
    IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"repository" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)

#if defined(ENABLE_OVERLOADING)
data BlobOutputStreamRepositoryPropertyInfo
instance AttrInfo BlobOutputStreamRepositoryPropertyInfo where
    type AttrAllowedOps BlobOutputStreamRepositoryPropertyInfo = '[ 'AttrConstruct, 'AttrClear]
    type AttrBaseTypeConstraint BlobOutputStreamRepositoryPropertyInfo = IsBlobOutputStream
    type AttrSetTypeConstraint BlobOutputStreamRepositoryPropertyInfo = Ggit.Repository.IsRepository
    type AttrTransferTypeConstraint BlobOutputStreamRepositoryPropertyInfo = Ggit.Repository.IsRepository
    type AttrTransferType BlobOutputStreamRepositoryPropertyInfo = Ggit.Repository.Repository
    type AttrGetType BlobOutputStreamRepositoryPropertyInfo = ()
    type AttrLabel BlobOutputStreamRepositoryPropertyInfo = "repository"
    type AttrOrigin BlobOutputStreamRepositoryPropertyInfo = BlobOutputStream
    attrGet = undefined
    attrSet = undefined
    attrTransfer _ v = do
        unsafeCastTo Ggit.Repository.Repository v
    attrConstruct = constructBlobOutputStreamRepository
    attrClear = undefined
    dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.Ggit.Objects.BlobOutputStream.repository"
        , O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ggit-1.0.12/docs/GI-Ggit-Objects-BlobOutputStream.html#g:attr:repository"
        })
#endif

#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList BlobOutputStream
type instance O.AttributeList BlobOutputStream = BlobOutputStreamAttributeList
type BlobOutputStreamAttributeList = ('[ '("repository", BlobOutputStreamRepositoryPropertyInfo)] :: [(Symbol, *)])
#endif

#if defined(ENABLE_OVERLOADING)
blobOutputStreamRepository :: AttrLabelProxy "repository"
blobOutputStreamRepository = AttrLabelProxy

#endif

#if defined(ENABLE_OVERLOADING)
type instance O.SignalList BlobOutputStream = BlobOutputStreamSignalList
type BlobOutputStreamSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])

#endif

-- method BlobOutputStream::get_id
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "stream"
--           , argType =
--               TInterface Name { namespace = "Ggit" , name = "BlobOutputStream" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "a #GgitBlobOutputStream."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TInterface Name { namespace = "Ggit" , name = "OId" })
-- throws : True
-- Skip return : False

foreign import ccall "ggit_blob_output_stream_get_id" ggit_blob_output_stream_get_id :: 
    Ptr BlobOutputStream ->                 -- stream : TInterface (Name {namespace = "Ggit", name = "BlobOutputStream"})
    Ptr (Ptr GError) ->                     -- error
    IO (Ptr Ggit.OId.OId)

-- | Get the id of the written blob. The blob id is only available after the
-- stream has been properly closed. If an error occurred while writing the blob,
-- the 'P.Nothing' is returned and /@error@/ is set accordingly.
blobOutputStreamGetId ::
    (B.CallStack.HasCallStack, MonadIO m, IsBlobOutputStream a) =>
    a
    -- ^ /@stream@/: a t'GI.Ggit.Objects.BlobOutputStream.BlobOutputStream'.
    -> m (Maybe Ggit.OId.OId)
    -- ^ __Returns:__ a t'GI.Ggit.Structs.OId.OId' or 'P.Nothing'. /(Can throw 'Data.GI.Base.GError.GError')/
blobOutputStreamGetId :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBlobOutputStream a) =>
a -> m (Maybe OId)
blobOutputStreamGetId a
stream = IO (Maybe OId) -> m (Maybe OId)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe OId) -> m (Maybe OId))
-> IO (Maybe OId) -> m (Maybe OId)
forall a b. (a -> b) -> a -> b
$ do
    Ptr BlobOutputStream
stream' <- a -> IO (Ptr BlobOutputStream)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stream
    IO (Maybe OId) -> IO () -> IO (Maybe OId)
forall a b. IO a -> IO b -> IO a
onException (do
        Ptr OId
result <- (Ptr (Ptr GError) -> IO (Ptr OId)) -> IO (Ptr OId)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr OId)) -> IO (Ptr OId))
-> (Ptr (Ptr GError) -> IO (Ptr OId)) -> IO (Ptr OId)
forall a b. (a -> b) -> a -> b
$ Ptr BlobOutputStream -> Ptr (Ptr GError) -> IO (Ptr OId)
ggit_blob_output_stream_get_id Ptr BlobOutputStream
stream'
        Maybe OId
maybeResult <- Ptr OId -> (Ptr OId -> IO OId) -> IO (Maybe OId)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr OId
result ((Ptr OId -> IO OId) -> IO (Maybe OId))
-> (Ptr OId -> IO OId) -> IO (Maybe OId)
forall a b. (a -> b) -> a -> b
$ \Ptr OId
result' -> do
            OId
result'' <- ((ManagedPtr OId -> OId) -> Ptr OId -> IO OId
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr OId -> OId
Ggit.OId.OId) Ptr OId
result'
            OId -> IO OId
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return OId
result''
        a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stream
        Maybe OId -> IO (Maybe OId)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe OId
maybeResult
     ) (do
        () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
     )

#if defined(ENABLE_OVERLOADING)
data BlobOutputStreamGetIdMethodInfo
instance (signature ~ (m (Maybe Ggit.OId.OId)), MonadIO m, IsBlobOutputStream a) => O.OverloadedMethod BlobOutputStreamGetIdMethodInfo a signature where
    overloadedMethod = blobOutputStreamGetId

instance O.OverloadedMethodInfo BlobOutputStreamGetIdMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.Ggit.Objects.BlobOutputStream.blobOutputStreamGetId",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ggit-1.0.12/docs/GI-Ggit-Objects-BlobOutputStream.html#v:blobOutputStreamGetId"
        })


#endif