gitlib-s3 1.1.2 → 1.3.1
raw patch · 2 files changed
+14/−12 lines, 2 filesdep ~gitlibdep ~gitlib-libgit2dep ~gitlib-s3
Dependency ranges changed: gitlib, gitlib-libgit2, gitlib-s3, gitlib-test, hlibgit2
Files
- Git/S3.hs +6/−4
- gitlib-s3.cabal +8/−8
Git/S3.hs view
@@ -86,6 +86,7 @@ import Foreign.Storable import GHC.Generics import qualified Git+import Git (SHA(..), shaToText) import Git.Libgit2 import Git.Libgit2.Backend import Git.Libgit2.Internal@@ -627,12 +628,13 @@ where go repoPtr namePtr ref ptr = do r <- case ref of- Just Git.Reference { Git.refTarget = Git.RefSymbolic target } ->+ Just Git.Reference+ { Git.referenceTarget = Git.RefSymbolic target } -> withCString (T.unpack target) $ \targetPtr -> c'git_reference_symbolic_create ptr repoPtr namePtr targetPtr 1 Just Git.Reference {- Git.refTarget = Git.RefObj (Git.ByOid (Tagged coid)) } ->+ Git.referenceTarget = Git.RefObj (Git.ByOid (Tagged coid)) } -> withForeignPtr (getOid coid) $ \coidPtr -> c'git_reference_create ptr repoPtr namePtr coidPtr 1 _ -> return 0@@ -640,8 +642,8 @@ mirrorRefsToS3 :: Git.MonadGit m => Ptr C'git_odb_backend -> LgRepository m () mirrorRefsToS3 be = do- names <- Git.allRefNames- refs <- mapM Git.lookupRef names+ names <- Git.allReferenceNames+ refs <- mapM Git.lookupReference names liftIO $ writeRefs be (M.fromList (L.zip names refs)) observePackObjects :: OdbS3Details -> Text -> FilePath -> Bool -> Ptr C'git_odb
gitlib-s3.cabal view
@@ -1,5 +1,5 @@ Name: gitlib-s3-Version: 1.1.2+Version: 1.3.1 Synopsis: Gitlib repository backend for storing Git objects in Amazon S3 Description: Gitlib repository backend for storing Git objects in Amazon S3. License-file: LICENSE@@ -22,11 +22,11 @@ hs-source-dirs: test build-depends: base >=3- , gitlib >= 1.1.0- , gitlib-s3 >= 1.1.0- , gitlib-test >= 1.1.0- , gitlib-libgit2 >= 1.1.0- , hlibgit2 >= 0.18.0.1+ , gitlib >= 1.3.1+ , gitlib-s3 >= 1.3.1+ , gitlib-test >= 1.3.1+ , gitlib-libgit2 >= 1.3.1+ , hlibgit2 >= 0.18.0.7 , aws >= 0.7.5 , HUnit >= 1.2.5 , hspec >= 1.4.4@@ -45,8 +45,8 @@ default-language: Haskell98 build-depends: base >= 3 && < 5- , gitlib >= 1.1.0- , gitlib-libgit2 >= 1.1.0+ , gitlib >= 1.3.1+ , gitlib-libgit2 >= 1.3.1 , ghc-prim , hlibgit2 >= 0.18.0.1 , HUnit >= 1.2.5