[commit: ghc] wip/nfs-locking: Don't celebrate duplication (a2b39be)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/nfs-locking
Link       : http://ghc.haskell.org/trac/ghc/changeset/a2b39be6d48c9844f7d4519406c72857d38dd233/ghc

>---------------------------------------------------------------

commit a2b39be6d48c9844f7d4519406c72857d38dd233
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date:   Tue May 17 23:45:39 2016 +0100

    Don't celebrate duplication


>---------------------------------------------------------------

a2b39be6d48c9844f7d4519406c72857d38dd233
 src/Rules/Generate.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Rules/Generate.hs b/src/Rules/Generate.hs
index daebe5d..d19ceac 100644
--- a/src/Rules/Generate.hs
+++ b/src/Rules/Generate.hs
@@ -134,7 +134,7 @@ generatePackageCode context@(Context stage pkg _) =
                     newFile = oldPath ++ (drop (length path) file)
                 createDirectory $ takeDirectory newFile
                 liftIO $ IO.copyFile file newFile
-                putSuccess $ "| Duplicate file " ++ file ++ " -> " ++ newFile
+                putBuild $ "| Duplicate file " ++ file ++ " -> " ++ newFile
 
         when (pkg == rts) $ path -/- "AutoApply.cmm" %> \file -> do
             build $ Target context GenApply [] [file]