diff options
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) |