{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances, EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} module HROOT.Class.TH3I.RawType where -- import Foreign.Ptr import Foreign.ForeignPtr -- import Foreign.Marshal.Array import HROOT.TypeCast data RawTH3I newtype TH3I = TH3I (ForeignPtr RawTH3I) deriving (Eq, Ord, Show) instance FPtr TH3I where type Raw TH3I = RawTH3I get_fptr (TH3I fptr) = fptr cast_fptr_to_obj = TH3I