Provide a default connection string (for sqlite).

[dead/htsn-import.git] / src / OptionalConfiguration.hs

diff --git a/src/OptionalConfiguration.hs b/src/OptionalConfiguration.hs
index ce99f5f9517beeb2e4907da77e7a32ea00cdd378..9013112f997ebcc5f389d1099c75edea1f67aa5c 100644 (file)
--- 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,