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

data RawTSPHE

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

instance () => FPtr (TSPHE) where
        type Raw TSPHE = RawTSPHE
        get_fptr :: TSPHE -> Ptr (Raw TSPHE)
get_fptr (TSPHE Ptr RawTSPHE
ptr) = Ptr (Raw TSPHE)
Ptr RawTSPHE
ptr
        cast_fptr_to_obj :: Ptr (Raw TSPHE) -> TSPHE
cast_fptr_to_obj = Ptr (Raw TSPHE) -> TSPHE
Ptr RawTSPHE -> TSPHE
TSPHE