From 7b8a887b3c165d3557506dbe7577139ebc89d38d Mon Sep 17 00:00:00 2001
From: Jonathan Lamothe <jonathan@jlamothe.net>
Date: Mon, 22 Nov 2021 23:25:43 -0500
Subject: [PATCH] made failure reason ob readLoop more obvious

---
 src/Network/Gemini/Capsule/Internal.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Network/Gemini/Capsule/Internal.hs b/src/Network/Gemini/Capsule/Internal.hs
index 1c0e1bd..e637d1a 100644
--- a/src/Network/Gemini/Capsule/Internal.hs
+++ b/src/Network/Gemini/Capsule/Internal.hs
@@ -123,7 +123,7 @@ readLoop maxLen src =
     Just bs -> do
       let len = BS.length bs
       when (len > maxLen) $
-        MaybeT $ return Nothing
+        fail "maximum length exceeded"
       (byteString bs <>) <$> readLoop (maxLen - len) src
 
 --jl