Fix hlint suggestions.

[dead/harbl.git] / harbl-cli / src / Main.hs

diff --git a/harbl-cli/src/Main.hs b/harbl-cli/src/Main.hs
index 7b28af57cacfd59327cf7ab7471f32a8eb5a3bc3..9e6e0579c473bbef1afec1e8c391aeeeb0e6d42e 100644 (file)
--- 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