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