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