gitlib 3.0.0 → 3.0.2

raw patch · 5 files changed

+13/−4 lines, 5 filesdep +monad-logger

Dependencies added: monad-logger

Files

Git/Commit/Push.hs +1/−0
Git/Repository.hs +2/−0
Git/Tree/Builder.hs +4/−0
Git/Types.hs +2/−1
gitlib.cabal +4/−3

Git/Commit/Push.hs view

@@ -57,6 +57,7 @@ copyRepository factory mname refName gitDir isBare =     withRepository' factory RepositoryOptions         { repoPath       = gitDir+        , repoWorkingDir = Nothing         , repoIsBare     = isBare         , repoAutoCreate = True         }

Git/Repository.hs view

@@ -18,6 +18,7 @@     -- we want exceptions to leave the repo behind     a <- withRepository' factory RepositoryOptions         { repoPath       = path+        , repoWorkingDir = Nothing         , repoIsBare     = True         , repoAutoCreate = True         } action@@ -35,6 +36,7 @@     bracket_ recover recover $         withRepository' factory RepositoryOptions             { repoPath       = path+            , repoWorkingDir = Nothing             , repoIsBare     = True             , repoAutoCreate = True             } action

Git/Tree/Builder.hs view

@@ -28,6 +28,7 @@ import           Control.Failure import           Control.Monad import           Control.Monad.Fix+import           Control.Monad.Logger import           Control.Monad.IO.Class import           Control.Monad.Trans.Class import           Control.Monad.Trans.State@@ -85,6 +86,9 @@  instance (MonadIO m) => MonadIO (TreeT r m) where     liftIO = lift . liftIO++instance (MonadLogger m) => MonadLogger (TreeT r m) where+    monadLoggerLog a b c d = lift $ monadLoggerLog a b c d  getBuilder :: Monad m => TreeT r m (TreeBuilder r m) getBuilder = TreeT get

Git/Types.hs view

@@ -106,12 +106,13 @@  data RepositoryOptions = RepositoryOptions     { repoPath       :: !FilePath+    , repoWorkingDir :: !(Maybe FilePath)     , repoIsBare     :: !Bool     , repoAutoCreate :: !Bool     }  defaultRepositoryOptions :: RepositoryOptions-defaultRepositoryOptions = RepositoryOptions "" False False+defaultRepositoryOptions = RepositoryOptions "" Nothing False False  data RepositoryFactory n m r = RepositoryFactory     { openRepository :: RepositoryOptions -> m r

gitlib.cabal view

@@ -1,10 +1,10 @@ Name:                gitlib-Version:             3.0.0+Version:             3.0.2 Synopsis:            API library for working with Git repositories License-file:        LICENSE License:             MIT Author:              John Wiegley-Maintainer:          johnw@fpcomplete.com+Maintainer:          johnw@newartisans.com Build-Type:          Simple Cabal-Version:       >=1.10 Category:            FFI@@ -21,7 +21,7 @@  Source-repository head   type: git-  location: git://github.com/fpco/gitlib.git+  location: git://github.com/jwiegley/gitlib.git  -- Test-suite doctests --     Default-language: Haskell98@@ -50,6 +50,7 @@         , hashable             >= 1.1.2.5         , lifted-base          >= 0.2         , monad-control        >= 0.3.2.1+        , monad-logger         >= 0.3.4.1         , mtl                  >= 2.1.2         , resourcet            >= 0.4.8         , semigroups           >= 0.11