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