diff options
| author |   Mikko Värri <vmj@linuxbox.fi> | 2012-06-27 15:42:42 -0400 |
|---|---|---|
| committer |   dsomero <xgizzmo@slackbuilds.org> | 2012-06-27 15:42:42 -0400 |
| commit | c4f4f894862a38dcc7f0e14f8b213236b5667d32 (patch) | |
| tree | 368815375f564740d4c5ff4519ab0898b68f37b0 /development/darcs/src_Darcs_Repository_hs.patch | |
| parent | f0f92618799e02690a118fa2a8340a692644b5f8 (diff) | |
| download | slackbuilds-c4f4f894862a38dcc7f0e14f8b213236b5667d32.tar.gz slackbuilds-c4f4f894862a38dcc7f0e14f8b213236b5667d32.tar.xz | |
development/darcs: Updated for version 2.8.1.
Signed-off-by: dsomero <xgizzmo@slackbuilds.org>
Diffstat (limited to 'development/darcs/src_Darcs_Repository_hs.patch')
| -rw-r--r-- | development/darcs/src_Darcs_Repository_hs.patch | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/development/darcs/src_Darcs_Repository_hs.patch b/development/darcs/src_Darcs_Repository_hs.patch new file mode 100644 index 0000000000..1bbacd8dd9 --- /dev/null +++ b/development/darcs/src_Darcs_Repository_hs.patch @@ -0,0 +1,26 @@ +--- ./src/Darcs/Repository.hs.orig 2012-04-22 17:14:14.000000000 +0200 ++++ ./src/Darcs/Repository.hs 2012-05-10 16:44:09.000000000 +0200 +@@ -302,19 +302,19 @@ + removeMetaFiles = mapM_ (removeFile . (darcsdir </>)) . + filter ("meta-" `isPrefixOf`) =<< getDirectoryContents darcsdir + +-unpackBasic :: Cache -> Tar.Entries -> IO () ++unpackBasic :: Cache -> Tar.Entries Tar.FormatError -> IO () + unpackBasic c x = do + withControlMVar $ \mv -> unpackTar c (basicMetaHandler c mv) x + removeMetaFiles + +-unpackPatches :: Cache -> [String] -> Tar.Entries -> IO () ++unpackPatches :: Cache -> [String] -> Tar.Entries Tar.FormatError -> IO () + unpackPatches c ps x = do + withControlMVar $ \mv -> unpackTar c (patchesMetaHandler c ps mv) x + removeMetaFiles + +-unpackTar :: Cache -> IO () -> Tar.Entries -> IO () ++unpackTar :: Cache -> IO () -> Tar.Entries Tar.FormatError -> IO () + unpackTar _ _ Tar.Done = return () +-unpackTar _ _ (Tar.Fail e)= fail e ++unpackTar _ _ (Tar.Fail e) = fail $ show e + unpackTar c mh (Tar.Next x xs) = case Tar.entryContent x of + Tar.NormalFile x' _ -> do + let p = Tar.entryPath x |