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