{-# 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