From 79e77832f17cca783e03498b581f8acb59c9d035 Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Sat, 22 May 2010 13:35:37 -0400 Subject: [PATCH] Changed the long name of "dupe" from "duplicated" to "duped." --- src/CommandLine.hs | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) 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 -- 2.43.2