{-# LANGUAGE ForeignFunctionInterface, TypeFamilies,
  MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances,
  EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-}
module HROOT.Hist.TH2.RawType where
import Foreign.Ptr
import FFICXX.Runtime.Cast

data RawTH2

newtype TH2 = TH2 (Ptr RawTH2)
                deriving (TH2 -> TH2 -> Bool
(TH2 -> TH2 -> Bool) -> (TH2 -> TH2 -> Bool) -> Eq TH2
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TH2 -> TH2 -> Bool
== :: TH2 -> TH2 -> Bool
$c/= :: TH2 -> TH2 -> Bool
/= :: TH2 -> TH2 -> Bool
Eq, Eq TH2
Eq TH2
-> (TH2 -> TH2 -> Ordering)
-> (TH2 -> TH2 -> Bool)
-> (TH2 -> TH2 -> Bool)
-> (TH2 -> TH2 -> Bool)
-> (TH2 -> TH2 -> Bool)
-> (TH2 -> TH2 -> TH2)
-> (TH2 -> TH2 -> TH2)
-> Ord TH2
TH2 -> TH2 -> Bool
TH2 -> TH2 -> Ordering
TH2 -> TH2 -> TH2
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 :: TH2 -> TH2 -> Ordering
compare :: TH2 -> TH2 -> Ordering
$c< :: TH2 -> TH2 -> Bool
< :: TH2 -> TH2 -> Bool
$c<= :: TH2 -> TH2 -> Bool
<= :: TH2 -> TH2 -> Bool
$c> :: TH2 -> TH2 -> Bool
> :: TH2 -> TH2 -> Bool
$c>= :: TH2 -> TH2 -> Bool
>= :: TH2 -> TH2 -> Bool
$cmax :: TH2 -> TH2 -> TH2
max :: TH2 -> TH2 -> TH2
$cmin :: TH2 -> TH2 -> TH2
min :: TH2 -> TH2 -> TH2
Ord, Int -> TH2 -> ShowS
[TH2] -> ShowS
TH2 -> String
(Int -> TH2 -> ShowS)
-> (TH2 -> String) -> ([TH2] -> ShowS) -> Show TH2
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> TH2 -> ShowS
showsPrec :: Int -> TH2 -> ShowS
$cshow :: TH2 -> String
show :: TH2 -> String
$cshowList :: [TH2] -> ShowS
showList :: [TH2] -> ShowS
Show)

instance () => FPtr (TH2) where
        type Raw TH2 = RawTH2
        get_fptr :: TH2 -> Ptr (Raw TH2)
get_fptr (TH2 Ptr RawTH2
ptr) = Ptr (Raw TH2)
Ptr RawTH2
ptr
        cast_fptr_to_obj :: Ptr (Raw TH2) -> TH2
cast_fptr_to_obj = Ptr (Raw TH2) -> TH2
Ptr RawTH2 -> TH2
TH2