telegram-api

High-level bindings to the Telegram Bot API based on servant library. Both getUpdates request or webhook can be used to receive updates for your bot. Inline mode is supported. Uploading stickers, documents, video, etc is not supported yet, but you can send items which are already uploaded on the Telegram servers.

See list of supported methods below in TODO section.

Usage

getMe example

import Control.Monad
import qualified Data.Text.IO as T
import Data.Maybe
import Web.Telegram.API.Bot

main :: IO ()
main = do
  Right GetMeResponse { user_result = u } <-
    getMe token
    T.putStrLn (user_first_name u)
  where token = Token "bot<token>" -- entire Token should be bot123456:ABC-DEF1234ghIkl-zyx57W2v1u123ew11

sendMessage example

import Control.Monad
import qualified Data.Text.IO as T
import Data.Maybe
import Web.Telegram.API.Bot

main :: IO ()
main = do
  Right MessageResponse { message_result = m } <-
    sendMessage token (SendMessageRequest chatId message (Just Markdown) Nothing Nothing Nothing)
    T.putStrLn (message_id m)
    T.putStrLn (text m)
  where token = Token "bot<token>" -- entire Token should be bot123456:ABC-DEF1234ghIkl-zyx57W2v1u123ew11
        chatId = "<chat_id> or <@channelusername>" 
        message = "text *bold* _italic_ [github](github.com/klappvisor/haskell-telegram-api)"

TODO

• Uploading of Files, Documents, Stickers, etc

Methods

Currently supported:

• getMe
• sendMessage
• forwardMessage
• sendPhoto - without upload
• sendAudio - without upload
• sendDocument - without upload
• sendSticker - without upload
• sendVideo - without upload
• sendVoice - without upload
• sendLocation
• getUpdates
• getFile
• sendChatAction
• getUserProfilePhotos
• setWebhook - without uploading certificate
• answerInlineQuery

To be done:

• sendPhoto - upload photo
• sendAudio - upload audio
• sendDocument - upload documents
• sendSticker - upload stickers
• sendVideo - upload video
• sendVoice - upload voice
• setWebhook - upload certificate