X-Git-Url: http://gitweb.michael.orlitzky.com/?p=list-remote-forwards.git;a=blobdiff_plain;f=src%2FMain.hs;h=ab4d05590458d819413da4dccab941d61a3c28cc;hp=13371a836d9f7c537583842241db904ec39df1c8;hb=f75845314598408bce3a1b972f2ba274d93d0e8d;hpb=bf367c0d7450fbe148a0a22681384954978bde21 diff --git a/src/Main.hs b/src/Main.hs index 13371a8..ab4d055 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -74,7 +74,7 @@ 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 ()