{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances, EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} -- module HROOT.Class.Interface where module HROOT.Class.TH1I.Interface where import Data.Word import Foreign.ForeignPtr import HROOT.TypeCast import HROOT.Class.TH1I.RawType import HROOT.Class.TH1.Interface import HROOT.Class.TArrayI.Interface class (ITH1 a,ITArrayI a) => ITH1I a where instance Existable TH1I where data Exist TH1I = forall a. (FPtr a, ITH1I a) => ETH1I a upcastTH1I :: (FPtr a, ITH1I a) => a -> TH1I upcastTH1I h = let fh = get_fptr h fh2 :: ForeignPtr RawTH1I = castForeignPtr fh in cast_fptr_to_obj fh2