where
import Data.Maybe ( fromMaybe )
-import Data.Monoid ( (<>) )
import Data.String.Utils ( join )
-import Database.HDBC ( SqlError(..), handleSql )
+import Database.HDBC (
+ SqlError(seNativeError, seErrorMsg),
+ handleSql )
import Database.HDBC.PostgreSQL ( connectPostgreSQL )
import Database.HDBC.Sqlite3 ( connectSqlite3 )
import System.Console.CmdArgs ( def )
import System.IO ( hPutStrLn, stderr )
import CommandLine ( get_args )
-import Configuration ( Configuration(..), merge_optional )
+import Configuration (
+ Configuration(database, host, password, port, username),
+ merge_optional )
import qualified OptionalConfiguration as OC ( from_rc )
import Report ( report )
import String ( trim )