X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fhtsn.git;a=blobdiff_plain;f=src%2FConfiguration.hs;h=7b237c5f1d0d350de28b8d00bc711fabcc78ee2c;hp=71dbbc9e4c83310bac66a53152473a8be0e57d27;hb=a2c2a1a6865be7b4cd17fb72de635bb9385728b9;hpb=95e23e65db31cf51c9f207a6b447da19920ee1a1

diff --git a/src/Configuration.hs b/src/Configuration.hs
index 71dbbc9..7b237c5 100644
--- a/src/Configuration.hs
+++ b/src/Configuration.hs
@@ -1,7 +1,7 @@
 -- | This module defines the 'Configuration' type, which is just a
 --   wrapper around all of the configuration options we accept on the
---   command line. We thread this throughout the rest of the program.
-
+--   command line.
+--
 module Configuration (
   Configuration(..),
   merge_optional )
@@ -25,6 +25,10 @@ data Configuration =
 instance Default Configuration where
   def = Configuration def def "." def
 
+
+-- | 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