{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances, EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} module HROOT.Core.TApplication.RawType where import Foreign.Ptr import FFICXX.Runtime.Cast data RawTApplication newtype TApplication = TApplication (Ptr RawTApplication) deriving (Eq, Ord, Show) instance FPtr TApplication where type Raw TApplication = RawTApplication get_fptr (TApplication ptr) = ptr cast_fptr_to_obj = TApplication