Skip to content

Commit

Permalink
Add archive subcommand
Browse files Browse the repository at this point in the history
This creates an alias for `standup` because I find myself typing this
more than standup. Not worth deprecating the original subcommand.
  • Loading branch information
mmwtsn committed Mar 13, 2016
1 parent 659220b commit 45849e7
Showing 1 changed file with 2 additions and 0 deletions.
2 changes: 2 additions & 0 deletions app/Main.hs
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand All @@ -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

0 comments on commit 45849e7

Please sign in to comment.