From 4620fb208747c9a77cfd9b1cb0fadcbb718163e9 Mon Sep 17 00:00:00 2001
From: voidlizard <dzuikov@gmail.com>
Date: Mon, 19 May 2025 13:29:40 +0300
Subject: [PATCH] wip

---
 bf6/hbs23            |  6 +++---
 hbs2-cli/app/Main.hs | 11 +++++++++++
 2 files changed, 14 insertions(+), 3 deletions(-)

diff --git a/bf6/hbs23 b/bf6/hbs23
index 4f2a21f5..7d365669 100755
--- a/bf6/hbs23
+++ b/bf6/hbs23
@@ -1,17 +1,17 @@
 #! /usr/bin/env -S hbs2-cli file
 
-println *args
+; # println *args
 
 ; # (println (grep (sym "-g") *args))
 
 (match *args
-  ( (list? _ ...)
+  ( (list? [sym? store] ...)
     (begin
       (println "FUCKING STORE" space ...))
 
   )
 
-  ( _ nil)
+  ( _  (println "FUCK") )
 )
 
 
diff --git a/hbs2-cli/app/Main.hs b/hbs2-cli/app/Main.hs
index c511c759..949d46d7 100644
--- a/hbs2-cli/app/Main.hs
+++ b/hbs2-cli/app/Main.hs
@@ -105,8 +105,19 @@ main = do
 
   runHBS2Cli do
 
+    -- error (show $ pretty cli)
+
     case cli of
 
+      ( cmd@(ListVal [StringLike "file", StringLike fn]) : _ ) -> do
+        void $ run dict [cmd]
+
+      ( cmd@(ListVal [StringLike "stdin"]) : _ ) -> do
+        void $ run dict [cmd]
+
+      ( cmd@(ListVal [StringLike "--help"]) : _ ) -> do
+        void $ run dict [cmd]
+
       [] -> do
         eof <- liftIO IO.isEOF
         if eof then