{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances, EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} module HROOT.Hist.TH1.RawType where import Foreign.Ptr import FFICXX.Runtime.Cast data RawTH1 newtype TH1 = TH1 (Ptr RawTH1) deriving (TH1 -> TH1 -> Bool (TH1 -> TH1 -> Bool) -> (TH1 -> TH1 -> Bool) -> Eq TH1 forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c== :: TH1 -> TH1 -> Bool == :: TH1 -> TH1 -> Bool $c/= :: TH1 -> TH1 -> Bool /= :: TH1 -> TH1 -> Bool Eq, Eq TH1 Eq TH1 -> (TH1 -> TH1 -> Ordering) -> (TH1 -> TH1 -> Bool) -> (TH1 -> TH1 -> Bool) -> (TH1 -> TH1 -> Bool) -> (TH1 -> TH1 -> Bool) -> (TH1 -> TH1 -> TH1) -> (TH1 -> TH1 -> TH1) -> Ord TH1 TH1 -> TH1 -> Bool TH1 -> TH1 -> Ordering TH1 -> TH1 -> TH1 forall a. Eq a -> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> a) -> (a -> a -> a) -> Ord a $ccompare :: TH1 -> TH1 -> Ordering compare :: TH1 -> TH1 -> Ordering $c< :: TH1 -> TH1 -> Bool < :: TH1 -> TH1 -> Bool $c<= :: TH1 -> TH1 -> Bool <= :: TH1 -> TH1 -> Bool $c> :: TH1 -> TH1 -> Bool > :: TH1 -> TH1 -> Bool $c>= :: TH1 -> TH1 -> Bool >= :: TH1 -> TH1 -> Bool $cmax :: TH1 -> TH1 -> TH1 max :: TH1 -> TH1 -> TH1 $cmin :: TH1 -> TH1 -> TH1 min :: TH1 -> TH1 -> TH1 Ord, Int -> TH1 -> ShowS [TH1] -> ShowS TH1 -> String (Int -> TH1 -> ShowS) -> (TH1 -> String) -> ([TH1] -> ShowS) -> Show TH1 forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a $cshowsPrec :: Int -> TH1 -> ShowS showsPrec :: Int -> TH1 -> ShowS $cshow :: TH1 -> String show :: TH1 -> String $cshowList :: [TH1] -> ShowS showList :: [TH1] -> ShowS Show) instance () => FPtr (TH1) where type Raw TH1 = RawTH1 get_fptr :: TH1 -> Ptr (Raw TH1) get_fptr (TH1 Ptr RawTH1 ptr) = Ptr (Raw TH1) Ptr RawTH1 ptr cast_fptr_to_obj :: Ptr (Raw TH1) -> TH1 cast_fptr_to_obj = Ptr (Raw TH1) -> TH1 Ptr RawTH1 -> TH1 TH1