diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-03-13 19:06:26 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-03-13 19:06:26 -0400 |
| commit | c1c5ff5626edbd4474b327dc8b8e66bd218b3e5e (patch) | |
| tree | 3eca00d56bac0fc4fb7674375ea56f039273d074 /Remote/Helper | |
| parent | 4727e1dc1de161ad9517bcb4c101c66ac632284f (diff) | |
clean up cleanup action enumeration
Diffstat (limited to 'Remote/Helper')
| -rw-r--r-- | Remote/Helper/Hooks.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Remote/Helper/Hooks.hs b/Remote/Helper/Hooks.hs index f876649f0..b7deae577 100644 --- a/Remote/Helper/Hooks.hs +++ b/Remote/Helper/Hooks.hs @@ -13,6 +13,7 @@ import qualified Data.Map as M import Common.Annex import Types.Remote +import Types.CleanupActions import qualified Annex import Annex.LockPool #ifndef mingw32_HOST_OS @@ -74,7 +75,7 @@ runHooks r starthook stophook a = do -- So, requiring idempotency is the right approach. run starthook - Annex.addCleanup (remoteid ++ "-stop-command") $ runstop lck + Annex.addCleanup (StopHook $ uuid r) $ runstop lck runstop lck = do -- Drop any shared lock we have, and take an -- exclusive lock, without blocking. If the lock |