Print Servant errors when getUpdates fails

fizruk · Jun 3, 2018 · bc7c5bb · bc7c5bb
1 parent 33bb851
commit bc7c5bb
Showing 1 changed file with 9 additions and 2 deletions.
diff --git a/src/Telegram/Bot/Simple.hs b/src/Telegram/Bot/Simple.hs
@@ -116,12 +116,19 @@ startPolling handleUpdate = go Nothing
     go lastUpdateId = do
       let inc (UpdateId n) = UpdateId (n + 1)
           offset = fmap inc lastUpdateId
-      res <- try $ getUpdates (GetUpdatesRequest offset Nothing Nothing Nothing)
+      res <- try $
+        (Right <$> getUpdates
+          (GetUpdatesRequest offset Nothing Nothing Nothing))
+        `catchError` (pure . Left)
+
       nextUpdateId <- case res of
         Left (ex :: SomeException) -> do
           liftIO (print ex)
           pure lastUpdateId
-        Right result -> do
+        Right (Left servantErr) -> do
+          liftIO (print servantErr)
+          pure lastUpdateId
+        Right (Right result) -> do
           let updates = responseResult result
               updateIds = map updateUpdateId updates
               maxUpdateId = maximum (Nothing : map Just updateIds)