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