X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fharbl.git;a=blobdiff_plain;f=harbl-cli%2Fsrc%2FMain.hs;h=9e6e0579c473bbef1afec1e8c391aeeeb0e6d42e;hp=7b28af57cacfd59327cf7ab7471f32a8eb5a3bc3;hb=a9e293c277eebd06b4916a54342a866aba20ef4f;hpb=98b9d8768fe78d9948151e499ec52f7f616bd6e9

diff --git a/harbl-cli/src/Main.hs b/harbl-cli/src/Main.hs
index 7b28af5..9e6e057 100644
--- a/harbl-cli/src/Main.hs
+++ b/harbl-cli/src/Main.hs
@@ -8,7 +8,7 @@ import Data.Monoid ( (<>) )
 import Text.Parsec ( ParseError, parse )
 import System.Console.CmdArgs ( def )
 import System.Exit ( exitSuccess, exitWith, ExitCode (ExitFailure) )
-import System.IO ( hPutStrLn, stderr )
+import System.IO ( hPrint, stderr )
 
 import CommandLine ( get_args )
 import Configuration ( Configuration(..), merge_optional )
@@ -73,12 +73,12 @@ main = do
 
   case (parse_lists $ lists cfg) of
     Left e -> do
-      hPutStrLn stderr (show e)
+      hPrint stderr e
       exitWith (ExitFailure exit_unparseable_list)
-    Right ls -> do
+    Right ls ->
       case (parse_hosts $ hosts cfg) of
         Left e -> do
-          hPutStrLn stderr (show e)
+          hPrint stderr e
           exitWith (ExitFailure exit_unparseable_host)
         Right hs -> do
           listings <- concatMapM (lookup_rbl ls) hs