module-management-0.15: Language/Haskell/Modules/Util/Temp.hs

{-# LANGUAGE FlexibleContexts, PackageImports #-}
module Language.Haskell.Modules.Util.Temp
    ( withTempDirectory
    ) where

import qualified Control.Exception as IO (catch)
import Control.Exception.Lifted as IOT (bracket)
import Control.Monad.Trans (liftIO, MonadIO)
import Control.Monad.Trans.Control (MonadBaseControl)
import System.Directory (removeDirectoryRecursive)
import qualified System.IO.Temp as Temp (createTempDirectory)

-- | Adapted from 'System.IO.Temp.withTempDirectory' to work in MonadIO instances.
withTempDirectory :: (MonadIO m, MonadBaseControl IO m) =>
                     FilePath -- ^ Temp directory to create the directory in
                  -> String   -- ^ Directory name template. See 'openTempFile'.
                  -> (FilePath -> m a) -- ^ Callback that can use the directory
                  -> m a
withTempDirectory targetDir template =
    IOT.bracket
       (liftIO $ Temp.createTempDirectory targetDir template)
       (liftIO . ignoringIOErrors . removeDirectoryRecursive)

ignoringIOErrors :: IO () -> IO ()
ignoringIOErrors ioe = ioe `IO.catch` (\e -> const (return ()) (e :: IOError))