import Data.Maybe ( fromMaybe )
import Data.Monoid ( (<>) )
import Data.String.Utils ( join )
+import Database.HDBC ( SqlError(..), handleSql )
import Database.HDBC.PostgreSQL ( connectPostgreSQL )
import Database.HDBC.Sqlite3 ( connectSqlite3 )
import System.Console.CmdArgs ( def )
import System.Directory ( doesFileExist )
-
+import System.IO ( hPutStrLn, stderr )
import CommandLine ( get_args )
import Configuration ( Configuration(..), merge_optional )
import qualified OptionalConfiguration as OC ( from_rc )
-- If a database name was specified, and that name exists as a file
-- on the system, assume that the user wanted to use SQLite.
- r <- case (database cfg) of
- Nothing -> connectPostgreSQL (connection_string cfg) >>= report cfg
+ handleSql show_sql_error $ do
+ r <- case (database cfg) of
+ Nothing -> connectPostgreSQL (connection_string cfg) >>= report cfg
+
+ Just dbname -> do
+ exists <- doesFileExist dbname
+ if exists
+ then connectSqlite3 dbname >>= report cfg
+ else connectPostgreSQL (connection_string cfg) >>= report cfg
- Just dbname -> do
- exists <- doesFileExist dbname
- if exists
- then connectSqlite3 dbname >>= report cfg
- else connectPostgreSQL (connection_string cfg) >>= report cfg
+ -- The DB connection is implicitly closed when it gets garbage collected.
+ putStrLn r
- -- The DB connection is implicitly closed when it gets garbage collected.
- putStrLn r
+ where
+ show_sql_error :: SqlError -> IO ()
+ show_sql_error se = hPutStrLn stderr $
+ "SQL Error (" ++ (show $ seNativeError se) ++ "): " ++ (seErrorMsg se)