You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
36 lines
1.2 KiB
36 lines
1.2 KiB
9 years ago
|
{-# LANGUAGE OverloadedStrings #-}
|
||
|
|
|
||
|
|
module Network.Telegram
|
||
|
|
(
|
||
|
|
mkTelegramContext,
|
||
|
|
sendMessage
|
||
|
|
) where
|
||
|
|
|
||
|
|
import Control.Monad
|
||
|
|
|
||
|
|
import Network.Connection
|
||
|
|
import Network.HTTP.Client
|
||
|
|
import Network.HTTP.Client.TLS
|
||
|
|
|
||
|
|
import qualified Data.Text as T
|
||
|
|
import qualified Data.ByteString.UTF8 as BU8
|
||
|
|
import Data.Aeson
|
||
|
|
import Data.Aeson.Types
|
||
|
|
|
||
|
|
data TelegramContext = TelegramContext {
|
||
|
|
tgToken :: T.Text,
|
||
|
|
httpMan :: Manager
|
||
|
|
}
|
||
|
|
|
||
|
|
mkTelegramContext :: T.Text -> IO TelegramContext
|
||
|
|
mkTelegramContext token = do
|
||
|
|
man <- newManager (mkManagerSettings (TLSSettingsSimple { settingDisableCertificateValidation = True, settingDisableSession = False, settingUseServerName = False }) Nothing)
|
||
|
|
return TelegramContext { httpMan = man, tgToken = token }
|
||
|
|
|
||
|
|
|
||
|
|
sendMessage :: TelegramContext -> T.Text -> T.Text -> IO ()
|
||
|
|
sendMessage ctx chatId text = do
|
||
|
|
req <- parseUrl $ "https://api.telegram.org/bot" ++ (T.unpack $ tgToken ctx) ++ "/sendMessage"
|
||
|
|
void $ withResponse (req { method = "POST", requestHeaders = [("Content-Type", BU8.fromString "application/json")], requestBody = (RequestBodyLBS . encode) (object ["chat_id" .= chatId, "text" .= text]) }) (httpMan ctx) (\resp -> brConsume (responseBody resp))
|
||
|
|
|