telegram-bot-simple 0.14.1 → 0.14.2
raw patch · 7 files changed
+17/−8 lines, 7 files
Files
- CHANGELOG.md +5/−0
- README.md +1/−1
- examples/EchoBot.hs +2/−2
- examples/EchoBotWebhook.hs +2/−2
- examples/GameBot.hs +5/−2
- src/Telegram/Bot/Simple/Reply.hs +1/−0
- telegram-bot-simple.cabal +1/−1
CHANGELOG.md view
@@ -1,3 +1,8 @@+0.14.2 -- 2024-08-26+---++- Fix `ExceptionInLinkedThread` (see [#189](https://github.com/fizruk/telegram-bot-simple/pull/189)).+ 0.14.1 -- 2024-05-26 ---
README.md view
@@ -32,6 +32,6 @@ | 0.12 | 6.7 | | 0.13 | 7.0 | | 0.14 | 7.3 | -| 0.14.1 | 7.3.1 | +| 0.14.2 | 7.4 | _Nick_
examples/EchoBot.hs view
@@ -35,8 +35,8 @@ Just $ InlineEcho queryId msg | isJust $ updateMessageSticker update = do fileId <- stickerFileId <$> updateMessageSticker update- chatId <- updateChatId update- pure $ StickerEcho (InputFileId fileId) chatId+ chatOfUser <- updateChatId update+ pure $ StickerEcho (InputFileId fileId) chatOfUser | otherwise = case updateMessageText update of Just text -> Just (Echo text) Nothing -> Nothing
examples/EchoBotWebhook.hs view
@@ -43,8 +43,8 @@ Just $ InlineEcho queryId msg | isJust $ updateMessageSticker update = do fileId <- stickerFileId <$> updateMessageSticker update- chatId <- updateChatId update- pure $ StickerEcho (InputFileId fileId) chatId+ chatOfUser <- updateChatId update+ pure $ StickerEcho (InputFileId fileId) chatOfUser | otherwise = case updateMessageText update of Just text -> Just (Echo text) Nothing -> Nothing
examples/GameBot.hs view
@@ -104,7 +104,11 @@ { inlineQueryResultTitle = Just msg , inlineQueryResultInputMessageContent = Just gameMsg }- gameMsg = (defaultInputTextMessageContent gameMessageText) { inputMessageContentParseMode = Just "HTML" }+ gameMsg = InputTextMessageContent+ { inputMessageContentMessageText = gameMessageText+ , inputMessageContentParseMode = Just "HTML"+ , inputMessageContentDisableWebPagePrefiew = Nothing+ } inlineQueryResult = InlineQueryResultGame { inlineQueryResultGameGeneric = genericResult , inlineQueryResultGameGameShortName = gameName@@ -737,4 +741,3 @@ H.div ! A.class_ "position-link" $ do H.div ! A.class_ "qel-button text-button text-again-button" $ toMarkup txt-
src/Telegram/Bot/Simple/Reply.hs view
@@ -61,6 +61,7 @@ replyMessageToSendMessageRequest someChatId ReplyMessage{..} = SendMessageRequest { sendMessageChatId = someChatId , sendMessageBusinessConnectionId = Nothing+ , sendMessageMessageEffectId = Nothing , sendMessageMessageThreadId = replyMessageMessageThreadId , sendMessageText = replyMessageText , sendMessageParseMode = replyMessageParseMode
telegram-bot-simple.cabal view
@@ -1,7 +1,7 @@ cabal-version: 1.12 name: telegram-bot-simple-version: 0.14.1+version: 0.14.2 synopsis: Easy to use library for building Telegram bots. description: Please see the README on Github at <https://github.com/fizruk/telegram-bot-simple#readme> category: Web