jlamothe/gemcap
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

made failure reason ob readLoop more obvious

This commit is contained in:
Jonathan Lamothe 2021-11-22 23:25:43 -05:00
parent 61fca70a5e
commit 7b8a887b3c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Network/Gemini/Capsule/Internal.hs
View File

@ -123,7 +123,7 @@ readLoop maxLen src =
Just bs -> do Just bs -> do
let len = BS.length bs let len = BS.length bs
when (len > maxLen) $ when (len > maxLen) $
MaybeT $ return Nothing fail "maximum length exceeded"
(byteString bs <>) <$> readLoop (maxLen - len) src (byteString bs <>) <$> readLoop (maxLen - len) src
--jl --jl