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