From f9976196301fabb4c2aaba2a3ed72b49d365e5a8 Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Wed, 24 Aug 2022 08:16:44 -0400 Subject: [PATCH] src/Main.hs: fix some cosmetic import warnings. --- src/Main.hs | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/src/Main.hs b/src/Main.hs index 088d86d..7a17f07 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -4,9 +4,10 @@ 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 ) @@ -14,7 +15,9 @@ import System.Directory ( doesFileExist ) 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 ) -- 2.44.2