diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-10-29 19:16:45 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-10-29 19:16:45 -0400 |
| commit | 22e9f445ab74041321d731fd6290f2922384753b (patch) | |
| tree | 7d794ff1e9a638849ef46787f2f7f4fa9f27e2e9 /Command | |
| parent | c102e63595d502c2424552b29e338ab71cb4a098 (diff) | |
unused, dropunused: Now work in bare repositories.
Turned out I had already done all the work needed to support this when
unused started checking all branches.
Diffstat (limited to 'Command')
| -rw-r--r-- | Command/DropUnused.hs | 2 | ||||
| -rw-r--r-- | Command/Unused.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/Command/DropUnused.hs b/Command/DropUnused.hs index d2eb3df71..07ae1b48c 100644 --- a/Command/DropUnused.hs +++ b/Command/DropUnused.hs @@ -35,7 +35,7 @@ withUnusedMaps params = do return $ map (start (unused, unusedbad, unusedtmp)) params start :: (UnusedMap, UnusedMap, UnusedMap) -> FilePath -> CommandStart -start (unused, unusedbad, unusedtmp) s = notBareRepo $ search +start (unused, unusedbad, unusedtmp) s = search [ (unused, perform) , (unusedbad, performOther gitAnnexBadLocation) , (unusedtmp, performOther gitAnnexTmpLocation) diff --git a/Command/Unused.hs b/Command/Unused.hs index a6cced27f..7e9ffa01f 100644 --- a/Command/Unused.hs +++ b/Command/Unused.hs @@ -36,7 +36,7 @@ seek = [withNothing start] {- Finds unused content in the annex. -} start :: CommandStart -start = notBareRepo $ do +start = do from <- Annex.getState Annex.fromremote let (name, action) = case from of Nothing -> (".", checkUnused) |