diff options
| author | Mistivia <i@mistivia.com> | 2025-04-26 00:29:09 +0800 |
|---|---|---|
| committer | Mistivia <i@mistivia.com> | 2025-04-27 20:34:05 +0800 |
| commit | f7a8f9c56b2eb612a736cc85ad079264e257d5a4 (patch) | |
| tree | c2222bf853cb10afb7d67d7f2480094c0c031e0d /app/Main.hs | |
| parent | d7c342689fd3c840b14afce12398967785abd9f2 (diff) | |
问题修复
Diffstat (limited to 'app/Main.hs')
| -rw-r--r-- | app/Main.hs | 6 |
1 files 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 |