diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-01-18 14:51:55 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-01-18 14:51:55 -0400 |
| commit | 842ca9c4b684ec21b9e5a99b3742db5f36a1440f (patch) | |
| tree | b198d4b4d66dd9497820f0149906df3a5a37e0cd /Command/Info.hs | |
| parent | beb9bfa4454c46f62e6ecb4bc180b4a33cce6370 (diff) | |
improve matcher data type to allow matching Keys, instead of just files (no behavior changes)
Diffstat (limited to 'Command/Info.hs')
| -rw-r--r-- | Command/Info.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/Info.hs b/Command/Info.hs index 7a9ec15dc..b623d58e7 100644 --- a/Command/Info.hs +++ b/Command/Info.hs @@ -312,7 +312,7 @@ getLocalStatInfo dir = do where initial = (emptyKeyData, emptyKeyData, emptyNumCopiesStats) update matcher fast key file vs@(presentdata, referenceddata, numcopiesstats) = - ifM (matcher $ FileInfo file file) + ifM (matcher $ MatchingFile $ FileInfo file file) ( do !presentdata' <- ifM (inAnnex key) ( return $ addKey key presentdata |