add runUpdateParser for compatibility

fizruk · Mar 11, 2024 · 3ee4dbd · 3ee4dbd
1 parent 9c26855
commit 3ee4dbd
Showing 1 changed file with 3 additions and 0 deletions.
diff --git 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)