fix crash in servePut when client sends from too high offset
Have to consume all the content from the client, but force an Invalid result, so it will just get discarded.
This commit is contained in:
parent
b240a11b79
commit
c36b9cd1fc
1 changed files with 3 additions and 3 deletions
|
@ -575,9 +575,9 @@ servePut st resultmangle su apiver (DataLength len) (B64Key k) cu bypass baf mof
|
||||||
(L.drop (fromIntegral offsetdelta) content)
|
(L.drop (fromIntegral offsetdelta) content)
|
||||||
validitycheck
|
validitycheck
|
||||||
LT -> sendContent' nullMeterUpdate
|
LT -> sendContent' nullMeterUpdate
|
||||||
(Len 0)
|
(Len len)
|
||||||
mempty
|
content
|
||||||
(return Invalid)
|
(validitycheck >>= \_ -> return Invalid)
|
||||||
|
|
||||||
offset = case moffset of
|
offset = case moffset of
|
||||||
Just (Offset o) -> o
|
Just (Offset o) -> o
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue