module GI.GLib.Structs.DebugKey
(
DebugKey(..) ,
noDebugKey ,
debugKeyReadKey ,
debugKeyReadValue ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.GLib.Types
import GI.GLib.Callbacks
newtype DebugKey = DebugKey (ForeignPtr DebugKey)
noDebugKey :: Maybe DebugKey
noDebugKey = Nothing
debugKeyReadKey :: DebugKey -> IO T.Text
debugKeyReadKey s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO CString
val' <- cstringToText val
return val'
debugKeyReadValue :: DebugKey -> IO Word32
debugKeyReadValue s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO Word32
return val