main :: IO ()
main = do
    Just token <- getTelegramToken
    config <- createTelegramConfig token
    me <- runTelegramAPI config getMe
    print me
    updates <-
        runTelegramAPI
            config
            (getUpdates Nothing Nothing Nothing)
    mapM_
        (\update ->
              putStrLn
                  ("update_id: " ++
                   (show (getUpdateId update)) ++
                   "\n" ++
                   (maybe "" showMessage (getMessage update))))
        updates
    m1 <-
        runTelegramAPI
            config
            (sendMessage
                 111874928
                 "Hi from telegram-client"
                 Nothing
                 Nothing
                 Nothing)
    print (showMessage m1)
main :: IO ()
main = do
    Just token <- getTelegramToken
    config <- createTelegramConfig token
    me <- runTelegramAPI config getMe
    print me
    updates <-
        runTelegramAPI
            config
            (getUpdates Nothing Nothing Nothing)
    mapM_
        (\update ->
              putStrLn
                  ("update_id: " ++
                   (show (getUpdateId update)) ++
                   "\n" ++
                   (maybe "" showMessage (getMessage update))))
        updates
    m1 <-
        runTelegramAPI
            config
            (sendMessage
                 111874928
                 "Hi from telegram-client"
                 Nothing
                 Nothing
                 Nothing)
    print (showMessage m1)
main = do
    Just token <- getTelegramToken
    config <- createTelegramConfig token
    me <- runTelegramAPI config getMe
    print me
    updates <-
        runTelegramAPI
            config
            (getUpdates Nothing Nothing Nothing)
    mapM_
        (\update ->
              putStrLn
                  ("update_id: " ++
                   (show (getUpdateId update)) ++
                   "\n" ++
                   (maybe "" showMessage (getMessage update))))
        updates
    m1 <-
        runTelegramAPI
            config
            (sendMessage
                 111874928
                 "Hi from telegram-client"
                 Nothing
                 Nothing
                 Nothing)
    print (showMessage m1)