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