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