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