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