{-# LANGUAGE CApiFFI #-} module OpenCascade.BRepAlgoAPI.Common ( common ) where import qualified OpenCascade.TopoDS as TopoDS import OpenCascade.TopoDS.Internal.Destructors (deleteShape) import Foreign.Ptr import Data.Acquire foreign import capi unsafe "hs_BRepAlgoAPI_Common.h hs_BRepAlgoAPI_Common" rawCommon :: Ptr TopoDS.Shape -> Ptr TopoDS.Shape -> IO (Ptr TopoDS.Shape) common :: Ptr TopoDS.Shape -> Ptr TopoDS.Shape -> Acquire (Ptr TopoDS.Shape) common :: Ptr Shape -> Ptr Shape -> Acquire (Ptr Shape) common Ptr Shape a Ptr Shape b = IO (Ptr Shape) -> (Ptr Shape -> IO ()) -> Acquire (Ptr Shape) forall a. IO a -> (a -> IO ()) -> Acquire a mkAcquire (Ptr Shape -> Ptr Shape -> IO (Ptr Shape) rawCommon Ptr Shape a Ptr Shape b) Ptr Shape -> IO () deleteShape