todo_types.ml

   1 type subcommand =
   2   | Idea
   3   | List
   4   | Move
   5   | Retire
   6   | Tag
   7   | Tag_add
   8   | Tag_colour
   9   | Tag_del
  10   | Tag_list
  11   | Today
  12   | Todo
  13
  14 let subcommand_of_string = function
  15   | "idea" -> Idea
  16   | "list" -> List
  17   | "move" -> Move
  18   | "retire" -> Retire
  19   | "tag" -> Tag
  20   | "tag-add" -> Tag_add
  21   | "tag-color" | "tag-colour" -> Tag_colour
  22   | "tag-del" | "tag-delete" | "tag-rm" -> Tag_del
  23   | "tag-list" -> Tag_list
  24   | "task" | "todo" -> Todo
  25   | "today" -> Today
  26   | _ -> invalid_arg "subcommand_of_string"