From 758fd0f187a2466ee46dd4eda4679f0e7ea73850 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Thu, 3 Apr 2014 19:26:59 +0300
Subject: [PATCH] Another patch

---
 patching/patches/gitlib-libgit2-3.0.0.patch | 30 +++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 patching/patches/gitlib-libgit2-3.0.0.patch

diff --git a/patching/patches/gitlib-libgit2-3.0.0.patch b/patching/patches/gitlib-libgit2-3.0.0.patch
new file mode 100644
index 00000000..40ee1f08
--- /dev/null
+++ b/patching/patches/gitlib-libgit2-3.0.0.patch
@@ -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 =