haskell/stackage
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage.git synced 2026-01-12 15:28:29 +01:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Another patch

Browse Source
This commit is contained in:
Michael Snoyman 2014-04-03 19:26:59 +03:00
parent a52d26de00
commit 758fd0f187
1 changed files with 30 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
patching/patches/gitlib-libgit2-3.0.0.patch Normal file
View File

@ -0,0 +1,30 @@
diff -ru orig/Git/Libgit2.hs new/Git/Libgit2.hs
--- orig/Git/Libgit2.hs 2014-04-03 19:25:38.109541281 +0300
+++ new/Git/Libgit2.hs 2014-04-03 19:25:37.000000000 +0300
@@ -1341,7 +1341,7 @@
lgLoadPackFileInMemory
:: (MonadBaseControl IO m, MonadIO m, Failure Git.GitException m,
- MonadUnsafeIO m, MonadThrow m, MonadLogger m)
+ MonadThrow m, MonadLogger m)
=> FilePath
-> Ptr (Ptr C'git_odb_backend)
-> Ptr (Ptr C'git_odb)
@@ -1373,7 +1373,7 @@
return odbPtr
lgWithPackFile :: (MonadBaseControl IO m, MonadIO m, Failure Git.GitException m,
- MonadUnsafeIO m, MonadThrow m, MonadLogger m)
+ MonadThrow m, MonadLogger m)
=> FilePath -> (Ptr C'git_odb -> ResourceT m a) -> m a
lgWithPackFile idxPath f = control $ \run ->
alloca $ \odbPtrPtr ->
@@ -1381,7 +1381,7 @@
f =<< lgLoadPackFileInMemory idxPath backendPtrPtr odbPtrPtr
lgReadFromPack :: (MonadBaseControl IO m, MonadIO m, Failure Git.GitException m,
- MonadUnsafeIO m, MonadThrow m, MonadLogger m)
+ MonadThrow m, MonadLogger m)
=> FilePath -> Git.SHA -> Bool
-> m (Maybe (C'git_otype, CSize, ByteString))
lgReadFromPack idxPath sha metadataOnly =