module Extra.TempDir 
    ( mkdtemp
    ) where

import Foreign.C.String

foreign import ccall "mkdtemp" c_mkdtemp :: CString -> IO CString


{-# DEPRECATED mkdtemp "This is buggy, use the version in System.Unix.Directory instead." #-}
mkdtemp :: String -> IO String
mkdtemp template =
    do
      s <- newCString template
      d <- c_mkdtemp s
      peekCString d