From a26b7127d4cc8b2a5e15ef662ab2793dbf9e7919 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 9 Oct 2014 14:53:13 -0400 Subject: fix some mixed space+tab indentation This fixes all instances of " \t" in the code base. Most common case seems to be after a "where" line; probably vim copied the two space layout of that line. Done as a background task while listening to episode 2 of the Type Theory podcast. --- Limit.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Limit.hs') diff --git a/Limit.hs b/Limit.hs index 89dd9d33e..573bd57b6 100644 --- a/Limit.hs +++ b/Limit.hs @@ -234,7 +234,7 @@ limitSize vs s = case readSize dataUnits s of Nothing -> Left "bad size" Just sz -> Right $ go sz where - go sz _ (MatchingFile fi) = lookupFileKey fi >>= check fi sz + go sz _ (MatchingFile fi) = lookupFileKey fi >>= check fi sz go sz _ (MatchingKey key) = checkkey sz key checkkey sz key = return $ keySize key `vs` Just sz check _ sz (Just key) = checkkey sz key @@ -254,7 +254,7 @@ limitMetaData s = case parseMetaData s of let cglob = compileGlob (fromMetaValue v) CaseInsensative in Right $ const $ checkKey (check f cglob) where - check f cglob k = not . S.null + check f cglob k = not . S.null . S.filter (matchGlob cglob . fromMetaValue) . metaDataValues f <$> getCurrentMetaData k -- cgit v1.2.3