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