{-# LANGUAGE PackageImports #-}
module Debian.Extra.Files
( withTemporaryFile
) where
import "mtl" Control.Monad.Trans (MonadIO, liftIO)
import System.Directory (getTemporaryDirectory, removeFile)
import System.IO (hPutStr, hClose, openBinaryTempFile)
withTemporaryFile :: MonadIO m
=> (FilePath -> m a)
-> String
-> m a
withTemporaryFile :: (FilePath -> m a) -> FilePath -> m a
withTemporaryFile FilePath -> m a
f FilePath
text =
do FilePath
path <- IO FilePath -> m FilePath
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO IO FilePath
writeTemporaryFile
a
result <- FilePath -> m a
f FilePath
path
IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ FilePath -> IO ()
removeFile FilePath
path
a -> m a
forall (m :: * -> *) a. Monad m => a -> m a
return a
result
where
writeTemporaryFile :: IO FilePath
writeTemporaryFile =
do FilePath
dir <- IO FilePath
getTemporaryDirectory
(FilePath
path, Handle
h) <- FilePath -> FilePath -> IO (FilePath, Handle)
openBinaryTempFile FilePath
dir FilePath
"wtf.tmp"
Handle -> FilePath -> IO ()
hPutStr Handle
h FilePath
text
Handle -> IO ()
hClose Handle
h
FilePath -> IO FilePath
forall (m :: * -> *) a. Monad m => a -> m a
return FilePath
path