From 02ae17f5450fb43a359c9ebfdf2ed43849036875 Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Thu, 16 Sep 2021 23:23:06 +0200
Subject: [PATCH] Format a line
---
src/Quasar/Wayland/Protocol/Core.hs | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/src/Quasar/Wayland/Protocol/Core.hs b/src/Quasar/Wayland/Protocol/Core.hs
index 540a42d..49af852 100644
--- a/src/Quasar/Wayland/Protocol/Core.hs
+++ b/src/Quasar/Wayland/Protocol/Core.hs
@@ -530,7 +530,10 @@ sendMessage object message = do
putWord32host $ (fromIntegral msgSize `shiftL` 16) .|. fromIntegral opcode
putLazyByteString body
msgSize :: Word16
- msgSize = if msgSizeInteger <= fromIntegral (maxBound :: Word16) then fromIntegral msgSizeInteger else error "Message too large"
+ msgSize =
+ if msgSizeInteger <= fromIntegral (maxBound :: Word16)
+ then fromIntegral msgSizeInteger
+ else error "Message too large"
-- TODO: body length should be returned from `putMessage`, instead of realizing it to a ByteString here
msgSizeInteger :: Integer
msgSizeInteger = 8 + fromIntegral (BSL.length body)
--
GitLab