X-Git-Url: http://gitweb.michael.orlitzky.com/?p=mailbox-count.git;a=blobdiff_plain;f=src%2FConfiguration.hs;h=f07be7094ddaff39191e51e8bb9e949755bcd421;hp=8b6a7cefff41250266213a7a44bb753b82ed3db8;hb=39e047ccd8422207e01247c63f514c40e7eac31e;hpb=08bee78f64c72b943ef775d9914e457c05eae7e8

diff --git a/src/Configuration.hs b/src/Configuration.hs
index 8b6a7ce..f07be70 100644
--- a/src/Configuration.hs
+++ b/src/Configuration.hs
@@ -20,26 +20,42 @@ data Configuration =
   Configuration {
     database :: Maybe String,
     detail  :: Bool,
+    detail_query :: String,
     host :: Maybe String,
     password :: Maybe String,
     port :: Maybe Int,
+    summary_query :: String,
     username :: Maybe String }
   deriving (Show)
 
+
 -- | A Configuration with all of its fields set to their default
 --   values.
+--
 instance Default Configuration where
   def = Configuration {
           database = def,
           detail = def,
+          detail_query = def_detail_query,
           host = def,
           password = def,
           port = def,
+          summary_query = def_summary_query,
           username = def }
+    where
+      def_summary_query = "SELECT domain,COUNT(username) " ++
+                          "FROM mailbox " ++
+                          "GROUP BY domain "++
+                          "ORDER BY domain;"
+
+      def_detail_query = "SELECT domain,username " ++
+                         "FROM mailbox " ++
+                         "ORDER BY domain;"
 
 -- | Merge a 'Configuration' with an 'OptionalConfiguration'. This is
 --   more or less the Monoid instance for 'OptionalConfiguration', but
 --   since the two types are different, we have to repeat ourselves.
+--
 merge_optional :: Configuration
                -> OC.OptionalConfiguration
                -> Configuration
@@ -47,9 +63,11 @@ merge_optional cfg opt_cfg =
   Configuration
     (OC.merge_maybes (database cfg) (OC.database opt_cfg))
     (merge (detail cfg) (OC.detail opt_cfg))
+    (merge (detail_query cfg) (OC.detail_query opt_cfg))
     (OC.merge_maybes (host cfg) (OC.host opt_cfg))
     (OC.merge_maybes (password cfg) (OC.password opt_cfg))
     (OC.merge_maybes (port cfg) (OC.port opt_cfg))
+    (merge (summary_query cfg) (OC.summary_query opt_cfg))
     (OC.merge_maybes (username cfg) (OC.username opt_cfg))
   where
     -- | If the thing on the right is Just something, return that