Don't celebrate duplication
authorAndrey Mokhov <andrey.mokhov@gmail.com>
Tue, 17 May 2016 22:45:39 +0000 (23:45 +0100)
committerAndrey Mokhov <andrey.mokhov@gmail.com>
Tue, 17 May 2016 22:45:39 +0000 (23:45 +0100)
src/Rules/Generate.hs

index daebe5d..d19ceac 100644 (file)
@@ -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]