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