{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.HarfBuzz.Structs.BlobT
(
BlobT(..) ,
#if defined(ENABLE_OVERLOADING)
ResolveBlobTMethod ,
#endif
) 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
newtype BlobT = BlobT (SP.ManagedPtr BlobT)
deriving (BlobT -> BlobT -> Bool
(BlobT -> BlobT -> Bool) -> (BlobT -> BlobT -> Bool) -> Eq BlobT
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: BlobT -> BlobT -> Bool
$c/= :: BlobT -> BlobT -> Bool
== :: BlobT -> BlobT -> Bool
$c== :: BlobT -> BlobT -> Bool
Eq)
instance SP.ManagedPtrNewtype BlobT where
toManagedPtr :: BlobT -> ManagedPtr BlobT
toManagedPtr (BlobT ManagedPtr BlobT
p) = ManagedPtr BlobT
p
foreign import ccall "hb_gobject_blob_get_type" c_hb_gobject_blob_get_type ::
IO GType
type instance O.ParentTypes BlobT = '[]
instance O.HasParentTypes BlobT
instance B.Types.TypedObject BlobT where
glibType :: IO GType
glibType = IO GType
c_hb_gobject_blob_get_type
instance B.Types.GBoxed BlobT
instance B.GValue.IsGValue BlobT where
toGValue :: BlobT -> IO GValue
toGValue BlobT
o = do
GType
gtype <- IO GType
c_hb_gobject_blob_get_type
BlobT -> (Ptr BlobT -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr BlobT
o (GType -> (GValue -> Ptr BlobT -> IO ()) -> Ptr BlobT -> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr BlobT -> IO ()
forall a. GValue -> Ptr a -> IO ()
B.GValue.set_boxed)
fromGValue :: GValue -> IO BlobT
fromGValue GValue
gv = do
Ptr BlobT
ptr <- GValue -> IO (Ptr BlobT)
forall b. GValue -> IO (Ptr b)
B.GValue.get_boxed GValue
gv :: IO (Ptr BlobT)
(ManagedPtr BlobT -> BlobT) -> Ptr BlobT -> IO BlobT
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
B.ManagedPtr.newBoxed ManagedPtr BlobT -> BlobT
BlobT Ptr BlobT
ptr
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList BlobT
type instance O.AttributeList BlobT = BlobTAttributeList
type BlobTAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveBlobTMethod (t :: Symbol) (o :: *) :: * where
ResolveBlobTMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveBlobTMethod t BlobT, O.MethodInfo info BlobT p) => OL.IsLabel t (BlobT -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif