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