From 3ee4dbd578c1801ab2fab9e1282b13ca0d2b78c4 Mon Sep 17 00:00:00 2001
From: Jake Faulkner <jakefaulkn@gmail.com>
Date: Tue, 12 Mar 2024 11:57:29 +1300
Subject: [PATCH] add runUpdateParser for compatibility

---
 telegram-bot-simple/src/Telegram/Bot/Simple/UpdateParser.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/telegram-bot-simple/src/Telegram/Bot/Simple/UpdateParser.hs b/telegram-bot-simple/src/Telegram/Bot/Simple/UpdateParser.hs
index 55c4278..c6f2390 100644
--- a/telegram-bot-simple/src/Telegram/Bot/Simple/UpdateParser.hs
+++ b/telegram-bot-simple/src/Telegram/Bot/Simple/UpdateParser.hs
@@ -25,6 +25,9 @@ mkParser f = ask >>= lift . f
 parseUpdate :: UpdateParser a -> Update -> Maybe a
 parseUpdate = runReaderT
 
+runUpdateParser :: UpdateParser a -> Update -> Maybe a
+runUpdateParser = runReaderT
+
 text :: UpdateParser Text
 text = mkParser (extractUpdateMessage >=> messageText)