{-# 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