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