diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-05-24 23:07:26 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-05-24 23:07:26 -0400 |
| commit | de99b5f96633c6e46fe290dd327417436d86a340 (patch) | |
| tree | ae7ed653b2da31319e79b5acf4e9dd6ad2e0c675 /Command/Status.hs | |
| parent | b2a2c996ad935e87b1f28eb77d12a895986073af (diff) | |
refactor
Diffstat (limited to 'Command/Status.hs')
| -rw-r--r-- | Command/Status.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Command/Status.hs b/Command/Status.hs index 6a50c1ab5..75080706d 100644 --- a/Command/Status.hs +++ b/Command/Status.hs @@ -35,6 +35,7 @@ import Config import Utility.Percentage import Logs.Transfer import Types.TrustLevel +import Types.FileMatcher import qualified Limit -- a named computation that produces a statistic @@ -286,7 +287,7 @@ getLocalStatInfo dir = do where initial = (emptyKeyData, emptyKeyData) update matcher key file vs@(presentdata, referenceddata) = - ifM (matcher $ Annex.FileInfo file file) + ifM (matcher $ FileInfo file file) ( (,) <$> ifM (inAnnex key) ( return $ addKey key presentdata |