src,test: use explicit import/export lists.

[mailbox-count.git] / src / Main.hs

diff --git a/src/Main.hs b/src/Main.hs
index d1d1ea81fa43516bd44b01b294326451b9fbafaf..2c225aebfa1bd8b4e4af120ca235e7aa63dff4ce 100644 (file)
--- 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 )