From 0c87789b31ecca4941b1d4a64a68afd1bc68593a Mon Sep 17 00:00:00 2001
From: sterni <sternenseemann@systemli.org>
Date: Thu, 21 Nov 2024 00:05:22 +0100
Subject: fix(sterni/mblog): check for help flags in flag, not arg list

Change-Id: I9f353f7c8f66078b51e333b6b8653f07f7ff544d
Reviewed-on: https://cl.tvl.fyi/c/depot/+/12816
Reviewed-by: sterni <sternenseemann@systemli.org>
Autosubmit: sterni <sternenseemann@systemli.org>
Tested-by: BuildkiteCI
---
 users/sterni/mblog/cli.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/users/sterni/mblog/cli.lisp b/users/sterni/mblog/cli.lisp
index 555f8def535f..cd0a6ae3911a 100644
--- a/users/sterni/mblog/cli.lisp
+++ b/users/sterni/mblog/cli.lisp
@@ -58,7 +58,7 @@
           (help-requested-p (find-if (lambda (x)
                                        (member x '("-h" "--help" "--usage")
                                                :test #'string=))
-                                     args)))
+                                     flags)))
       (apply
        (if help-requested-p
            #'display-help
-- 
cgit 1.4.1