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