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