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