diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-03-04 16:00:24 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-03-04 19:12:58 -0400 |
| commit | 52e88f3ebf974c3802e951e17593ce5768c04b92 (patch) | |
| tree | ed87ada9f7e15dcb295ae0310fbf731175cf101b /Remote/List.hs | |
| parent | fba66c55ed3e060aae90fe90b5ea8e3ec4132bb7 (diff) | |
add remote start and stop hooks
Locking is used, so that, if there are multiple git-annex processes
using a remote concurrently, the stop hook is only run by the last
process that uses it.
Diffstat (limited to 'Remote/List.hs')
| -rw-r--r-- | Remote/List.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Remote/List.hs b/Remote/List.hs index e589b4401..57dfa43eb 100644 --- a/Remote/List.hs +++ b/Remote/List.hs @@ -15,6 +15,7 @@ import Logs.Remote import Types.Remote import Annex.UUID import Config +import Remote.Helper.Hooks import qualified Remote.Git import qualified Remote.S3 @@ -51,7 +52,7 @@ remoteList = do process m t = enumerate t >>= mapM (gen m t) gen m t r = do u <- getRepoUUID r - generate t r u (M.lookup u m) + addHooks =<< generate t r u (M.lookup u m) {- All remotes that are not ignored. -} enabledRemoteList :: Annex [Remote] |