submitRequest: raise new RequestTooLargeException on HTTP 413 responses

Author: jtdaugherty

src/Network/Mattermost/Connection.hs

@@ -102,6 +102,9 @@ doUnauthRequest cd = submitRequest cd Nothing
 -- raises 'RateLimitException' with the fields populated from the
 -- response headers where possible.
 --
+-- If the request fails due to a 413 (too-large) response, this raises
+-- 'RequestTooLargeException'.
+--
 -- If the response status is 2XX, the response is returned.
 --
 -- If the response status is anything else, its body is assumed to be
@@ -165,6 +168,9 @@ submitRequest cd mToken method uri payload = do
 
   rsp <- hoistE (left ConnectionException rawResponse)
   case HTTP.rspCode rsp of
+    (4, 1, 3) ->
+        throwIO RequestTooLargeException
+
     (4, 2, 9) -> do
         -- Extract rate limit information if possible
         let headers = HTTP.getHeaders rsp

src/Network/Mattermost/Exceptions.hs

@@ -13,6 +13,7 @@ module Network.Mattermost.Exceptions
 , ConnectionException(..)
 , MattermostServerError(..)
 , RateLimitException(..)
+, RequestTooLargeException(..)
 ) where
 
 import qualified Data.Aeson as A
@@ -86,6 +87,13 @@ data MattermostServerError = MattermostServerError T.Text
 
 instance Exception MattermostServerError
 
+-- | An exception raised when a request's size was too large for the
+-- server and was thus rejected.
+data RequestTooLargeException = RequestTooLargeException
+                              deriving (Eq, Show)
+
+instance Exception RequestTooLargeException
+
 -- | An exception raised when a request could not be completed due to a
 -- request rate limit violation.
 data RateLimitException =