diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-05-14 15:44:08 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-05-14 15:44:08 -0400 |
| commit | ca433a6dae1e76a40e741b61113a59e48be575db (patch) | |
| tree | 4557066b970e3f7bc5ec5eafa246e4d722a2d513 /Command/Unused.hs | |
| parent | 9ef82700e53d82b38aed603c5c8033d09fe3cf3f (diff) | |
add annex.used-refspec
Diffstat (limited to 'Command/Unused.hs')
| -rw-r--r-- | Command/Unused.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Command/Unused.hs b/Command/Unused.hs index a5698c833..c92ece2d5 100644 --- a/Command/Unused.hs +++ b/Command/Unused.hs @@ -53,7 +53,9 @@ seek = withNothing start {- Finds unused content in the annex. -} start :: CommandStart start = do - !refspec <- maybe allRefSpec (either error id . parseRefSpec) + cfgrefspec <- fromMaybe allRefSpec . annexUsedRefSpec + <$> Annex.getGitConfig + !refspec <- maybe cfgrefspec (either error id . parseRefSpec) <$> Annex.getField (optionName refSpecOption) from <- Annex.getField (optionName unusedFromOption) let (name, action) = case from of |