git.iko.soy/stackage
on f714963 help sign in
stackage/patching/patches/gitlib-libgit2-3.0.0.patch
30 lines 1.3 kB history raw
1diff -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
4@@ -1341,7 +1341,7 @@
5
6 lgLoadPackFileInMemory
7 :: (MonadBaseControl IO m, MonadIO m, Failure Git.GitException m,
8- MonadUnsafeIO m, MonadThrow m, MonadLogger m)
9+ MonadThrow m, MonadLogger m)
10 => FilePath
11 -> Ptr (Ptr C'git_odb_backend)
12 -> Ptr (Ptr C'git_odb)
13@@ -1373,7 +1373,7 @@
14 return odbPtr
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 ->
22@@ -1381,7 +1381,7 @@
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 =