{- |
Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte
License    : LGPL-2.1
Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)

Represents a git credential.
-}

module GI.Ggit.Objects.Cred
    ( 

-- * Exported types
    Cred(..)                                ,
    IsCred                                  ,
    toCred                                  ,
    noCred                                  ,


    ) 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.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
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 GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Ggit.Objects.Native as Ggit.Native
import {-# SOURCE #-} qualified GI.Ggit.Objects.ObjectFactoryBase as Ggit.ObjectFactoryBase

newtype Cred = Cred (ManagedPtr Cred)
foreign import ccall "ggit_cred_get_type"
    c_ggit_cred_get_type :: IO GType

instance GObject Cred where
    gobjectType _ = c_ggit_cred_get_type
    

class GObject o => IsCred o
#if MIN_VERSION_base(4,9,0)
instance {-# OVERLAPPABLE #-} (GObject a, O.UnknownAncestorError Cred a) =>
    IsCred a
#endif
instance IsCred Cred
instance Ggit.Native.IsNative Cred
instance Ggit.ObjectFactoryBase.IsObjectFactoryBase Cred
instance GObject.Object.IsObject Cred

toCred :: (MonadIO m, IsCred o) => o -> m Cred
toCred = liftIO . unsafeCastTo Cred

noCred :: Maybe Cred
noCred = Nothing

#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
type family ResolveCredMethod (t :: Symbol) (o :: *) :: * where
    ResolveCredMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
    ResolveCredMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
    ResolveCredMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
    ResolveCredMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
    ResolveCredMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
    ResolveCredMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
    ResolveCredMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
    ResolveCredMethod "ref" o = GObject.Object.ObjectRefMethodInfo
    ResolveCredMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
    ResolveCredMethod "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
    ResolveCredMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
    ResolveCredMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
    ResolveCredMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
    ResolveCredMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
    ResolveCredMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
    ResolveCredMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
    ResolveCredMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
    ResolveCredMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
    ResolveCredMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
    ResolveCredMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
    ResolveCredMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
    ResolveCredMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
    ResolveCredMethod l o = O.MethodResolutionFailed l o

instance (info ~ ResolveCredMethod t Cred, O.MethodInfo info Cred p) => O.IsLabelProxy t (Cred -> p) where
    fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)

#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveCredMethod t Cred, O.MethodInfo info Cred p) => O.IsLabel t (Cred -> 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

#endif

#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
instance O.HasAttributeList Cred
type instance O.AttributeList Cred = CredAttributeList
type CredAttributeList = ('[ '("native", Ggit.Native.NativeNativePropertyInfo)] :: [(Symbol, *)])
#endif

#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
#endif

#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
type instance O.SignalList Cred = CredSignalList
type CredSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])

#endif