diff options
Diffstat (limited to 'HTTP/Server.hs')
-rw-r--r-- | HTTP/Server.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |