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/External.hs | |
| parent | 4727e1dc1de161ad9517bcb4c101c66ac632284f (diff) | |
clean up cleanup action enumeration
Diffstat (limited to 'Remote/External.hs')
| -rw-r--r-- | Remote/External.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Remote/External.hs b/Remote/External.hs index 50a0767ea..9be9175c7 100644 --- a/Remote/External.hs +++ b/Remote/External.hs @@ -11,6 +11,7 @@ import Remote.External.Types import qualified Annex import Common.Annex import Types.Remote +import Types.CleanupActions import qualified Git import Config import Remote.Helper.Special @@ -43,7 +44,7 @@ remote = RemoteType { gen :: Git.Repo -> UUID -> RemoteConfig -> RemoteGitConfig -> Annex (Maybe Remote) gen r u c gc = do external <- newExternal externaltype u c - Annex.addCleanup (fromUUID u) $ stopExternal external + Annex.addCleanup (RemoteCleanup u) $ stopExternal external cst <- getCost external r gc avail <- getAvailability external r gc return $ Just $ encryptableRemote c |