Add putSuccess helper function.
authorAndrey Mokhov <andrey.mokhov@gmail.com>
Fri, 7 Aug 2015 01:56:33 +0000 (02:56 +0100)
committerAndrey Mokhov <andrey.mokhov@gmail.com>
Fri, 7 Aug 2015 01:56:33 +0000 (02:56 +0100)
src/Util.hs

index 1c34a87..7a68b2a 100644 (file)
@@ -4,7 +4,7 @@ module Util (
     replaceIf, replaceEq, replaceSeparators, decodeModule,
     unifyPath, (-/-),
     chunksOfSize,
-    putColoured, putOracle, putBuild, putError,
+    putColoured, putOracle, putBuild, putSuccess, putError,
     bimap, minusOrd, intersectOrd
     ) where
 
@@ -69,6 +69,12 @@ 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
+
+-- A more colourful version of error
 putError :: String -> Action a
 putError msg = do
     putColoured Red msg