From 2bc6e28ab0e6219cf9f95c80ab1ae60f7d36e004 Mon Sep 17 00:00:00 2001
From: Krasimir Angelov <kr.angelov@gmail.com>
Date: Thu, 7 Sep 2023 15:05:11 +0200
Subject: [PATCH] fix after the patch in http-slim

---
 src/server/PGFService.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/server/PGFService.hs b/src/server/PGFService.hs
index 30757de18..e5d7868a0 100644
--- a/src/server/PGFService.hs
+++ b/src/server/PGFService.hs
@@ -359,9 +359,9 @@ pgfDownload conn query (t,pgf) = do
   where
     writeChunk conn ptr len =
       (do writeAscii conn (showHex len "\r\n")
-          n <- writeBytes conn ptr len
+          writeBytes conn ptr len
           writeAscii conn "\r\n"
-          return n)
+          return len)
       `catch`
       (\(e :: SomeException) -> return (-1))