src/Configuration.hs

   1 -- | This module defines the 'Cfg' type, which is just a wrapper
   2 --   around all of the configuration options we accept on the command
   3 --   line. We thread this throughout the rest of the program.
   4 module Configuration (
   5   Cfg(..)
   6 )
   7 where
   8
   9 data Cfg = Cfg { heartbeat :: Int,
  10                  ignore_replies :: Bool,
  11                  ignore_retweets :: Bool,
  12                  sendmail_path :: String,
  13                  from_address :: Maybe String,
  14                  to_address :: Maybe String,
  15                  verbose :: Bool }