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