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

data RawTTUBE

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

instance () => FPtr (TTUBE) where
        type Raw TTUBE = RawTTUBE
        get_fptr :: TTUBE -> Ptr (Raw TTUBE)
get_fptr (TTUBE Ptr RawTTUBE
ptr) = Ptr (Raw TTUBE)
Ptr RawTTUBE
ptr
        cast_fptr_to_obj :: Ptr (Raw TTUBE) -> TTUBE
cast_fptr_to_obj = Ptr (Raw TTUBE) -> TTUBE
Ptr RawTTUBE -> TTUBE
TTUBE