From 9de5506f194b51c6ed9eb9061ec5d09dee1142fa Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 14 Dec 2020 17:48:30 -0400 Subject: [PATCH] improve readability and fix a warning --- Annex/FileMatcher.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/Annex/FileMatcher.hs b/Annex/FileMatcher.hs index e2128f2ee1..bcde9ba4a8 100644 --- a/Annex/FileMatcher.hs +++ b/Annex/FileMatcher.hs @@ -72,10 +72,11 @@ checkMatcher :: FileMatcher Annex -> Maybe Key -> AssociatedFile -> AssumeNotPre checkMatcher matcher mkey afile notpresent notconfigured d | isEmpty matcher = notconfigured | otherwise = case (mkey, afile) of - (mkey, AssociatedFile (Just file)) -> + (_, AssociatedFile (Just file)) -> go =<< fileMatchInfo file mkey - (Just key, _) -> go (MatchingKey key afile) - _ -> d + (Just key, AssociatedFile Nothing) -> + go (MatchingKey key afile) + (Nothing, _) -> d where go mi = checkMatcher' matcher mi notpresent -- 2.30.2