yogsototh/stackage
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Get temporary package compiling again

Browse source 
Pinging @feuerbach, just letting you know I feel your pain ;)
This commit is contained in:
Michael Snoyman 2014-05-11 15:04:27 +03:00
parent f635c2a993
commit 080cb92d72
1 changed files with 39 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

39
patching/patches/temporary-1.2.0.2.patch Normal file
View file

@ -0,0 +1,39 @@
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