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)