From 3325b25e8df45a8cd9749d594c2a7590de10126c Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Thu, 23 Dec 2021 18:52:57 +0100
Subject: [PATCH] Improve a comment
---
src/Quasar/Wayland/Client.hs | 2 +-
src/Quasar/Wayland/Client/Registry.hs | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/Quasar/Wayland/Client.hs b/src/Quasar/Wayland/Client.hs
index 0e4448d..627ccc6 100644
--- a/src/Quasar/Wayland/Client.hs
+++ b/src/Quasar/Wayland/Client.hs
@@ -43,6 +43,7 @@ connectWaylandClient = mask_ do
newWaylandClient :: MonadResourceManager m => Socket -> m WaylandClient
newWaylandClient socket = do
((wlDisplay, registry), connection) <- newWaylandConnection newClientDisplay socket
+
pure WaylandClient {
connection,
wlDisplay,
@@ -71,4 +72,3 @@ instance HasField "sync" WaylandClient (STM (Awaitable ())) where
var <- newAsyncVarSTM
lowLevelSync client.wlDisplay \_ -> putAsyncVarSTM_ var ()
pure $ toAwaitable var
-
diff --git a/src/Quasar/Wayland/Client/Registry.hs b/src/Quasar/Wayland/Client/Registry.hs
index 8d3cac3..32ae644 100644
--- a/src/Quasar/Wayland/Client/Registry.hs
+++ b/src/Quasar/Wayland/Client/Registry.hs
@@ -44,7 +44,7 @@ createRegistry wlDisplay = mfix \clientRegistry -> do
wlRegistry <- wlDisplay.get_registry
setMessageHandler wlRegistry (messageHandler clientRegistry)
- -- Manual sync (without high-level wrapper) to prevent a dependency loop to the client
+ -- Manual sync (without high-level wrapper) to prevent a dependency loop to the Client module
var <- newAsyncVarSTM
lowLevelSync wlDisplay \_ -> putAsyncVarSTM_ var ()
let initialSyncComplete = toAwaitable var
--
GitLab