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 { consumer_key :: String,
  10                  consumer_secret :: String,
  11                  access_token :: String,
  12                  access_secret :: String,
  13                  heartbeat :: Int,
  14                  ignore_replies :: Bool,
  15                  ignore_retweets :: Bool,
  16                  sendmail_path :: String,
  17                  from_address :: Maybe String,
  18                  to_address :: Maybe String,
  19                  verbose :: Bool }