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