axeman/wohnugs-suche
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Send message to one more person

Browse source
This commit is contained in:
Akshay Mankar 2023-10-27 09:20:51 +02:00
parent 996e325038
commit cb8ad94ad0
Signed by: axeman
GPG key ID: CA08F3AB62369B89
1 changed files with 12 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
berlin-scraper/app/Main.hs
View file

@ -225,11 +225,19 @@ notify offer = do
offerLink = "<a href=\"https://inberlinwohnen.de" <> offer.link <> "\" >Apply Here</a>" offerLink = "<a href=\"https://inberlinwohnen.de" <> offer.link <> "\" >Apply Here</a>"
offerBody = offerAddress <> "\n" <> offerRooms <> "\n" <> offerArea <> "\n" <> offerLink offerBody = offerAddress <> "\n" <> offerRooms <> "\n" <> offerArea <> "\n" <> offerLink
offerText = offerTitle <> "\n\n" <> offerBody offerText = offerTitle <> "\n\n" <> offerBody
sendMsgReq = (defSendMessage (SomeChatId $ ChatId 952512153) offerText) {sendMessageParseMode = Just HTML} sendMsgReq1 = (defSendMessage (SomeChatId $ ChatId 952512153) offerText) {sendMessageParseMode = Just HTML}
res <- runTG sendMsgReq sendMsgReq2 = (defSendMessage (SomeChatId $ ChatId 116981707) offerText) {sendMessageParseMode = Just HTML}
res1 <- runTG sendMsgReq1
liftIO $ liftIO $
if res.responseOk if res1.responseOk
then putStrLn "Notified successfully" then putStrLn "Notified successfully"
else do else do
putStrLn $ "Failed to notify the offer: " <> show offer putStrLn $ "Failed to notify the offer: " <> show offer
Text.putStrLn $ "Response: " <> Text.decodeUtf8 (LBS.toStrict $ Aeson.encode res) Text.putStrLn $ "Response: " <> Text.decodeUtf8 (LBS.toStrict $ Aeson.encode res1)
res2 <- runTG sendMsgReq2
liftIO $
if res2.responseOk
then putStrLn "Notified successfully"
else do
putStrLn $ "Failed to notify the offer: " <> show offer
Text.putStrLn $ "Response: " <> Text.decodeUtf8 (LBS.toStrict $ Aeson.encode res2)