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