GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-26 03:08:55 -06:00
Code Issues Packages Projects Releases Wiki Activity

fix after the patch in http-slim

Browse Source
This commit is contained in:
Krasimir Angelov
2023-09-07 15:05:11 +02:00
parent d065e1de66
commit 2bc6e28ab0
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/server/PGFService.hs
View File

@@ -359,9 +359,9 @@ pgfDownload conn query (t,pgf) = do
where where
writeChunk conn ptr len = writeChunk conn ptr len =
(do writeAscii conn (showHex len "\r\n") (do writeAscii conn (showHex len "\r\n")
n <- writeBytes conn ptr len writeBytes conn ptr len
writeAscii conn "\r\n" writeAscii conn "\r\n"
return n) return len)
`catch` `catch`
(\(e :: SomeException) -> return (-1)) (\(e :: SomeException) -> return (-1))