diff options
| -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 |