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

data RawTGraph2D

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

instance () => FPtr (TGraph2D) where
        type Raw TGraph2D = RawTGraph2D
        get_fptr :: TGraph2D -> Ptr (Raw TGraph2D)
get_fptr (TGraph2D Ptr RawTGraph2D
ptr) = Ptr (Raw TGraph2D)
Ptr RawTGraph2D
ptr
        cast_fptr_to_obj :: Ptr (Raw TGraph2D) -> TGraph2D
cast_fptr_to_obj = Ptr (Raw TGraph2D) -> TGraph2D
Ptr RawTGraph2D -> TGraph2D
TGraph2D