{-# LANGUAGE CApiFFI #-} module OpenCascade.TopoDS.Internal.Destructors where import OpenCascade.TopoDS.Types import Foreign.Ptr foreign import capi unsafe "hs_TopoDS_Shape.h hs_delete_TopoDS_Shape" deleteShape :: Ptr Shape -> IO ()