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