$OpenBSD: patch-src_Darcs_Repository_hs,v 1.1 2013/01/17 13:19:05 kili Exp $
--- src/Darcs/Repository.hs.orig	Mon May 14 13:10:13 2012
+++ src/Darcs/Repository.hs	Thu Jan 17 12:41:17 2013
@@ -302,19 +302,19 @@ removeMetaFiles :: IO ()
 removeMetaFiles = mapM_ (removeFile . (darcsdir </>)) .
   filter ("meta-" `isPrefixOf`) =<< getDirectoryContents darcsdir
 
-unpackBasic :: Cache -> Tar.Entries -> IO ()
+unpackBasic :: Show e => Cache -> Tar.Entries e -> IO ()
 unpackBasic c x = do
   withControlMVar $ \mv -> unpackTar c (basicMetaHandler c mv) x
   removeMetaFiles
 
-unpackPatches :: Cache -> [String] -> Tar.Entries -> IO ()
+unpackPatches :: Show e => Cache -> [String] -> Tar.Entries e -> IO ()
 unpackPatches c ps x = do
   withControlMVar $ \mv -> unpackTar c (patchesMetaHandler c ps mv) x
   removeMetaFiles
 
-unpackTar :: Cache -> IO () -> Tar.Entries -> IO ()
+unpackTar :: Show e => Cache -> IO () -> Tar.Entries e -> 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
