module GI.Gtk.Structs.BindingArg
(
BindingArg(..) ,
noBindingArg ,
bindingArgReadArgType ,
) 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.Gtk.Types
import GI.Gtk.Callbacks
newtype BindingArg = BindingArg (ForeignPtr BindingArg)
noBindingArg :: Maybe BindingArg
noBindingArg = Nothing
bindingArgReadArgType :: BindingArg -> IO GType
bindingArgReadArgType s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO CGType
let val' = GType val
return val'