diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-09-09 14:15:56 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-09-09 14:15:56 -0400 |
| commit | 6238dddc0d340fb57e03beee81ccd9e954909bad (patch) | |
| tree | 73b1054969031528a772d54d8263cf159a948ee6 /Command/Info.hs | |
| parent | e112ec127186bbc6d1528ad09d723988e068e834 (diff) | |
info: Support querying info of individual files in direct mode.
Diffstat (limited to 'Command/Info.hs')
| -rw-r--r-- | Command/Info.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/Command/Info.hs b/Command/Info.hs index a744f7402..9bf2101a0 100644 --- a/Command/Info.hs +++ b/Command/Info.hs @@ -24,7 +24,6 @@ import Command import Utility.DataUnits import Utility.DiskFree import Annex.Content -import Annex.Link import Types.Key import Logs.UUID import Logs.Trust @@ -127,8 +126,7 @@ itemInfo o p = ifM (isdir p) v' <- Remote.nameToUUID' p case v' of Right u -> uuidInfo o u - Left _ -> maybe noinfo (fileInfo o p) - =<< isAnnexLink p + Left _ -> ifAnnexed p (fileInfo o p) noinfo ) where isdir = liftIO . catchBoolIO . (isDirectory <$$> getFileStatus) |