[commit: ghc] wip/nfs-locking: Remove error from putSuccess :-) (9afd164)

git at git.haskell.org git at git.haskell.org
Fri Oct 27 00:03:28 UTC 2017


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

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

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

commit 9afd164fa76821409208e8a425ccaee625a8ee94
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date:   Fri Aug 7 12:24:17 2015 +0100

    Remove error from putSuccess :-)


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

9afd164fa76821409208e8a425ccaee625a8ee94
 src/Util.hs | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/src/Util.hs b/src/Util.hs
index 7a68b2a..dd0f2d8 100644
--- a/src/Util.hs
+++ b/src/Util.hs
@@ -69,10 +69,8 @@ putBuild :: String -> Action ()
 putBuild = putColoured White
 
 -- A more colourful version of error
-putSuccess :: String -> Action a
-putSuccess msg = do
-    putColoured Green msg
-    error $ "GHC build system error: " ++ msg
+putSuccess :: String -> Action ()
+putSuccess = putColoured Green
 
 -- A more colourful version of error
 putError :: String -> Action a



More information about the ghc-commits mailing list