X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FOptionalConfiguration.hs;h=9013112f997ebcc5f389d1099c75edea1f67aa5c;hb=cdd0f36ab4aa8aadc416f6b9cbe6117c26d2ddf2;hp=ce99f5f9517beeb2e4907da77e7a32ea00cdd378;hpb=ce611b60b9c42e176b215453f0d0f862d2d5d0fd;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,