Fix ShmClient crash on close request

queezle42 · May 14, 2024 · 1178ca3 · 1178ca3
1 parent 64c0947
commit 1178ca3
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/examples/ShmClient.hs b/examples/ShmClient.hs
@@ -21,14 +21,16 @@ main = do
     traceIO "Connected"
 
     configurationVar <- newEmptyTMVarIO
+    closeRequestedVar <- newTVarIO False
 
     let properties = defaultWindowProperties {
       title = "quasar-wayland-example-client"
     }
 
     window <- atomicallyC do
       windowManager <- getClientWindowManager @ShmBufferBackend client
-      newWindow windowManager properties (writeTMVar configurationVar) undefined
+      newWindow windowManager properties (writeTMVar configurationVar) \case
+        WindowRequestClose -> writeTVar closeRequestedVar True
 
     forM_ [solidColor, gradient, gradient2, gradient3, gradient4] \img -> do
       -- Blocks until first configure event