X-Git-Url: http://gitweb.michael.orlitzky.com/?p=mailbox-count.git;a=blobdiff_plain;f=src%2FMain.hs;fp=src%2FMain.hs;h=2c225aebfa1bd8b4e4af120ca235e7aa63dff4ce;hp=d1d1ea81fa43516bd44b01b294326451b9fbafaf;hb=1585e5bef7e46666a8f026a00884323c9834565b;hpb=17ce59153f9b7aef917bb4395cf8fb992a6f738c

diff --git a/src/Main.hs b/src/Main.hs
index d1d1ea8..2c225ae 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -1,19 +1,21 @@
 {-# LANGUAGE DoAndIfThenElse #-}
 {-# LANGUAGE NoMonomorphismRestriction #-}
-module Main
+module Main ( main )
 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.Directory ( doesFileExist )
 import System.IO ( hPutStrLn, stderr )
 import CommandLine ( get_args )
-import Configuration ( Configuration(..), merge_optional )
+import Configuration (
+  Configuration( host, port, username, password, database ),
+  merge_optional )
 import qualified OptionalConfiguration as OC ( from_rc )
 import Report ( report )