{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances, EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} module HROOT.Graf.TGraphQQ.RawType where import Foreign.ForeignPtr import FFICXX.Runtime.Cast data RawTGraphQQ newtype TGraphQQ = TGraphQQ (ForeignPtr RawTGraphQQ) deriving (Eq, Ord, Show) instance FPtr TGraphQQ where type Raw TGraphQQ = RawTGraphQQ get_fptr (TGraphQQ fptr) = fptr cast_fptr_to_obj = TGraphQQ