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