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