Commit 4fd17325 authored by Andrey Mokhov's avatar Andrey Mokhov
Browse files

Get rid of redError_.

parent 098d9c1e
......@@ -31,8 +31,8 @@ configOracle = do
let configFile = configPath -/- "system.config"
cfg <- newCache $ \() -> do
unlessM (doesFileExist $ configFile <.> "in") $
putError_ $ "\nConfiguration file '" ++ (configFile <.> "in")
++ "' is missing; unwilling to proceed."
putError $ "\nConfiguration file '" ++ (configFile <.> "in")
++ "' is missing; unwilling to proceed."
need [configFile]
putOracle $ "Reading " ++ configFile ++ "..."
liftIO $ readConfigFile configFile
......
......@@ -4,13 +4,12 @@ module Util (
replaceIf, replaceEq, replaceSeparators,
unifyPath, (-/-),
chunksOfSize,
putColoured, putOracle, putBuild, putError, putError_,
putColoured, putOracle, putBuild, putError,
bimap, minusOrd, intersectOrd
) where
import Base
import Data.Char
import Control.Monad
import System.IO
import System.Console.ANSI
......@@ -70,9 +69,6 @@ putError msg = do
putColoured Red msg
error $ "GHC build system error: " ++ msg
putError_ :: String -> Action ()
putError_ = void . putError
-- Depending on Data.Bifunctor only for this function seems an overkill
bimap :: (a -> b) -> (c -> d) -> (a, c) -> (b, d)
bimap f g (x, y) = (f x, g y)
......
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