From 57b41a1ee78f1181e603b5fd3c563e9b7793620f Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Wed, 13 Apr 2016 13:34:24 -0400
Subject: smudge: Print a warning when annex.thin is set, as git's smudge
 interface does not allow honoring that configuration.

---
 Command/Smudge.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'Command/Smudge.hs')

diff --git a/Command/Smudge.hs b/Command/Smudge.hs
index 6718b4908..1e169c1bf 100644
--- a/Command/Smudge.hs
+++ b/Command/Smudge.hs
@@ -8,6 +8,7 @@
 module Command.Smudge where
 
 import Command
+import qualified Annex
 import Annex.Content
 import Annex.Link
 import Annex.FileMatcher
@@ -54,6 +55,8 @@ smudge file = do
 			ifM (inAnnex k)
 				( do
 					content <- calcRepo (gitAnnexLocation k)
+					whenM (annexThin <$> Annex.getGitConfig) $
+						warning $ "Not able to honor annex.thin when git is checking out " ++ file ++ " (run git annex fix to re-thin files)"
 					liftIO $ B.putStr . fromMaybe b
 						=<< catchMaybeIO (B.readFile content)
 				, liftIO $ B.putStr b
-- 
cgit v1.2.3