From f57b987ce66957a86baa846a813d5d3ddee6c6db Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Wed, 9 Feb 2022 18:19:00 -0500
Subject: Fix simple errors in Serval and core

---
 Biz/Serval.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'Biz/Serval.scm')

diff --git a/Biz/Serval.scm b/Biz/Serval.scm
index 303acdb..0e6be55 100644
--- a/Biz/Serval.scm
+++ b/Biz/Serval.scm
@@ -39,9 +39,10 @@
   #:use-module ((srfi srfi-9)
                 #:select (define-record-type))
   #:use-module ((bs core)
-                #:select (rest fmt prn comment))
+                #:select (first second rest turn fmt prn comment))
   #:use-module ((bs test)
                 #:select (testing))
+  #:use-module ((bs shell) #:prefix Shell.)
   #:export (main))
 
 (define *data-dir* "/var/lib/serval")
@@ -64,7 +65,7 @@
       ["ssh" (run-in-kit! args)]
       ["info" (prn "TODO: show kit")]
       ["ls" ("TODO: list available kits")]
-      [else (prn "help")])))
+      [else (prn "TODO: help text")])))
 
 (define-record-type @Kit
   (Kit name nix-path system-path host-address
-- 
cgit v1.2.3