From 945fb3387b56be0da576d06155f35372b35095bc Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 28 Aug 2016 21:05:45 -0400 Subject: better error for invalid object size --- HTTP/Server.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'HTTP') diff --git a/HTTP/Server.hs b/HTTP/Server.hs index 7086167..816cf47 100644 --- a/HTTP/Server.hs +++ b/HTTP/Server.hs @@ -66,8 +66,8 @@ putObject st i _pow o = do then do r <- liftIO $ storeShare serverStorage i (Share dummyShareNum o) liftIO $ requestObscure st - return (Result r) - else throwError err413 -- Request Entity Too Large + return $ Result r + else return $ Result $ StoreFailure "invalid object size" countObjects :: ServerState -> Maybe ProofOfWork -> Handler (ProofOfWorkRequirement CountResult) countObjects _st _pow = liftIO $ Result <$> countShares serverStorage -- cgit v1.2.3