Use -Werror on CI (#188)

.github/workflows/ci.yml

@@ -28,4 +28,4 @@ jobs:
           key: ${{ runner.os }}-v2-${{ matrix.ghc }}-${{ github.run_id }}
           restore-keys: ${{ runner.os }}-v2-${{ matrix.ghc }}-
       - run: |
-          cabal build all -fexamples
+          cabal build all -fexamples --ghc-options=-Werror

telegram-bot-api/src/Telegram/Bot/API/Methods/SendDocument.hs

@@ -115,7 +115,9 @@ instance ToMultipart Tmp SendDocumentRequest where
       = (FileData "file" (T.pack $ takeFileName path) ct path)
       : maybe [] (\t -> [FileData "thumbnail" (T.pack $ takeFileName t) "image/jpeg" t]) sendDocumentThumbnail
 
-    DocumentFile path ct = sendDocumentDocument
+    (path, ct) = case sendDocumentDocument of
+      DocumentFile path' ct' -> (path', ct')
+      _ -> error "ToMultipart Tmp SendDocumentRequest: cannot use multipart for links or file ids"
 
 
 instance ToJSON   SendDocumentRequest where toJSON = gtoJSON

telegram-bot-api/src/Telegram/Bot/API/Methods/SendPhoto.hs

@@ -104,7 +104,9 @@ instance ToMultipart Tmp SendPhotoRequest where
       = (FileData "file" (T.pack $ takeFileName path) ct path)
       : maybe [] (\t -> [FileData "thumb" (T.pack $ takeFileName t) "image/jpeg" t]) sendPhotoThumb
 
-    PhotoFile path ct = sendPhotoPhoto
+    (path, ct) = case sendPhotoPhoto of
+      PhotoFile path' ct' -> (path', ct')
+      _ -> error "ToMultipart Tmp SendPhotoRequest: cannot use multipart for links or file ids"
 
 instance ToJSON SendPhotoRequest where toJSON = gtoJSON
 

telegram-bot-simple/examples/EchoBot.hs

@@ -35,8 +35,8 @@ updateToAction update _
       Just $ InlineEcho queryId msg
   | isJust $ updateMessageSticker update = do
     fileId <- stickerFileId <$> updateMessageSticker update
-    chatId <- updateChatId update
-    pure $ StickerEcho (InputFileId fileId) chatId
+    chatOfUser <- updateChatId update
+    pure $ StickerEcho (InputFileId fileId) chatOfUser
   | otherwise = case updateMessageText update of
       Just text -> Just (Echo text)
       Nothing   -> Nothing

telegram-bot-simple/examples/EchoBotWebhook.hs

@@ -43,8 +43,8 @@ updateToAction update _
       Just $ InlineEcho queryId msg
   | isJust $ updateMessageSticker update = do
     fileId <- stickerFileId <$> updateMessageSticker update
-    chatId <- updateChatId update
-    pure $ StickerEcho (InputFileId fileId) chatId
+    chatOfUser <- updateChatId update
+    pure $ StickerEcho (InputFileId fileId) chatOfUser
   | otherwise = case updateMessageText update of
       Just text -> Just (Echo text)
       Nothing   -> Nothing

telegram-bot-simple/examples/GameBot.hs

@@ -104,7 +104,11 @@ handleAction BotSettings{..} action model = case action of
           { inlineQueryResultTitle = Just msg
           , inlineQueryResultInputMessageContent = Just gameMsg
           }
-        gameMsg = (defaultInputTextMessageContent gameMessageText) { inputMessageContentParseMode = Just "HTML" }
+        gameMsg = InputTextMessageContent
+          { inputMessageContentMessageText = gameMessageText
+          , inputMessageContentParseMode = Just "HTML"
+          , inputMessageContentDisableWebPagePrefiew = Nothing
+          }
         inlineQueryResult = InlineQueryResultGame
           { inlineQueryResultGameGeneric = genericResult
           , inlineQueryResultGameGameShortName = gameName
@@ -737,4 +741,3 @@ renderAgainLink settings txt = do
       H.div ! A.class_ "position-link" $ do
         H.div ! A.class_ "qel-button text-button text-again-button"
           $ toMarkup txt
-

telegram-bot-simple/src/Telegram/Bot/Simple/Reply.hs

@@ -61,6 +61,7 @@ replyMessageToSendMessageRequest :: SomeChatId -> ReplyMessage -> SendMessageReq
 replyMessageToSendMessageRequest someChatId ReplyMessage{..} = SendMessageRequest
   { sendMessageChatId = someChatId
   , sendMessageBusinessConnectionId = Nothing
+  , sendMessageMessageEffectId = Nothing
   , sendMessageMessageThreadId = replyMessageMessageThreadId
   , sendMessageText = replyMessageText
   , sendMessageParseMode = replyMessageParseMode