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/Git.hs | |
| parent | 4727e1dc1de161ad9517bcb4c101c66ac632284f (diff) | |
clean up cleanup action enumeration
Diffstat (limited to 'Remote/Git.hs')
| -rw-r--r-- | Remote/Git.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Remote/Git.hs b/Remote/Git.hs index 14157f498..995d66779 100644 --- a/Remote/Git.hs +++ b/Remote/Git.hs @@ -36,6 +36,7 @@ import Config import Config.Cost import Annex.Init import Types.Key +import Types.CleanupActions import qualified CmdLine.GitAnnexShell.Fields as Fields import Logs.Location import Utility.Metered @@ -510,7 +511,7 @@ rsyncOrCopyFile rsyncparams src dest p = commitOnCleanup :: Remote -> Annex a -> Annex a commitOnCleanup r a = go `after` a where - go = Annex.addCleanup (Git.repoLocation $ repo r) cleanup + go = Annex.addCleanup (RemoteCleanup $ uuid r) cleanup cleanup | not $ Git.repoIsUrl (repo r) = onLocal r $ doQuietSideAction $ |