diff options
| author | Jan Tuomi <jans.tuomi@gmail.com> | 2024-01-21 19:20:22 +0200 |
|---|---|---|
| committer | Jan Tuomi <jans.tuomi@gmail.com> | 2024-01-21 19:20:22 +0200 |
| commit | b5ddfdc53cf1cf2197adf8718ea405acfa2fe6f7 (patch) | |
| tree | 8148ddcd0ea648a669a1863f48c91b9298071daa /desmoctl.scm | |
| parent | 351829f43fef1ef758defdb22316b6a0d848e530 (diff) | |
Refactor
Diffstat (limited to 'desmoctl.scm')
| -rw-r--r-- | desmoctl.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/desmoctl.scm b/desmoctl.scm index 5fc5bb3..855625a 100644 --- a/desmoctl.scm +++ b/desmoctl.scm @@ -5,11 +5,12 @@ (chicken pretty-print) matchable test - utils + + utils desmo-apply desmo-status desmo-logs - ) + ) ; CLI arg parser @@ -60,6 +61,8 @@ (test "returns parse-ok for valid flag and subcommand" 'parse-ok (car (parse-top-level-flags initial-opts '("-f" "desmo.scm" "apply")))))) + + (define (parse-subcommand args) (match args [("apply") |