From b5ddfdc53cf1cf2197adf8718ea405acfa2fe6f7 Mon Sep 17 00:00:00 2001 From: Jan Tuomi Date: Sun, 21 Jan 2024 19:20:22 +0200 Subject: Refactor --- desmoctl.scm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'desmoctl.scm') 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") -- cgit v1.3