X-Git-Url: http://gitweb.michael.orlitzky.com/?p=list-remote-forwards.git;a=blobdiff_plain;f=src%2FMain.hs;h=66d02a084449102dace81985744afdf25e4da8f6;hp=13371a836d9f7c537583842241db904ec39df1c8;hb=ae4cdbc0662d67d3d325c8ab567e0d45a84413b3;hpb=8e5a377920002012c38066a2d21b6393a78c677a

diff --git a/src/Main.hs b/src/Main.hs
index 13371a8..66d02a0 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -74,9 +74,9 @@ main = do
           else connectPostgreSQL (connection_string cfg) >>= report cfg
 
     -- The DB connection is implicitly closed when it gets garbage collected.
-    putStrLn r
+    putStr r
 
   where
     show_sql_error :: SqlError -> IO ()
     show_sql_error se = hPutStrLn stderr $
-      "SQL Error (" ++ (show $ seNativeError se) ++ "): " ++ (seErrorMsg se)
+      "SQL Error (" ++ show (seNativeError se) ++ "): " ++ (seErrorMsg se)