[commit: ghc] master: Use errorMsg over putMsg when appropriate. (66c4196)

[David Terei]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/66c41963c82ae66a24c5d7b96f5fa6e797d6a27d

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

commit 66c41963c82ae66a24c5d7b96f5fa6e797d6a27d
Author: David Terei <davidterei at gmail.com>
Date:   Mon Jun 25 01:43:04 2012 -0700

    Use errorMsg over putMsg when appropriate.

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

 compiler/main/SysTools.lhs |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/compiler/main/SysTools.lhs b/compiler/main/SysTools.lhs
index e443389..49314f2 100644
--- a/compiler/main/SysTools.lhs
+++ b/compiler/main/SysTools.lhs
@@ -499,8 +499,8 @@ runClang dflags args = do
         runSomething dflags "Clang (Assembler)" clang args
     )
     (\(err :: SomeException) -> do
-        putMsg dflags $ text $ "Error running clang! you need clang installed"
-                            ++ " to use the LLVM backend"
+        errorMsg dflags $ text $ "Error running clang! you need clang installed"
+                              ++ " to use the LLVM backend"
         throw err
     )
 
@@ -538,7 +538,7 @@ figureLlvmVersion dflags = do
                 debugTraceMsg dflags 2
                     (text "Error (figuring out LLVM version):" <+>
                      text (show err))
-                putMsg dflags $ vcat
+                errorMsg dflags $ vcat
                     [ text "Warning:", nest 9 $
                           text "Couldn't figure out LLVM version!" $$
                           text "Make sure you have installed LLVM"]