From b885c0c6c8faa0c56e5f8cbdaa031652df6b26b4 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 5 Aug 2012 15:01:26 -0400 Subject: unused, status: Avoid crashing when ran in bare repo. --- Command/Unused.hs | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'Command') diff --git a/Command/Unused.hs b/Command/Unused.hs index b115eee83..09b4be5df 100644 --- a/Command/Unused.hs +++ b/Command/Unused.hs @@ -229,9 +229,12 @@ withKeysReferencedM a = withKeysReferenced' () calla withKeysReferenced' :: v -> (Key -> v -> Annex v) -> Annex v withKeysReferenced' initial a = go initial =<< files where - files = do - top <- fromRepo Git.repoPath - inRepo $ LsFiles.inRepo [top] + files = ifM isBareRepo + ( return [] + , do + top <- fromRepo Git.repoPath + inRepo $ LsFiles.inRepo [top] + ) go v [] = return v go v (f:fs) = do x <- Backend.lookupFile f -- cgit v1.2.3