From 896f33b3fbfb4989113b6454ff1c026bf06ee569 Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Thu, 23 Dec 2021 15:19:07 +0100
Subject: [PATCH] Fix off-by-one error in string/array encoder
---
src/Quasar/Wayland/Protocol/Core.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/Quasar/Wayland/Protocol/Core.hs b/src/Quasar/Wayland/Protocol/Core.hs
index 0445a6f..bd31f24 100644
--- a/src/Quasar/Wayland/Protocol/Core.hs
+++ b/src/Quasar/Wayland/Protocol/Core.hs
@@ -779,7 +779,7 @@ putWaylandBlob blob = do
-- Padding length
pad = padding len
putBlob = do
- putWord32host (fromIntegral (len + 1))
+ putWord32host (fromIntegral len)
putByteString blob
putWord8 0
replicateM_ pad (putWord8 0)
--
GitLab