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