{-# LANGUAGE ForeignFunctionInterface #-}

module Sound.Loris.ForeignPtr (
  newPartialListForeignPtr
)

where

import Sound.Loris.Foreign
import Foreign.ForeignPtr (ForeignPtr)
import Foreign.Concurrent (newForeignPtr)
import Foreign.Ptr

newPartialListForeignPtr :: IO (ForeignPtr PartialListPtr)
newPartialListForeignPtr = do
  (PartialListPtr pPtr) <- createPartialList
  newForeignPtr pPtr (destroyPartialList $ PartialListPtr pPtr)