Get rid of redError_.
authorAndrey Mokhov <andrey.mokhov@gmail.com>
Wed, 5 Aug 2015 22:23:22 +0000 (23:23 +0100)
committerAndrey Mokhov <andrey.mokhov@gmail.com>
Wed, 5 Aug 2015 22:23:22 +0000 (23:23 +0100)
src/Oracles/Base.hs
src/Util.hs

index 29ec4e4..a6abbfc 100644 (file)
@@ -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
index 32b6478..f00785f 100644 (file)
@@ -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)