diff options
author | V3n3RiX <venerix@koprulu.sector> | 2022-07-30 09:09:34 +0100 |
---|---|---|
committer | V3n3RiX <venerix@koprulu.sector> | 2022-07-30 09:09:34 +0100 |
commit | ad0412d0cafb8c04ce98024155cf99a4cc27db44 (patch) | |
tree | c34688ab389c18775a322de6cd4cfd957cbe8014 /dev-vcs/git-annex/files | |
parent | cdb747b791914a30c287a3a8e33d1b635e431707 (diff) |
gentoo auto-resync : 30:07:2022 - 09:09:33
Diffstat (limited to 'dev-vcs/git-annex/files')
-rw-r--r-- | dev-vcs/git-annex/files/git-annex-8.20210330-persistent-2.12.patch | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/dev-vcs/git-annex/files/git-annex-8.20210330-persistent-2.12.patch b/dev-vcs/git-annex/files/git-annex-8.20210330-persistent-2.12.patch new file mode 100644 index 000000000000..977e5931f5f4 --- /dev/null +++ b/dev-vcs/git-annex/files/git-annex-8.20210330-persistent-2.12.patch @@ -0,0 +1,28 @@ +--- a/Database/Handle.hs ++++ b/Database/Handle.hs +@@ -26,7 +26,7 @@ import qualified Database.Sqlite as Sqlite + import Control.Monad + import Control.Monad.IO.Class (liftIO) + import Control.Monad.IO.Unlift (MonadUnliftIO, withRunInIO) +-import Control.Monad.Logger (MonadLogger) ++import Control.Monad.Logger (MonadLogger, askLoggerIO, MonadLoggerIO) + import Control.Concurrent + import Control.Concurrent.Async + import Control.Exception (throwIO, BlockedIndefinitelyOnMVar(..)) +@@ -246,6 +246,7 @@ runSqliteRobustly tablename db a = do + withSqlConnRobustly + :: (MonadUnliftIO m + , MonadLogger m ++ , MonadLoggerIO m + , IsPersistBackend backend + , BaseBackend backend ~ SqlBackend + , BackendCompatible SqlBackend backend +@@ -254,7 +255,7 @@ withSqlConnRobustly + -> (backend -> m a) + -> m a + withSqlConnRobustly open f = do +- logFunc <- askLogFunc ++ logFunc <- askLoggerIO + withRunInIO $ \run -> bracket + (open logFunc) + closeRobustly |