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