From: Michael Orlitzky <michael@orlitzky.com>
Date: Sat, 22 May 2010 17:35:37 +0000 (-0400)
Subject: Changed the long name of "dupe" from "duplicated" to "duped."
X-Git-Tag: 0.0.1~30
X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=79e77832f17cca783e03498b581f8acb59c9d035;p=hath.git

Changed the long name of "dupe" from "duplicated" to "duped."
---

diff --git a/src/CommandLine.hs b/src/CommandLine.hs
index 7fc614a..68957b1 100644
--- a/src/CommandLine.hs
+++ b/src/CommandLine.hs
@@ -72,7 +72,7 @@ set_input arg opts = do
 
 -- The usage header
 usage :: String
-usage = "Usage: hath [regexed|reduced|duplicated|diffed] [-h] [-i FILE]"
+usage = "Usage: hath [regexed|reduced|duped|diffed] [-h] [-i FILE]"
 
 
 -- The usage header, and all available flags (as generated by GetOpt)
@@ -107,14 +107,14 @@ parse_mode = do
     else do
       -- Some non-option was given, but were any of them modes?
       case (lowercase (non_options !! 0)) of
-        "regex"      -> return Regex
-        "regexed"    -> return Regex
-        "reduce"     -> return Reduce
-        "reduced"    -> return Reduce
-        "dupe"       -> return Dupe
-        "duplicated" -> return Dupe
-        "diff"       -> return Diff
-        "diffed"     -> return Diff
+        "regex"   -> return Regex
+        "regexed" -> return Regex
+        "reduce"  -> return Reduce
+        "reduced" -> return Reduce
+        "dupe"    -> return Dupe
+        "duped"   -> return Dupe
+        "diff"    -> return Diff
+        "diffed"  -> return Diff
         _         -> return Regex