diff options
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") |