Commit a6623ab5 authored by Andrey Mokhov's avatar Andrey Mokhov
Browse files

Add putSuccess helper function.

parent fafec426
......@@ -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
......@@ -68,6 +68,12 @@ putOracle = putColoured Blue
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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment