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