Put replies before retweets in the options.
authorMichael Orlitzky <michael@orlitzky.com>
Tue, 10 Apr 2012 22:32:37 +0000 (18:32 -0400)
committerMichael Orlitzky <michael@orlitzky.com>
Tue, 10 Apr 2012 22:32:37 +0000 (18:32 -0400)
Provide two functions to get the reply/retweet flags.

src/CommandLine.hs

index 15120439d40dd1ece0a933bc730b4cafa2e906ff..919a3a2136f11a76a9da1441e36b7497084ad407 100644 (file)
@@ -5,6 +5,8 @@ module CommandLine
 ( heartbeat,
   help_set,
   help_text,
+  ignore_replies_set,
+  ignore_retweets_set,
   from_email_address,
   to_email_address,
   parse_errors,
@@ -20,8 +22,8 @@ import System.Environment (getArgs)
 -- |A record containing values for all available options.
 data Options = Options { opt_heartbeat :: Maybe Int,
                          opt_help  :: Bool,
-                         opt_ignore_retweets :: Bool,
                          opt_ignore_replies :: Bool,
+                         opt_ignore_retweets :: Bool,
                          opt_from :: Maybe String,
                          opt_to :: Maybe String }
 
@@ -31,8 +33,8 @@ data Options = Options { opt_heartbeat :: Maybe Int,
 default_options :: Options
 default_options = Options { opt_heartbeat = Just 600,
                             opt_help = False,
-                            opt_ignore_retweets = False,
                             opt_ignore_replies = False,
+                            opt_ignore_retweets = False,
                             opt_from = Nothing,
                             opt_to = Nothing }
 
@@ -68,13 +70,13 @@ options =
       "Send tweets FROM email_address.",
 
     Option
-      ['i']["ignore-retweets"]
-      (NoArg set_ignore_retweets)
-      "Ignore retweets.",
+      ['i']["ignore-replies"]
+      (NoArg set_ignore_replies)
+      "Ignore replies.",
 
     Option
-      ['I']["ignore-replies"]
-      (NoArg set_ignore_replies)
+      ['I']["ignore-retweets"]
+      (NoArg set_ignore_retweets)
       "Ignore retweets."
   ]
 
@@ -203,6 +205,18 @@ help_set = do
     opts <- parse_options
     return (opt_help opts)
 
+-- | Was the "ignore-replies" option passes on the command line?
+ignore_replies_set :: IO Bool
+ignore_replies_set = do
+  opts <- parse_options
+  return (opt_ignore_replies opts)
+
+-- | Was the "ignore-retweets" option passes on the command line?
+ignore_retweets_set :: IO Bool
+ignore_retweets_set = do
+  opts <- parse_options
+  return (opt_ignore_retweets opts)
+
 -- |What's the heartbeat?
 heartbeat :: IO (Maybe Int)
 heartbeat = do