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