gitlib-libgit2 3.1.0.2 → 3.1.0.3

raw patch · 2 files changed

+7/−7 lines, 2 filesdep ~monad-control

Dependency ranges changed: monad-control

Files

• Git/Libgit2/Internal.hs +5/−5
• gitlib-libgit2.cabal +2/−2

@@ -59,7 +59,7 @@   -> m b lookupObject' oid len lookupFn lookupPrefixFn createFn = do     repo <- Git.getRepository-    result <- control $ \run -> alloca $ \ptr -> do+    result <- liftBaseWith $ \run -> alloca $ \ptr -> do         r <- withForeignPtr (repoObj repo) $ \repoPtr ->             withForeignPtr oid $ \oidPtr ->                 if len == 40@@ -71,10 +71,10 @@               let args = ["Could not lookup ", T.pack oidStr]               err <- c'giterr_last               if err == nullPtr-                  then run $ return $ Left $ T.concat args+                  then return $ Left $ T.concat args                   else do                       errmsg <- peekCString . c'git_error'message =<< peek err-                      run $ return $ Left $+                      return $ Left $                           T.concat $ args ++ [": ", T.pack errmsg]             else do               ptr'     <- peek ptr@@ -84,8 +84,8 @@                let p = castPtr ptr'               fptr <- FC.newForeignPtr p (c'git_object_free p)-              run $ Right <$> createFn coidCopy (castForeignPtr fptr) ptr'-    either (throwM . Git.BackendError) return result+              Right <$> run (createFn coidCopy (castForeignPtr fptr) ptr')+    either (throwM . Git.BackendError) restoreM result  -- lgLookupObject :: Text -> LgRepository Dynamic -- lgLookupObject str

@@ -1,5 +1,5 @@ Name:                gitlib-libgit2-Version:             3.1.0.2+Version:             3.1.0.3 Synopsis:            Libgit2 backend for gitlib License-file:        LICENSE License:             MIT@@ -53,7 +53,7 @@         , lifted-base          >= 0.2.0.2         , missing-foreign      >= 0.1.1         , mmorph               >= 1.0.0-        , monad-control        >= 0.3.2+        , monad-control        >= 1.0         , monad-logger         >= 0.3.4.1         , monad-loops          >= 0.3.3.0         , mtl                  >= 2.1.2