diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-06-22 23:24:14 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-06-22 23:24:14 -0400 |
| commit | aad73c5721490a5679820ab9c16a8b462fa0e0f2 (patch) | |
| tree | 3156a0debf9a707f4e928811b0aa151d2c4d0e13 /Command/Unused.hs | |
| parent | 68783fd5e0e23ce698f2c2c2e2bd28c54cadf9c5 (diff) | |
rewrite loggedkeys to use git-annex branch
That sucking sound is a whole page of code vanishing to be replaced with
return . catMaybes . map (logFileKey . takeFileName) =<< Branch.files
What can I say, git is my database, and haskell my copilot.
Diffstat (limited to 'Command/Unused.hs')
| -rw-r--r-- | Command/Unused.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/Command/Unused.hs b/Command/Unused.hs index 5d4e433ad..51964cc57 100644 --- a/Command/Unused.hs +++ b/Command/Unused.hs @@ -66,10 +66,8 @@ checkRemoteUnused name = do checkRemoteUnused' :: Remote.Remote Annex -> Annex () checkRemoteUnused' r = do showNote $ "checking for unused data..." - g <- Annex.gitRepo referenced <- getKeysReferenced - logged <- loggedKeys g - remotehas <- filterM isthere logged + remotehas <- filterM isthere =<< loggedKeys let remoteunused = remotehas `exclude` referenced let list = number 0 remoteunused writeUnusedFile "" list |