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