@@ -0,0 +1,30 @@
1+diff -ru orig/Git/Libgit2.hs new/Git/Libgit2.hs
2+--- orig/Git/Libgit2.hs 2014-04-03 19:25:38.109541281 +0300
3++++ new/Git/Libgit2.hs 2014-04-03 19:25:37.000000000 +0300
6+ lgLoadPackFileInMemory
7+ :: (MonadBaseControl IO m, MonadIO m, Failure Git.GitException m,
8+- MonadUnsafeIO m, MonadThrow m, MonadLogger m)
9++ MonadThrow m, MonadLogger m)
11+ -> Ptr (Ptr C'git_odb_backend)
12+ -> Ptr (Ptr C'git_odb)
16+ lgWithPackFile :: (MonadBaseControl IO m, MonadIO m, Failure Git.GitException m,
17+- MonadUnsafeIO m, MonadThrow m, MonadLogger m)
18++ MonadThrow m, MonadLogger m)
19+ => FilePath -> (Ptr C'git_odb -> ResourceT m a) -> m a
20+ lgWithPackFile idxPath f = control $ \run ->
21+ alloca $ \odbPtrPtr ->
23+ f =<< lgLoadPackFileInMemory idxPath backendPtrPtr odbPtrPtr
25+ lgReadFromPack :: (MonadBaseControl IO m, MonadIO m, Failure Git.GitException m,
26+- MonadUnsafeIO m, MonadThrow m, MonadLogger m)
27++ MonadThrow m, MonadLogger m)
28+ => FilePath -> Git.SHA -> Bool
29+ -> m (Maybe (C'git_otype, CSize, ByteString))
30+ lgReadFromPack idxPath sha metadataOnly =