From de99b5f96633c6e46fe290dd327417436d86a340 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 24 May 2013 23:07:26 -0400 Subject: refactor --- Command/Status.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Command') 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 -- cgit v1.2.3