]> gitweb.michael.orlitzky.com - mailbox-count.git/blobdiff - src/Configuration.hs
Align the mailbox counts in the summary report to the same column.
[mailbox-count.git] / src / Configuration.hs
index e383abc263c0ee85878045c00f3293197cd6cb3a..8b6a7cefff41250266213a7a44bb753b82ed3db8 100644 (file)
@@ -18,7 +18,6 @@ import qualified OptionalConfiguration as OC (
 --
 data Configuration =
   Configuration {
-    both   :: Bool,
     database :: Maybe String,
     detail  :: Bool,
     host :: Maybe String,
@@ -31,7 +30,6 @@ data Configuration =
 --   values.
 instance Default Configuration where
   def = Configuration {
-          both   = def,
           database = def,
           detail = def,
           host = def,
@@ -47,7 +45,6 @@ merge_optional :: Configuration
                -> Configuration
 merge_optional cfg opt_cfg =
   Configuration
-    (merge (both cfg) (OC.both opt_cfg))
     (OC.merge_maybes (database cfg) (OC.database opt_cfg))
     (merge (detail cfg) (OC.detail opt_cfg))
     (OC.merge_maybes (host cfg) (OC.host opt_cfg))