X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FOptionalConfiguration.hs;h=9013112f997ebcc5f389d1099c75edea1f67aa5c;hb=04f468994697d4d983a09a8e612948b23a973848;hp=ce99f5f9517beeb2e4907da77e7a32ea00cdd378;hpb=9d278c8b8eeff1a1317f2c3b0f7fdf5fb759ffb3;p=dead%2Fhtsn-import.git diff --git a/src/OptionalConfiguration.hs b/src/OptionalConfiguration.hs index ce99f5f..9013112 100644 --- a/src/OptionalConfiguration.hs +++ b/src/OptionalConfiguration.hs @@ -34,6 +34,7 @@ import System.Log ( Priority(..) ) import Text.Read ( readMaybe ) import Backend ( Backend(..) ) +import ConnectionString ( ConnectionString ) import Network.Services.TSN.Report ( report_error ) @@ -51,7 +52,7 @@ deriving instance Typeable Priority data OptionalConfiguration = OptionalConfiguration { backend :: Maybe Backend, - connection_string :: Maybe String, + connection_string :: Maybe ConnectionString, log_file :: Maybe FilePath, log_level :: Maybe Priority, syslog :: Maybe Bool,