From: Michael Orlitzky Date: Wed, 24 Aug 2022 12:16:44 +0000 (-0400) Subject: src/Main.hs: fix some cosmetic import warnings. X-Git-Tag: 0.0.2~19 X-Git-Url: http://gitweb.michael.orlitzky.com/?p=list-remote-forwards.git;a=commitdiff_plain;h=f9976196301fabb4c2aaba2a3ed72b49d365e5a8 src/Main.hs: fix some cosmetic import warnings. --- 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 )