From 080cb92d72fa42f6527dd465a7f010d9c00036a5 Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Sun, 11 May 2014 15:04:27 +0300 Subject: [PATCH] Get temporary package compiling again Pinging @feuerbach, just letting you know I feel your pain ;) --- patching/patches/temporary-1.2.0.2.patch | 39 ++++++++++++++++++++++++ 1 file changed, 39 insertions(+) create mode 100644 patching/patches/temporary-1.2.0.2.patch diff --git a/patching/patches/temporary-1.2.0.2.patch b/patching/patches/temporary-1.2.0.2.patch new file mode 100644 index 00000000..3f258832 --- /dev/null +++ b/patching/patches/temporary-1.2.0.2.patch @@ -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