mirror of
https://github.com/commercialhaskell/stackage.git
synced 2026-01-12 07:18:31 +01:00
40 lines
1.9 KiB
Diff
40 lines
1.9 KiB
Diff
diff -ru orig/System/IO/Temp.hs new/System/IO/Temp.hs
|
|
--- orig/System/IO/Temp.hs 2014-05-11 15:04:23.887266736 +0300
|
|
+++ new/System/IO/Temp.hs 2014-05-11 15:04:23.000000000 +0300
|
|
@@ -24,7 +24,7 @@
|
|
--
|
|
-- Behaves exactly the same as 'withTempFile', except that the parent temporary directory
|
|
-- will be that returned by 'getTemporaryDirectory'.
|
|
-withSystemTempFile :: (MonadIO m, MonadCatch m) =>
|
|
+withSystemTempFile :: (MonadIO m, MonadMask m) =>
|
|
String -- ^ File name template. See 'openTempFile'.
|
|
-> (FilePath -> Handle -> m a) -- ^ Callback that can use the file
|
|
-> m a
|
|
@@ -34,7 +34,7 @@
|
|
--
|
|
-- Behaves exactly the same as 'withTempDirectory', except that the parent temporary directory
|
|
-- will be that returned by 'getTemporaryDirectory'.
|
|
-withSystemTempDirectory :: (MonadIO m, MonadCatch m) =>
|
|
+withSystemTempDirectory :: (MonadIO m, MonadMask m) =>
|
|
String -- ^ Directory name template. See 'openTempFile'.
|
|
-> (FilePath -> m a) -- ^ Callback that can use the directory
|
|
-> m a
|
|
@@ -50,7 +50,7 @@
|
|
--
|
|
-- The @tmpFlie@ will be file in the given directory, e.g.
|
|
-- @src/sdist.342@.
|
|
-withTempFile :: (MonadIO m, MonadCatch m) =>
|
|
+withTempFile :: (MonadIO m, MonadMask m) =>
|
|
FilePath -- ^ Temp dir to create the file in
|
|
-> String -- ^ File name template. See 'openTempFile'.
|
|
-> (FilePath -> Handle -> m a) -- ^ Callback that can use the file
|
|
@@ -70,7 +70,7 @@
|
|
--
|
|
-- The @tmpDir@ will be a new subdirectory of the given directory, e.g.
|
|
-- @src/sdist.342@.
|
|
-withTempDirectory :: (MonadCatch m, MonadIO m) =>
|
|
+withTempDirectory :: (MonadMask m, MonadIO m) =>
|
|
FilePath -- ^ Temp directory to create the directory in
|
|
-> String -- ^ Directory name template. See 'openTempFile'.
|
|
-> (FilePath -> m a) -- ^ Callback that can use the directory
|