{-# LANGUAGE ForeignFunctionInterface, TypeFamilies,
  MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances,
  EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-}
module HROOT.Graf.TAttImage.RawType where
import Foreign.Ptr
import FFICXX.Runtime.Cast

data RawTAttImage

newtype TAttImage = TAttImage (Ptr RawTAttImage)
                      deriving (TAttImage -> TAttImage -> Bool
(TAttImage -> TAttImage -> Bool)
-> (TAttImage -> TAttImage -> Bool) -> Eq TAttImage
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TAttImage -> TAttImage -> Bool
== :: TAttImage -> TAttImage -> Bool
$c/= :: TAttImage -> TAttImage -> Bool
/= :: TAttImage -> TAttImage -> Bool
Eq, Eq TAttImage
Eq TAttImage
-> (TAttImage -> TAttImage -> Ordering)
-> (TAttImage -> TAttImage -> Bool)
-> (TAttImage -> TAttImage -> Bool)
-> (TAttImage -> TAttImage -> Bool)
-> (TAttImage -> TAttImage -> Bool)
-> (TAttImage -> TAttImage -> TAttImage)
-> (TAttImage -> TAttImage -> TAttImage)
-> Ord TAttImage
TAttImage -> TAttImage -> Bool
TAttImage -> TAttImage -> Ordering
TAttImage -> TAttImage -> TAttImage
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 :: TAttImage -> TAttImage -> Ordering
compare :: TAttImage -> TAttImage -> Ordering
$c< :: TAttImage -> TAttImage -> Bool
< :: TAttImage -> TAttImage -> Bool
$c<= :: TAttImage -> TAttImage -> Bool
<= :: TAttImage -> TAttImage -> Bool
$c> :: TAttImage -> TAttImage -> Bool
> :: TAttImage -> TAttImage -> Bool
$c>= :: TAttImage -> TAttImage -> Bool
>= :: TAttImage -> TAttImage -> Bool
$cmax :: TAttImage -> TAttImage -> TAttImage
max :: TAttImage -> TAttImage -> TAttImage
$cmin :: TAttImage -> TAttImage -> TAttImage
min :: TAttImage -> TAttImage -> TAttImage
Ord, Int -> TAttImage -> ShowS
[TAttImage] -> ShowS
TAttImage -> String
(Int -> TAttImage -> ShowS)
-> (TAttImage -> String)
-> ([TAttImage] -> ShowS)
-> Show TAttImage
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> TAttImage -> ShowS
showsPrec :: Int -> TAttImage -> ShowS
$cshow :: TAttImage -> String
show :: TAttImage -> String
$cshowList :: [TAttImage] -> ShowS
showList :: [TAttImage] -> ShowS
Show)

instance () => FPtr (TAttImage) where
        type Raw TAttImage = RawTAttImage
        get_fptr :: TAttImage -> Ptr (Raw TAttImage)
get_fptr (TAttImage Ptr RawTAttImage
ptr) = Ptr (Raw TAttImage)
Ptr RawTAttImage
ptr
        cast_fptr_to_obj :: Ptr (Raw TAttImage) -> TAttImage
cast_fptr_to_obj = Ptr (Raw TAttImage) -> TAttImage
Ptr RawTAttImage -> TAttImage
TAttImage