From 168f91efec432492db8523ebc3186c24f760f0d9 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Thu, 24 Oct 2019 11:46:40 -0400
Subject: [PATCH] avoid warning over name

---
 Command/Smudge.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/Command/Smudge.hs b/Command/Smudge.hs
index 27d4e24f1e..821bd9f57c 100644
--- a/Command/Smudge.hs
+++ b/Command/Smudge.hs
@@ -166,11 +166,11 @@ shouldAnnex file moldkey = ifM (annexGitAddToAnnex <$> Annex.getGitConfig)
 	, checkheuristics (pure False)
 	)
   where
-	checkmatcher def = do
+	checkmatcher d = do
 		matcher <- largeFilesMatcher
-		checkFileMatcher' matcher file def
+		checkFileMatcher' matcher file d
 	
-	checkheuristics def = case moldkey of
+	checkheuristics d = case moldkey of
 		Just _ -> return True
 		Nothing -> do
 			isknown <- withTSDelta (liftIO . genInodeCache file) >>= \case
@@ -178,7 +178,7 @@ shouldAnnex file moldkey = ifM (annexGitAddToAnnex <$> Annex.getGitConfig)
 				Just ic -> Database.Keys.isInodeKnown ic =<< sentinalStatus
 			if isknown
 				then return True
-				else def
+				else d
 	
 	checkwasingit = case moldkey of
 		Just _ -> return False