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