From c172bf7092d4a6ec645275bbe9050ace1a7b5722 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Mon, 15 Apr 2013 12:11:27 -0400
Subject: [PATCH] only show files that are really changed

---
 Build/EvilSplicer.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Build/EvilSplicer.hs b/Build/EvilSplicer.hs
index 66032bad7a..6fef646ae4 100644
--- a/Build/EvilSplicer.hs
+++ b/Build/EvilSplicer.hs
@@ -197,14 +197,14 @@ applySplices :: FilePath -> Maybe String -> [Splice] -> IO ()
 applySplices destdir imports splices@(first:_) = do
 	let f = splicedFile first
 	let dest = (destdir </> f)
-	putStrLn $ "splicing " ++ f
 	lls <- map (++ "\n") . lines <$> readFileStrict f
 	createDirectoryIfMissing True (parentDir dest)
 	let newcontent = concat $ addimports $
 		expanddeclarations declarationsplices $
 		expandexpressions lls expressionsplices
 	oldcontent <- catchMaybeIO $ readFileStrict dest
-	when (oldcontent /= Just newcontent) $
+	when (oldcontent /= Just newcontent) $ do
+		putStrLn $ "splicing " ++ f
 		writeFile dest newcontent
   where
 	(expressionsplices, declarationsplices) =