From 45849e708c5c099cba75e392234628e65e6c3489 Mon Sep 17 00:00:00 2001 From: "M. Maxwell Watson" Date: Sun, 13 Mar 2016 17:07:34 -0400 Subject: [PATCH] Add `archive` subcommand This creates an alias for `standup` because I find myself typing this more than standup. Not worth deprecating the original subcommand. --- app/Main.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/app/Main.hs b/app/Main.hs index 515681b..60a710b 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -14,6 +14,7 @@ parse ["new"] = new >> exit parse ["add-done"] = addDone >> exit parse ["add-todo"] = addTodo >> exit parse ["standup"] = standup >> exit +parse ["archive"] = standup >> exit parse ["-v"] = version >> exit parse ["--version"] = version >> exit parse ["-h"] = help >> exit @@ -32,5 +33,6 @@ help = putStrLn $ , " add-done Add a task to the in-progress done" , " add-todo Add a task to the in-progress todo" , " standup Run `add-todo` then archive the standup" + , " archive Alias for `standup`" ] exit = exitWith ExitSuccess