From f7a8f9c56b2eb612a736cc85ad079264e257d5a4 Mon Sep 17 00:00:00 2001 From: Mistivia Date: Sat, 26 Apr 2025 00:29:09 +0800 Subject: =?UTF-8?q?=E9=97=AE=E9=A2=98=E4=BF=AE=E5=A4=8D?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- app/Main.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/app/Main.hs b/app/Main.hs index 4e5b442..cccf14a 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -77,9 +77,9 @@ handleAction action model = case action of TextMsg tmsg cid mid -> case (words $ Text.unpack tmsg) of (command:args) -> case command of - _ | command == "/timer" -> handleTimerCmd model cid mid args - | otherwise -> replyTextEff model cid mid "无效命令" - [] -> replyTextEff model cid mid "无效命令" + "/timer" -> handleTimerCmd model cid mid args + _ -> return model + [] -> return model AddEvent e -> return (e:model) FireEvents ts -> fireEvents model ts -- cgit v1.0